Bom dia, alguém pode me explicar como faço para quando eu digitar em uma textbox o conteúdo ir se completando ao tempo que eu digito a informação?

 

Obrigada

Faça isto coloque em seu porjeto um textbox uma listbox preencha o listbox com as palavras mais usadas pelo projeto e pronto.

 

veja o código

 

Option Explicit
Private Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Sub Form_Load()
List1.AddItem "Banana"
List1.AddItem "Laranja"
List1.AddItem "Limão"
List1.AddItem "Maça"
List1.AddItem "Melancia"
List1.AddItem "Morango"
List1.AddItem "Pera"
End Sub

 

Private Sub Text1_Change()
Dim pos As Long
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))

If List1.ListIndex = -1 Then
pos = Text1.SelStart
Else
pos = Text1.SelStart
Text1.Text = List1
Text1.SelStart = pos
Text1.SelLength = Len(Text1.Text) - pos
End If

End Sub

Private Sub Text1_KeyDown(KeyCode As _
Integer, Shift As Integer)
On Error Resume Next
If KeyCode = 8 Then 'Backspace
If Text1.SelLength <> 0 Then
Text1.Text = Mid$(Text1, 1, _
Text1.SelStart - 1)
KeyCode = 0
End If
ElseIf KeyCode = 46 Then 'Del
If Text1.SelLength <> 0 And Text1.SelStart <> 0 Then
Text1.Text = ""
KeyCode = 0
End If
End If
End Sub

 

sei não.. acho que o que ela tá querendo é que faça uma consulta pelo banco e preencha a caixa de texto...

 

vou te mandar por e-mail e vc vê se é isso que vc tá querendo, ok.

 

luciano

S for isto basta preencher a list com os dados e colocar a propriedade visible da lis como false.