TECLA DE ATALHO NÃO FUNCIONA

JCM0867 20/09/2014 14:01:32
#441386
Olá pessoal
o que pode fazer esse comando não funcionar em um form? no VB.NET

Private Sub frmPagamentos_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.K Then
MsgBox([Ô]Precionou [K][Ô])
End If
End Sub

Se eu colocar em um form1 Novo ele funciona

Grato
NICKOLASCARLOS 20/09/2014 16:57:00
#441388
Você pode fazer isso de outra maneira, bem melhor, assista esse video aki:

NILSONTRES 20/09/2014 17:04:02
#441389 Resposta escolhida
Você lembrou de deixar a propriedade KeyPreview do formulário =True ?
JCM0867 20/09/2014 19:38:45
#441391
NICKOLASCARLOS, agradeço, já tinha visto esse vídeo, não vejo muita necessidade de usar um timer para tão pouco
bom para caso queira usar teclas mesmo com a tela minimizada

NILSONTRES, isso mesmo estava faltando Keypreview = true, aí funcionou, não lembrei dessa propriedade, agradeço.

Só mais uma duvida

no meu exemplo ele funciona precionando K, ctrl+K, Shift+K
como faço para aceitar somente ctrl+K ?

Grato
NILSONTRES 20/09/2014 21:03:16
#441392
+ OU - ISSO
If e.KeyCode = Keys.ShiftKey And e.Control = True Then
JCM0867 21/09/2014 00:44:05
#441395
Funcionou assim:

If e.Control AndAlso e.KeyCode = Keys.K Then

inclusive não conhecia os operadores [txt-color=#0000f0]AndAlso[/txt-color] e [txt-color=#0000f0]OrElse[/txt-color] que só tem no VB.NET
Tópico encerrado , respostas não são mais permitidas
Voltar