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
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