DIFICUDADE EMCRIAR ATALHOS PARA OS BOTOES

USUARIO.EXCLUIDOS 08/05/2004 21:12:00
#23719
Criei 2 Botões na minha tela

um:

cmdnovo [Novo]
cmdExcluir [ Excluir ]

e criei um comando para quando pressionar o CTRL + N
Adicionar um novo registro e o mesmo para o excluir.

O Problema é que ele só funciona quando eu clico no botão e arrasto para qualquer lugar e depois eu pressiono o CTRL + N que ele funciona, o que deve ser?
CAJU 09/05/2004 11:15:48
#23753 Resposta escolhida
form:
keypreview = true


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
      ShiftTeste = Shift And 7

      Select Case ShiftTeste

        Case 1
          Print "Tecla SHIFT pressionada."
         Case 2
           Print "Tecla CTRL pressionada."
           If KeyCode = vbKeyN Then cmdNovo_click
           
        Case 4
          Print "Tecla ALT pressionada."
        Case 3
          Print "Teclas SHIFT e CTRL pressionadas."
        Case 5
          Print "Teclas SHIFT e ALT pressionadas."
        Case 6
          Print "Teclas CTRL e ALT pressionadas."
        Case 7
          Print "Teclas SHIFT, CTRL, e ALT pressionadas."
     End Select
End Sub


blz?
Tópico encerrado , respostas não são mais permitidas
Voltar