none
Varios Items seclecionados en un CheckedListBox1 RRS feed

 > 

  • Pregunta

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Estoy intentando seleccionar varios items y que me carge respectivas listas y si deselecciono uno que me refresque y carge el que esta seleccionado

    Gracias

    Private Sub CheckedListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles CheckedListBox1.MouseClick
        If CheckedListBox1.GetItemChecked(0) Then


            For N_lupulo = 0 To Receta_Nueva.Dgv_Tabla_Lupulos.RowCount - 1
                If CheckedListBox1.Items.Item(0).ToString = "Lupulos" Then
                    CheckedListBox2.Items.Add(Receta_Nueva.Dgv_Tabla_Lupulos.Rows(N_lupulo).Cells(1).Value)
                End If
            Next
            For N_fermentable = 0 To Receta_Nueva.DGV_Tabla_Fermentables.RowCount - 1
                If CheckedListBox1.Items.Item(1).ToString = "Maltas" Then
                    CheckedListBox2.Items.Add(Receta_Nueva.DGV_Tabla_Fermentables.Rows(N_fermentable).Cells(1).Value)
                End If
            Next
        Else
            CheckedListBox2.Items.Clear()
        End If

    miércoles, 25 de noviembre de 2015 19:37
    |

Respuestas

  • Question
    Inicie sesión para votar
    0
    Inicie sesión para votar

    Por si a alguien le interesa ya lo e conseguido

    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
        CheckedListBox2.Items.Clear()
        Dim i As Integer
        Dim mensaje As String
        mensaje = "Items Seleccionados :" & ControlChars.CrLf
        For i = 0 To (CheckedListBox1.Items.Count - 1)

            If CheckedListBox1.GetItemChecked(i) = True Then
                mensaje = mensaje & "Item " & (i + 1).ToString & " = " & CheckedListBox1.Items(i).ToString & ControlChars.CrLf
                If CheckedListBox1.Items.Item(i).ToString = "Lupulos" Then
                    For N_lupulo = 0 To Receta_Nueva.Dgv_Tabla_Lupulos.RowCount - 1

                        CheckedListBox2.Items.Add(Receta_Nueva.Dgv_Tabla_Lupulos.Rows(N_lupulo).Cells(1).Value)

                    Next
                End If
                If CheckedListBox1.Items.Item(i).ToString = "Maltas" Then
                    For N_fermentable = 0 To Receta_Nueva.DGV_Tabla_Fermentables.RowCount - 1

                        CheckedListBox2.Items.Add(Receta_Nueva.DGV_Tabla_Fermentables.Rows(N_fermentable).Cells(1).Value)

                    Next
                End If
            End If
        Next
        MessageBox.Show(mensaje)
       
           End Sub

    • Marcado como respuesta JETET viernes, 27 de noviembre de 2015 6:52
    viernes, 27 de noviembre de 2015 6:52
    |