SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: fORU- en Viernes 8 de Febrero de 2008, 00:34

Título: Llenar Listbox Con Seleccion De Un Chekedlistbox
Publicado por: fORU- en Viernes 8 de Febrero de 2008, 00:34

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.

Título: Re: Llenar Listbox Con Seleccion De Un Chekedlistbox
Publicado por: Abhero en Viernes 8 de Febrero de 2008, 15:04

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         

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 (http://www.dotnetcr.com/Libreria.aspx?art=9&tag=Como-utilizar-el-CheckedListBox)

Gracias a tu post aprendí un poquito de los checkedlistboxes.
Recuerdos,  :hola:
Ab.

Título: Re: Llenar Listbox Con Seleccion De Un Chekedlistbox
Publicado por: fORU- en Viernes 8 de Febrero de 2008, 18:56

Gracias Ab, si funciono con el codigo que proporcionaste!!