TOOLBAR MENU
Olá, amigos.
Coloquei no formulário, uma ToolBar e um ImageList para fazer um menu com os botões com imagens e tudo o mais. E gostaria de saber se é possÃvel associar as teclas ALT+letra sublinhada no menu para executar a ação correspondente, asim como é feito nos botões. Segue a cópia do formulário para se alguém puder me ajudar.
Até mais.
Coloquei no formulário, uma ToolBar e um ImageList para fazer um menu com os botões com imagens e tudo o mais. E gostaria de saber se é possÃvel associar as teclas ALT+letra sublinhada no menu para executar a ação correspondente, asim como é feito nos botões. Segue a cópia do formulário para se alguém puder me ajudar.
Até mais.
Não falta alguma coisa no download não pra min so veio o projeto e nenhum form
Falhou, não consegui anexar. Estou enviando um .doc do word com a tela do formulário
Ja tentou usar o KEYPRESS
Já pensei em usar o KeyDown do formulário, porém não sei qual o código da tecla ALT junto com outra tecla. é que eu pensei que na própria Toolbar já tivesse esse recurso, mas pelo jeito não tem, não é?
keycode do alt = 18
keycode do + e 187 e keyascii 43
keycode do s 83 keyascii e 115
keycode do + e 187 e keyascii 43
keycode do s 83 keyascii e 115
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
ShiftKey = Shift And 7
Select Case ShiftKey
Case 1
Print [Ô]Tecla pressionada: SHIFT.[Ô]
Case 2
Print [Ô]Tecla pressionada: CTRL.[Ô]
Case 4
Print [Ô]Tecla pressionada: ALT.[Ô]
If KeyCode = vbKeyA Then
Print [Ô]Tecla pressionada: ALT + A.[Ô]
End If
Case 3
Print [Ô]Tecla pressionada: SHIFT and CTRL.[Ô]
Case 5
Print [Ô]Tecla pressionada: SHIFT and ALT.[Ô]
Case 6
Print [Ô]Tecla pressionada: CTRL and ALT.[Ô]
Case 7
Print [Ô]Tecla pressionada: SHIFT, CTRL, and ALT.[Ô]
End Select
End Sub
Fonte: Visual Basic Concepts
The KeyDown and KeyUp Events
ShiftKey = Shift And 7
Select Case ShiftKey
Case 1
Print [Ô]Tecla pressionada: SHIFT.[Ô]
Case 2
Print [Ô]Tecla pressionada: CTRL.[Ô]
Case 4
Print [Ô]Tecla pressionada: ALT.[Ô]
If KeyCode = vbKeyA Then
Print [Ô]Tecla pressionada: ALT + A.[Ô]
End If
Case 3
Print [Ô]Tecla pressionada: SHIFT and CTRL.[Ô]
Case 5
Print [Ô]Tecla pressionada: SHIFT and ALT.[Ô]
Case 6
Print [Ô]Tecla pressionada: CTRL and ALT.[Ô]
Case 7
Print [Ô]Tecla pressionada: SHIFT, CTRL, and ALT.[Ô]
End Select
End Sub
Fonte: Visual Basic Concepts
The KeyDown and KeyUp Events
Caro Jonathan, deculpe a demora em responder, mas só agora pude verificar. Era isso mesmo que eu precisava. Acertou [Ô]na mosca[Ô]. Valeu, obrigado e abraços a todos.
Até mais.
Até mais.
Tópico encerrado , respostas não são mais permitidas