jesita

jesita

 Buenos Aires, Argentina @jesita desde - visto

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Agregar iconos al ListView

respondió: Primero tienes que agregar un control ImageList en este agregas algunas imágenes o iconos. Luego el código seria así: Dim fd As Field 'Objetos para trabajar ListView Dim clm As ColumnHeader ImageList1.ListImages(2).Key = "Key1" ' Establecer la...
Ha valorado "Excelente" la respuesta

Tiempo de uso de mi pc

respondió: Este ejemplo te servirá: Pruébalo y suerte. Private Declare Function StrFromTimeInterval Lib "shlwapi" Alias _ "StrFromTimeIntervalA" (ByVal pszOut As String, ByVal cchMax As Long, _ ByVal dwTimeMS As Long, ByVal dwDigits As Long) As Long 'una de las...
Ha valorado "Excelente" la respuesta

Formulario con Efecto degradado

respondió: Allí tienes un ejemplo de lo que pides, solo agregas un control Timer y lo pegas en el Form Load el código. Suerte. Option Explicit Dim cont, i As Long Private Sub Form_Load() 'Configurar temporizador Timer1.Interval = 5 Timer1.Enabled = True...
Ha valorado "Excelente" la respuesta

Ocultar barra de tareas

respondió: Aqui te mando un ejemplo de como hacerlo utilizando APIs, solo necesitas un boton Command1 en el formulario. Pruebalo. Option Explicit Private Enum TipoAccion SW_HIDE = &H0 ' Ocultar SW_SHOW = &H5 ' Mostrar End Enum Private Declare Function...
Ha empezado a seguir a