Estas reviviendo links de 2 años atrás que esperabas...

Hola Cobein, vos decis la ruedita, si lo tiene, pero bueno capas que no este funcionando bien¿? despues fijate dale un click para que tome el foco y provalo, capas que en tu pc tenes los drives instalados y esos cambien el WM_MOUSEWHEEL por otro.

Saludos

hola para que los botones , checkbox, y el resto de los controles tengan ese aspecto tenes que aplicar los temas de windows a la aplicación, yo lo tengo directamente en el vb6.
para tener mas informacion de como hacer esto, mirate este link

Lo que no havia notado es que si no estan los theme de windows los iconos no se ven muy lindos (32 bits) , es un dato a tener en cuenta si se quiere que se tenga mejor aspecto.

Lo de la multiselección es una cosa que me quedo pendiente, no es nada dificil implementarlo, despues si no me cuelgo con otra cosa se lo agrego.

Saludos

Hola, si me permite hago un poco de Spam a cambio de un aporte, es para compartir este Control de Usuario, se trata de un ListBox personalizado el cual permite insertar iconos, Cambiar la seleción, un sistema de desplazamiento personalizado. etc.





Descargar

Espero a nadie le moleste  
Saludos

Hola esta faltando el LoadPicture

ImageButton = LoadPicture("C:\botoon.jpg")

Para que no aparezca en la solapa aplicaciones de Administrador de tareas

Option Explicit
 
Private Sub Form_Load()
    App.TaskVisible = False
End Sub
 

y para no mostrar un formulario en la barra de tareas en tiempo de diseño tienes que poner en la propiedad del formulario

ShowInTaskbar = False


Saludos

Hola, le pasas uno inexistente  con la constante LVM_SETTOOLTIPS

Option Explicit
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_SETTOOLTIPS As Long = (LVM_FIRST + 74)
 
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
 
Private Sub Command1_Click()
       SendMessage Handle, LVM_SETTOOLTIPS, 0&, 0&
End Sub
 

Saludos

Hola provaste enviar Array() de bits?

Tambien podes enviar estructuras y podes utilizar VarPtr()

por ejemplo algo asi


Private Type MyType
      lA As Long
      lB As Long
      bC As Byte
End Type

Dim MT As MyType


WriteProcessMemory ProcessHandle, MemoryAddress, VarPtr(MT), Len(MT), 0

yo no lo mastico bien esto, pero bueno es algo asi, tambien mira como tenes declaradas los paramentros de las apis, yo aconsejo que si no entendes este modulo vayas estudiando cada una de sus api para no hacerte un lio.

Saludos

Che que grosos que estan esos programitas, osea me sorprenden mas que nada porque estan echos en Visual basic 6.

Saludos

Te quedo muy lindo Seba, no sabia que interceptando el msg WM_CTLCOLORSTATIC podias cambiar el fondo del slider


Saludos