Entradas

Mostrando entradas de octubre 22, 2012

Control ListBox Visual Basic

Imagen
Manejo de Listas control ListBox - Visual Basic 2010


Código fuente del formulario:

Private Sub btntodos1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntodos1.Click
        Dim i As Integer
        If lsttabla1.Items.Count > 0 Then 'Si no está en vacio la lista
            'Recorremos el ListBox1
            For i = 0 To lsttabla1.Items.Count - 1
                lsttabla2.Items.Add(lsttabla1.Items(i))
            Next
            'Borramos la lista
            lsttabla1.Items.Clear()
        End If
        'cuenta los valores de la lista
        txttotal1.Text = lsttabla1.Items.Count
        txttotal2.Text = lsttabla2.Items.Count
    End Sub

    Private Sub btnadd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd1.Click
        lsttabla1.Items.Add(txtvalor1.Text)      
        txtvalor1.Clear()
        txtvalor1.Focus()
        'cuenta los valores de la lista
        txttotal1.Text = lsttabla1.Items.C…