USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página