PDA

Ver la versión completa : Buscar en un ListBox - VB 6.0



ranefi
30/08/2007, 20:14
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 :D

Arielo
03/09/2007, 09:41
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
03/09/2007, 16:13
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 :D