listbox

[carnero]

hola quiero lograr que por ejemplo tengo 3 list box con datos y si le doy clik al 1º se selecciona en la misma fila el 2 y 3 y si selecciono el 2 se selecione en la misma fila el 1 y 3 y asi , espero se entienda

gracias

[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

[carnero]

Me sale erro: "la declaracion del procedimeinto no cpoincide con la descripcion del evento o procedimiento que tiene el mismo nombre"

ademas quiero en mas de un list box no soo en 1

gracias

[erbuson]

El ejemplo es para captar la idea si creas un proyecto en blanco con los tres ListBox que te he indicado verás que si funciona.

Ten en cuenta que aqui te pongo tres ListBox indexados 0, 1, 2 para simplificar el código ya que caso de que sean ListBox con nombres diferentes vas a complicar el proceso.

De todos modos dime cuales son los nombres de tus ListBox y te comento.

Saludos

[carnero]

aaa ok

si justo es eso lo que quiero hacer gracias
muuuuuuuuuuuchas gracias

[carnero]

aprovechando, para no abrir otro tema.

quiero agregar un valor "" a un combobox y no puedo
lo pense asi:

While login.rst.EOF = False
Combo7.AddItem login.rst("funcionario")
login.rst.MoveNext
Wend
COMBO7.ADDITEM = ""

pero no me salio :P

como lo podria hacer? gracias

[porciento_veinte]

porque no probás

Combo7.AddItem = " "

y mas adelante cuando necesites usar el valor NULL del combo lo bajás con

Trim(Combo7(Indice))

asi te quedaría el caracter NULL o si lo que quieres es que te aparezca como vacio el combo, es suficiente con cargarle un espacio " "

[carnero]

puse

Combo7.AddItem = " "

y me dice que el argumento no es opcional

[buxforever]

Trata eliminando el =

Combo7.AddItem ""

[carnero]

hay si funciono muuuuuuuuuuuchas gracias

porfavor me pueden ayudar con esto es urgente!!

http://www.forosdelweb.com/f69/error...39;(:neurotico

[buxforever]

La pagina ya no existe...

[carnero]

http://www.forosdelweb.com/f69/error...-largo-805880/

esa

[carnero]

Código vb:

Dim Indice As Integer
For Indice = 0 To List1.Count - 1
If Indice <> Index [COLOR="Red"]Then List1(Indice).ListIndex = List1(Index).ListIndex[/COLOR]
Next
 

sabes me sale error

me dice "el valor de la propiedad no es valido"
indice = 8
index = 7

son 9 listbox

que hago??

gracias

[carnero]

Iniciado por carnero

Código vb:

Dim Indice As Integer
For Indice = 0 To List1.Count - 1
If Indice <> Index [COLOR="Red"]Then List1(Indice).ListIndex = List1(Index).ListIndex[/COLOR]
Next
 

sabes me sale error

me dice "el valor de la propiedad no es valido"
indice = 8
index = 7

son 9 listbox

que hago??

gracias

-------------------------------------------------------------------------------------

ya lo aregle :P

[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

[carnero]

porfa es urgenteeeeeee

[-rommel_]

podrias no hacerlo al mover la rueda del mouse... pero si al pasar el mouse por encima del combo...

[carnero]

ESQUE CON EL CODIGO QUE ME DIO erbuson, SI YO LE DOY CLIK ALGUN VALOR DEL LIST, SE SELECCIONAN TODOS LOS LISTBOX QUE TENGA Y LO MISMO SI MUEVO LAS TECLAS DE DIRECCION.
PERO UIERO SI YO TENGO DELECCIONADO UN VALOR Y MUEVO LA RUEDA DEL MOUSE, SE MUEVA LA SELECCION.

[-rommel_]

hay una funcion en google.. que se trata de hacer el Tracball dl mouse en un objeto... no recuerdo como es... pero se puede activar el trackball del mouse en cualquier objeto... no recuerdo... apenas lo encuentre te aviso...

[-rommel_]

ke rapido lo encontre... estos ejemplos te pueden ayudar... yo lo usaba siempre...
http://www.recursosvisualbasic.com.a...d-datagrid.htm
Saludos...!!!

[carnero]

medio "leseo", no hay algo mas corto ?