|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Localizar em um ListBox a letra digitada
|
 |
|
|
|
Postada em 25/11/2002 por Salgadinho
'Adicione no Form um controle ListBox.
Private Sub Form_Load()
ListarTudo
End Sub
Private Sub Text1_Change()
Dim A As Integer
Dim Achou As Boolean
Achou = False
ListarTudo
If Trim$(Text1) = "" Then List1.ListIndex = -1: ListarTudo: Exit Sub
For A = List1.ListCount - 1 To 0 Step -1
If LCase$(Left(List1.List(A), Len(Text1))) = LCase$(Trim$(Text1)) Then
List1.ListIndex = A
Achou = True
Else
List1.RemoveItem A
End If
Next
If Achou = False Then
List1.ListIndex = -1
ListarTudo
End If
End Sub
Sub ListarTudo()
List1.Clear
With List1
.AddItem "Bruno"
.AddItem "Breno"
.AddItem "Adriana"
.AddItem "Gabriel"
.AddItem "Esequiel"
.AddItem "Maria"
.AddItem "Rogério"
End With
End Sub
|
|
|
|
|
