Olá amigos...

 

Como faço para simular o clicar da tecla Esc, via código

 

Muito obrigado por qualquer ajuda...abraços...

Correto... mas não consigo montar o envento...

 

Se fizer tal coisa então clica Esc

 

entendeu? muito obrigado pela atenção

da uma olhada nesse fontes veja se ajuda.......nao esqueça de deixar a propriedade do formulario keyPreview = true 

 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo erro
'faz funcionaro o tab do teclado pra mudar de txt
If KeyCode = 40 Then
'MsgBox "Sair"
End If
   
   
   Select Case KeyCode
      Case vbKeyF2
           '
           DoEvents
           MsgBox "<F2> - Chamada Funcao Novo!"
           '
          
            Case vbKeyF3
           '
           DoEvents
           MsgBox "<F3> - Chamada Funcao Incluir!"
          
           
            Case vbKeyF4
           '
           DoEvents
           MsgBox "<F4> - Chamada Funcao Excluir!"
          
           Case vbKeyF5
           '
           DoEvents
           MsgBox "<F5> - Cahamda Funcao Cancelar!"
           '
           Case vbKeyF6
           '
           DoEvents
           MsgBox "<F6> - Chamada Funcao Alterar!"
           '
          
           Case vbKeyF7
           '
           DoEvents
           MsgBox "<F7> - Chamada Funcao Pesquisar!"
           '
                  
           Case vbKeyF8
           '
           DoEvents
           MsgBox "<F8> - Chamada Funcao Imprimir!"
           '
   End Select
   '
   'KeyAscii = 0
   '
   
    'faz funcionar as setas do teclado
If KeyCode = vbKeyLeft And ActiveControl.SelStart = 0 Then
        SendKeys "+{tab}"
    ElseIf KeyCode = vbKeyRight And ActiveControl.SelStart = Len(ActiveControl.Text) Then
        SendKeys "{tab}"
    End If
erro:
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'este codigo faz apertando enter pula de linha
 If KeyAscii = 13 Then
     SendKeys vbTab
     KeyAscii = 0
  End If
  'fexa formulario com o esc
 If KeyAscii = 27 Then
        Unload Me
    End If
End Sub

 

 

Os codigos serão de muta valia no entanto ainda não é o que preciso.

Vou ser mais objetivo...

 

Quando eu clicar em um botão de comando então que acione o Esc, portanto preciso que no precedure do botão eu tenha esse tipo de codigo, entendeu?

 

obrigado por mais essa ajuda...abraços...

Como vc programou a tecla "esc" ou seja... qual o tratamento de código q vc faz qdo o usuário tecla "ESC" ? Chama uma procedimento? Executa um código? Fecha o formulário?