Desactivar selección del listbox al realizar una acción
Deseo desactivar selección del listbox al realizar una acción por ejemplo tengo un listbox1 que esta con la propiedad multiselec y al realizar esta acción, la selección de registro vuelva a cero, osea que no ahiga ningun registro seleccionado del listbox1.
If ListBox1.Selected(i) Then
ListBox2. AddItem ListBox1.List(i, 0)
ListBox2. List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1)
ListBox2.List(ListBox2.ListCount - 1, 2) = TextBox1
End If
Desde estonces muy agradecido!
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo el código
Private Sub CommandButton2_Click() 'Por.Dante Amor 'ListBox2.Clear If ListBox1.ListIndex = -1 Then MsgBox "Selecciona clientes" Exit Sub End If ' For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then ListBox2.AddItem ListBox1.List(i, 0) ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1) ListBox2.List(ListBox2.ListCount - 1, 2) = TextBox1 End If Next ListBox1.MultiSelect = 0 ListBox1.MultiSelect = 1 End Sub
S a l u d o s. Recuerda valorar las respuestas pendientes.
