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