TEXBOX AUTOCOMPLETE

GLEDSON26 06/08/2015 18:52:11
#449687
Bom Galera estou com 2 Duvidas. relacionadas ao TextBox.

1ª - como faz um Texbox Autocomplete direto do banco de dados. Access
Tipo (eu insiro umas letras e em seguinda ja aparece o cliente q esta no banco de dados. ao dar ENTER selecionar o cliente dentro do TextBox. por exemplo. no Texbox eu digito A dae aparecer logo uma lista com todos os dados gravados no banco começando com essa letra..A...antonio, augusto, aurelio, andré, assis, ........ nessa lista em cima do texbox q eu quero digitar, dae posso ir com a seta do teclado para baixo e para cima ate escolher o cliente e dar ENTER o cliente ficar no Textbox.)

------------------------------

2ª - no evento q fiz trocar o [Ô]TAB[Ô] por ENTER[Ô], funcionou dou ENTER e passa normal, Porem se eu digitar uma descricao e der ENTER ele muda para outra TExtbox porem apaga o q eu digitei, e tbm se eu digitar e for apagar (não apaga) nao faz nada com a tecla de apagar, posso digitar mais nao apaga. se eu der enter muda de texbox porem apaga tudo.

galera tem um metodo tbm qnd der ENTER pular para outra textbox e filtrar uma cor na textbox que estiver selecionado.

agradeço desde de já pela ajuda. e sugestoes.
JABA 06/08/2015 19:04:24
#449688 Resposta escolhida
Autocomplete:

http://www.macoratti.net/09/02/vbn_aad.htm

Enter:

http://www.macoratti.net/vbn5_ctl.htm
GLEDSON26 07/08/2015 18:51:37
#449719
Amigo, eu fiz esse exemplo por esses links.
so que qnd dou ENTER [Ô].apaga o q eu digite.[Ô]
JABA 07/08/2015 19:14:52
#449720
Não se esqueça de colocar o KeyPreview do form como True.
GLEDSON26 07/08/2015 19:35:04
#449722
ja fiz, justamente isso, mais qnd dou enter pula e apaga o campo q eu tava. e se eu digitar e quiser apagar nao apaga .. no back
JABA 07/08/2015 19:40:34
#449723
Posta seu código aí, por favor.
GLEDSON26 07/08/2015 19:47:45
#449724
[ô]Aqui iria fazer para converter os textox e dar o valor ao apertar Tab ou sair com clik
[ô]Private Sub myTextBox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
[ô]If (e.KeyCode = Keys.Enter) Then
[ô]Totaltext = (Valor1 - Valor2)
[ô]txtValorTotalNota.Text = Totaltext.ToString([Ô]C2[Ô])
[ô] End If
[ô]End Sub
JABA 07/08/2015 19:58:21
#449725
Pow cara, você nem leu o que havia te passado. Use o evento KeyPress.

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Convert.ToChar(13) Then
   e.Handled = True
    SendKeys.Send([Ô]{TAB}[Ô])
End If
End Sub


Se você quiser fazer isso para todos os controles do form, use o evento KeyPress no próprio form e não esqueça de alterar a propriedade KeyPreview do formulário para True

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

If e.KeyChar = Convert.ToChar(13) Then
   e.Handled = True
    SendKeys.Send([Ô]{TAB}[Ô])
End If

End Sub
GLEDSON26 07/08/2015 20:24:20
#449726
Não deu certo Copiei seu codigo coloquei fiz tudo. agora qnd vou digitar ele nao digita nada. o enter pula . mais qnd digito nao aparece nada. fica contanto mais nao passa de 1 letra ou numero
quer da uma olhada no acesso remoto ? acho q olhando vc vai entender melhor
KURTGU 07/08/2015 20:46:48
#449727
Fiz aqui usando o mesmo codigo e funcionou de boa...
KURTGU 07/08/2015 20:48:08
#449728
[txt-color=#e80000]NO SEU CODIGO FALTA ALGO E ELE ESTA TODO COMENTADO...
[/txt-color]
[ô]Private Sub myTextBox_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)[txt-color=#e80000]<<<<<<<<FALTA ALGO AQUII>>>>>>[/txt-color]
[ô]If (e.KeyCode = Keys.Enter) Then
[ô]Totaltext = (Valor1 - Valor2)
[ô]txtValorTotalNota.Text = Totaltext.ToString([Ô]C2[Ô])
[ô] End If
[ô]End Sub
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar