Registrado: May 13, 2005 Mensajes: 31 Ubicación: Rafaela
Publicado: 08/12/2005 01:49:48 pmAsunto: Enviar datos de un ListBox a otro
Tengo un formulario en el que hay 2 ListBox y un CommandButton.
El primer ListBox contiene datos y tiene la propiedad Style = 1 - Checkbox. El segundo ListBox no contiene datos y su propiedad Style = 0 - Standard.
Al iniciar la aplicación, el usuario debe seleccionar datos del primer ListBox (el que contiene la información) y, al presionar el CommandButton, los datos que están "Chekeados" deberían aparecer en el segundo ListBox y borrarse en el primer ListBox.
¿Qué código debo utilizar para realizar estas acciones? _________________ ***LuckyZ***:.
"Los sabios buscan la sabiduría; los necios creen haberla encontrado." (Napoleón Bonaparte.)
Registrado: Aug 03, 2005 Mensajes: 30 Ubicación: Lima
Publicado: 23/05/2007 12:58:09 pmAsunto:
Tengo la solucion a tu problema pero con un listview. Hago la misma logica que tu planteas, solo que en mi caso tengo dos botones, uno para pasar de un listiview de izquierda a derecha y otro boton para regresar de derecha a izquierda. TE pego el codigo para que lo adecues a tu logica
'Recorremos todos los items del ListView y chequeamos cual está seleccionado
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Selected Then
With ListView2
Set itmx = .ListItems.Add(, , Left(ListView1.ListItems(i).Text, 2) & "-" & Mid(ListView1.ListItems(i).Text, 4))
End With
End If
Next
n = ListView1.ListItems.Count
For i = 1 To n
If i > n Then
Exit For
End If
If ListView1.ListItems(i).Selected Then
ListView1.ListItems.Remove (i)
n = n - 1
End If
Next i
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro