recorrer listas en vb

[Ka0stj]

Hola marinella

Puedes hacerlo de la siguientes formas:

Mediante el FindStringExact

Código vb:

Dim valor As Integer = 0
 
        valor = Me.ListBox1.FindStringExact(Me.TextBox1.Text)
 
        If valor <> ListBox.NoMatches Then
            ListBox1.SetSelected(valor, True)
        Else
            MsgBox("No existe.")
        End If
 

Ó recorriendo toda la lista comparando los Items.

Código vb:

Dim bandera As Boolean = False
 
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If Me.ListBox1.Items(I) = "La cadena que buscaras" Then
                bandera = True
                Exit For
            End If
        Next
 
        If bandera = True Then
            MsgBox("Si existe.")
        Else
            MsgBox("No existe.")
        End If
 

Espero y te sirva, Saludos!