listbox

[carnero]

Iniciado por erbuson

hola:

Para ver como funciona este ejemplo, crea un nuevo proyecto, añádele tres list1 con los índices 0, 1 y 2, pega este código y pruébalo

private sub form_load()
' cargamos en los list lineas de ejemplo
dim indice as integer
for indice = 1 to 50
list1(0).additem indice
list1(1).additem indice
list1(2).additem indice
next
end sub

private sub list1_click(index as integer)
' cuando hacemos click en uno cambiamos los demás
dim indice as integer
for indice = 0 to list1.count - 1
if indice <> index then list1(indice).listindex = list1(index).listindex
next
end sub

private sub list1_scroll(index as integer)
' cuando hacemos scroll en uno cambiamos los demás
dim indice as integer
for indice = 0 to list1.count - 1
if indice <> index then list1(indice).topindex = list1(index).topindex
next
end sub

y cualquier duda, comenta, saludos

una consulta como logro esto mismo, pero moviendo la rueda del mouse?? Gracias