Atalho

[lauromneto 0]

Bom dia....

 

Gostaria de saber se no VB tem como eu digitar ( aperta a tecla 1 do teclado numérico ) e automaticamente executar um evento.....

[faelwan 0]

Fala lauromneto!

 

Olha tem um jeito de fazer isso que você quer sim...

 

No seu Form Principal, sete a propriedade KeyPreview para true,

então gere o evento KeyPress do formulário

 

então você testa com um if a tecla que o usuario digitou e dá uma instrução, por exemplo:

 

Private Sub Form_KeyPress(KeyAscii As Integer)

if KeyAscii = 13 then
frmCadastro.show
end if

End Sub

'Note que KeyAscii é uma variável que busca a tecla que o usuário digitou

Esse número "13", obedece a uma regra de padronização americana listada em uma tabela (Código ASCII)

Segue a tabela:

http://pt.wikipedia.org/wiki/ASCII (restrinja-se ao decimal)

 

No caso o 13 é o código referente à tecla "Enter"

Qualquer coisa posta ai http://forum.imasters.com.br/public/style_emoticons/default/grin.gif

[scorpio 7]

Pra complementar..

Se você por exemplo quiser SHIFT+C, pode usar:

Private Sub Form_KeyPress(KeyAscii As Integer)

if KeyAscii = vbKeyC then
frmCadastro.show
end if

End Sub

Flw