• Lunes 23 de Diciembre de 2024, 13:08

Autor Tema:  Llenar Listbox Con Seleccion De Un Chekedlistbox  (Leído 2435 veces)

fORU-

  • Miembro MUY activo
  • ***
  • Mensajes: 225
  • Nacionalidad: mo
    • Ver Perfil
Llenar Listbox Con Seleccion De Un Chekedlistbox
« en: Viernes 8 de Febrero de 2008, 00:34 »
0
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.
atte:fORU-

Abhero

  • Miembro MUY activo
  • ***
  • Mensajes: 137
    • Ver Perfil
    • http://www.myspace.com/abhero
Re: Llenar Listbox Con Seleccion De Un Chekedlistbox
« Respuesta #1 en: Viernes 8 de Febrero de 2008, 15:04 »
0
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

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


El Optimista lo vio medio lleno.
El Pesimista lo vio medio vacío.
Los malos analistas a penas vieron el vaso.

fORU-

  • Miembro MUY activo
  • ***
  • Mensajes: 225
  • Nacionalidad: mo
    • Ver Perfil
Re: Llenar Listbox Con Seleccion De Un Chekedlistbox
« Respuesta #2 en: Viernes 8 de Febrero de 2008, 18:56 »
0
Gracias Ab, si funciono con el codigo que proporcionaste!!
atte:fORU-