none
Varios Items seclecionados en un CheckedListBox1 RRS feed

  • Pregunta

  • 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

  • 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