Actividad pública reciente
Ha valorado "Excelente" la respuesta
Agregar iconos al ListView
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
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
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
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

