Buscar en un ListBox - VB 6.0

[ranefi]

Agregar 3 controles; 1 CommandButton, 1 TextBox, 1 ListBox e insertar el siguiente código en un...

Formulario

Function ListIsIn(lst As ListBox, zString As String) As Boolean
    On Error Resume Next
    
    For i = 0 To lst.ListCount
        If lst.List(i) = zString Then ListIsIn = True: lst.ListIndex = i: GoTo grr
    Next i
    ListIsIn = False
grr:
End Function

Private Sub Command1_Click()
    Me.Caption = ListIsIn(List1, Text1.Text)
End Sub

Private Sub Form_Load()
    List1.AddItem "MÉXICO"
    List1.AddItem "VENEZUELA"
    List1.AddItem "ARGENTINA"
    List1.AddItem "ESPAÑA"
    List1.AddItem "GUATEMALA"
    List1.AddItem "CHILE"
End Sub

Private Sub Text1_Change()
    Me.Caption = ListIsIn(List1, Text1.Text)
End Sub

Muy sencillo

[Arielo]

Muy bueno...
Si cambiamos esto:

 Function ListIsIn(lst As ListBox, zString As String) As Boolean
    On Error Resume Next
    
    For i = 0 To lst.ListCount
        If lst.List(i) = zString Then ListIsIn = True: lst.ListIndex = i: GoTo grr
    Next i
    ListIsIn = False
grr:
End Function

por esto:

Function ListIsIn(lst As ListBox, zString As String) As Boolean
	On Error Resume Next
	
	For i = 0 To lst.ListCount
		If InStr(UCase$(lst.List(i)), UCase$(zString)) Then ListIsIn = True: lst.ListIndex = i: GoTo grr
	Next i
	ListIsIn = False
grr:
End Function

podremos ir chequeando que la cadena que ingresemos, esté dentro de las opciones, mientras la estamos escribiendo, e independientemente de si se escribe con mayúsculas, minúsculas, o una mezcla...

[ranefi]

Muy bueno...
Si cambiamos esto:

 Function ListIsIn(lst As ListBox, zString As String) As Boolean
    On Error Resume Next
    
    For i = 0 To lst.ListCount
        If lst.List(i) = zString Then ListIsIn = True: lst.ListIndex = i: GoTo grr
    Next i
    ListIsIn = False
grr:
End Function

por esto:

Function ListIsIn(lst As ListBox, zString As String) As Boolean
	On Error Resume Next
	
	For i = 0 To lst.ListCount
		If InStr(UCase$(lst.List(i)), UCase$(zString)) Then ListIsIn = True: lst.ListIndex = i: GoTo grr
	Next i
	ListIsIn = False
grr:
End Function

podremos ir chequeando que la cadena que ingresemos, esté dentro de las opciones, mientras la estamos escribiendo, e independientemente de si se escribe con mayúsculas, minúsculas, o una mezcla...

Ansina es