Buscar dato de un List1 desde un boton

[hunter18]

Quiero encontrar un item especifico de un List1 pero no recuerdo como era??
Me parece que debo hacer un bucle for para encontrar el dato, espero me puedan ayudar.

Código:

Private Sub Form_Load()
Text2 = "5"
End Sub

Private Sub Command1_Click()
If Text2.Text = List1 Then 'List1 contendra varios item's del 1 al 10
   MsgBox "Encontro el dato del Text2"
Else
   MsgBox "No encontro el dato"
End If
End Sub

[David]

Prueba así:

Código vb:

Dim ListItems As Integer
For ListItems = 0 To List1.ListCount - 1
    If Text2.Text = List1.List(ListItems) Then
        'Encontrado
        Exit For
    End If
Next ListItems
 

[FTech]

También podrías hacerlo asi:

Código VB:

Dim bus As String
Dim i As String
Dim enc As Boolean
i=0
enc=FALSE
bus="HOLA"
while i<List1.ListCount AND NOT enc
         if List1.List(List1.ListIndex)=bus then
                enc=TRUE
         end if
         i=i+1
wend
 

David gracias por el EXIT FOR, no lo conocía.

Un saludo

[hunter18]

muy bueno, saludos