KEYCODE - TECLAS PRESSIONADAS COMBINADAS
Pessoal...
Como procedo para que ao ser pressionada duas teclas combinadas seja disparado um evento ?
Exemplo:
Ao ser pressionada as teclas Shift + Enter seja apresentada uma mensagem...
Tentei assim:
Sem sucesso...
Lembrando, isso deve ocorrer quando o foco estiver na TextBox, como está no exemplo.
Como procedo para que ao ser pressionada duas teclas combinadas seja disparado um evento ?
Exemplo:
Ao ser pressionada as teclas Shift + Enter seja apresentada uma mensagem...
Tentei assim:
Private Sub txt1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyShift And vbKeyReturn: MsgBox [Ô]Evento[Ô]
End Select
End Sub
Sem sucesso...
Lembrando, isso deve ocorrer quando o foco estiver na TextBox, como está no exemplo.
Tente este código para capturar ctrl+enter
If KeyCode = vbKeyReturn And Shift = 2 Then
.....
end if
parâmetro Shift, tecla acionada:
6 = Alt Gr
5 = ????Não sei????
4 = Alt
3 = Ctrl+Shift
2 = Ctrl
1 = Shift
0 = anteriores não pressionadas
Espero ter ajudado.
If KeyCode = vbKeyReturn And Shift = 2 Then
.....
end if
parâmetro Shift, tecla acionada:
6 = Alt Gr
5 = ????Não sei????
4 = Alt
3 = Ctrl+Shift
2 = Ctrl
1 = Shift
0 = anteriores não pressionadas
Espero ter ajudado.
Funcionou, mas no lugar do [Ô]2[Ô] coloquei [Ô]1[Ô], pois a combinação é Shift + Enter...
Obrigado !
Obrigado !
Tópico encerrado , respostas não são mais permitidas