Visual Basic para Aplicaciones - problema con 2 listbox

Life is soft - evento anual de software empresarial
 
Vista:

problema con 2 listbox

Publicado por pablo (48 intervenciones) el 19/09/2010 12:08:32
hola amigos foristas:
Tengo un problema con la sincronizacion de dos listbox que tienen multiselect. La idea del programa es que tengo una lista de un proveedor en la listbox1 marcando me pasa a la otra. Yo querria inhibir la opcion que esta en la listbox1 pero no se como hacerlo. Por un lado intente encontrar algo que inhiba la seleccion del listbox1 pero no encontre nada despues intente hacer un programa que primero verifique si en la listbox2 existe algun elemento y si es asi comparar que este no se repita pero tengo un problema enorme con los index.
Les muestro una idea

Dim item As Long, items As Long, n As Integer
For item = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(item) = True And TextBox1.Value <> "" Then
If ListBox2.ListCount > 0 Then
For items = ListBox2.ListCount To 0
If ListBox2.List(items, 0) = ListBox1.List(item, 0) Then
Exit Sub
'MsgBox "esta en la lista"
Else
Me.ListBox2.AddItem Me.ListBox1.List(item, 0)
UserForm1.ListBox2.List(n, 1) = ListBox1.List(item, 1)
UserForm1.ListBox2.List(n, 2) = ListBox1.List(item, 2)
UserForm1.ListBox2.List(n, 3) = ListBox1.List(item, 3)
UserForm1.ListBox2.List(n, 4) = ListBox1.List(item, 4)
UserForm1.ListBox2.List(n, 5) = ListBox1.List(item, 5)
UserForm1.ListBox2.List(n, 6) = UserForm1.TextBox1.Value
n = n + 1
End If

Next
End If
End If

Next
n = ListBox2.ListCount
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder