CLR: .Net / Mono / Boo / Otros CLR > VB .NET
Llenar Listbox Con Seleccion De Un Chekedlistbox
(1/1)
fORU-:
Hola que tal, veran no puedo llenar un listbox con lo seleccionado de un CheckedListBox espero que alguien me pueda sugerir algo ya intente por mi cuenta pero no pude :( . Gracias po su tiempo y atencion.
Aqui dejo el codigo que llevo para que vean como intento solucionar el problema :comp:
Public Class Form3
Dim clientes() As String = {"tito", "jovana", "alguien"}
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To UBound(clientes)
CheckedListBox1.Items.Add(clientes(i))
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To UBound(clientes)
ListBox1.Items.Add(CheckedListBox1.SelectedItems)
Next
End Sub
End Class
Por cierto el listbox si se llena pero con este tipo de cadena "((collection))" y claro por el ciclo se pone ese mensaje 3 veces en forma vertical.
Abhero:
--- Citar --- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To UBound(clientes)
ListBox1.Items.Add(CheckedListBox1.SelectedItems)
Next
End Sub
--- Fin de la cita ---
cambialo por este:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
Dim Valor As String
For i = 0 To Me.CheckedListBox1.CheckedItems.Count - 1
Valor = CheckedListBox1.CheckedItems(i)
ListBox1.Items.Add(Valor)
Next
End Sub
Fuente: http://www.dotnetcr.com/Libreria.aspx?art=...-CheckedListBox
Gracias a tu post aprendí un poquito de los checkedlistboxes.
Recuerdos, :hola:
Ab.
fORU-:
Gracias Ab, si funciono con el codigo que proporcionaste!!
Navegación
Ir a la versión completa