Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Executar TextBox ao pressionar Enter [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
samuka004
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Abr 07, 2015 9:02 am

Executar TextBox ao pressionar Enter [RESOLVIDO]

Mensagem por samuka004 »

Olá, como descrito no título, eu gostaria de saber como faz para uma TextBox executar um código após pressionar Enter, pois a cada tecla apertada ele executa o código.

Como exemplo eu estou usando um WebBowser com o seguinte código:

Sub pesquisagoogle()
WebBrowser1.Navigate "https://www.google.com.br/?gfe_rd=cr&ei ... _rd=ssl#q=" + (TextBox1.Text)

End Sub

estou usando esse código:
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If (KeyAscii = 13) Then 'Keyascii 13 = Enter key
GoTo pesquisagoogle
End If
End Sub


Porém está dando o seguinte erro:

Erro de compilação:
A declaração do procedimento não corresponde à descrição do evento ou procedimento que possui o mesmo nome.
Editado pela última vez por samuka004 em Sex Abr 10, 2015 9:49 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Rafael Monteiro
Consultor
Consultor
Mensagens: 277
Registrado em: Seg Nov 28, 2011 8:27 am
Localização: Sorocaba - SP
Contato:

Re: Executar TextBox ao pressionar Enter

Mensagem por Rafael Monteiro »

Insira esse código.

Código: Selecionar todos

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then pesquisagoogle
End Sub





samuka004
Acabou de chegar
Acabou de chegar
Mensagens: 7
Registrado em: Ter Abr 07, 2015 9:02 am

Re: Executar TextBox ao pressionar Enter

Mensagem por samuka004 »

Nus cara, vlw.
Esse pegou perfeitamente


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder