none
como comparo elementos de un listbox RRS feed

  • Pregunta

  • Hola, queria saber como comparar elementos de un listbox despues pasar ese elemento a otro listbox.
    Yo hice esto:
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            If ListBox2.SelectedIndex <> -1 Then
                Dim sueldos() As String
                Dim pos As Boolean = False
                Dim lugar As Integer



                lugar = ListBox2.SelectedIndex
                'sueldos = Split(ListBox2.co.ToString(), "-")
                For i = 0 To ListBox2.Items.Count - 1
                    sueldos = (Split(ListBox2.Items(i), "-"))
                    If CDbl(sueldos(1)) < 1000 Then
                        pos = True

                    End If

                    If pos Then
                        ListBox1.Items.Add(sueldos(0) & "-" & sueldos(1))
                        ListBox2.Items.Remove(ListBox2.Items(lugar))
                    Else
                        MsgBox("no ahi sueldos menores a 1000")
                    End If
                Next
            Else
                MsgBox("No hay elementos en la lista, o no ha seleccionado ningun elemento")
            End If

        End Sub
    martes, 21 de julio de 2009 18:58

Respuestas

  • Hola:

    Si tu intención es añadir elementos a un control ListBox, siempre y cuando no existan con anterioridad en el mismo, lo puedes hacer de una manera mucho más fácil:

            ' Indice del elemento seleccionado
            '
            Dim index As Int32 = ListBox1.SelectedIndex

            ' ¿Hay algún elemento seleccionado?
            '
            If index = ListBox.NoMatches Then Return

            ' Elemento actualmente seleccionado en el control ListBox1
            '
            Dim item As Object = ListBox1.SelectedItem

            ' Si no existe en el control ListBox2, ...
            '
            If Not ListBox2.Items.Contains(item) Then
                ' ... lo añadimos ...
                ListBox2.Items.Add(item)
                ' ... y eliminamos el elemento del control ListBox1
                ListBox1.Items.RemoveAt(index)
            End If

    Un saludo


    Enrique Martínez [MS MVP - VB]
    miércoles, 22 de julio de 2009 8:37