Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Claudio Bianco

Acionar um Botão através de uma tecla do teclado

Recommended Posts

Ex:

 

Ao pressionar ENTER .. aciona o Botao:

 

Private Sub Text1_KeyPress(KeyAscii As Integer)if keyascii = 13 then Command1_Click()End SubPrivate Sub Command1_Click()Msgbox "Acionado"End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

Só atualizando o que o amigo Dennis postou...Private Sub Text1_KeyPress(KeyAscii As Integer) 'sem o parenteses if keyascii = 13 then Command1_ClickEnd Sub

Ex:Ao pressionar ENTER .. aciona o Botao:

Private Sub Text1_KeyPress(KeyAscii As Integer)if keyascii = 13 then Command1_Click()End SubPrivate Sub Command1_Click()Msgbox "Acionado"End Sub

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.