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:  Auto selecionar um item no ListBox ao digitar em um TextBox
Postada em 30/10/2002 por Roberto            
'Adicione um ListBox e um TextBox em um novo projeto e adicione o seguinte código

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F

Private Sub Form_Load()
    With List1
        .AddItem "Computador"
        .AddItem "Telefone"
        .AddItem "Modem"
        .AddItem "Impressora"
        .AddItem "Scanner"
        .AddItem "Sound Blaster"
        .AddItem "Teclado"
        .AddItem "CD-Rom"
        .AddItem "Mouse"
    End With
End Sub

Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
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