- Private Sub ComboParse(ByVal Cmb As ComboBox, ByVal Txt As TextBox)
- Dim TxtVal$, Lenght%, Nb%, I%, ValList$, Str$
-
- TxtVal = Txt.Text
- Lenght = Len(TxtVal)
- Nb = Cmb.ListCount
- I = 0
-
- For I = 0 To Nb
- ValList = Cmb.List(I)
- Str = Left(ValList, Lenght)
-
- If Str = TxtVal Or UCase(Str) = TxtVal Or LCase(Str) = TxtVal Then
- Cmb.ListIndex = I
- Exit For
- End If
-
- DoEvents
- Next I
- End Sub
Private Sub ComboParse(ByVal Cmb As ComboBox, ByVal Txt As TextBox)
Dim TxtVal$, Lenght%, Nb%, I%, ValList$, Str$
TxtVal = Txt.Text
Lenght = Len(TxtVal)
Nb = Cmb.ListCount
I = 0
For I = 0 To Nb
ValList = Cmb.List(I)
Str = Left(ValList, Lenght)
If Str = TxtVal Or UCase(Str) = TxtVal Or LCase(Str) = TxtVal Then
Cmb.ListIndex = I
Exit For
End If
DoEvents
Next I
End Sub