COMO CAPTURAR F2 NO MDI-FORM E NO PROJETO TODO ?

USUARIO.EXCLUIDOS 19/07/2005 10:32:10
#94944
Estou precisando capturar as pf's (F2, F3, F4 ....) no menu principal, ou seja, no MDI-Form e deixar isso ativo para o projeto todo, para que em qualquer lugar do sistema, qdo teclado essa tecla execute alguma coisa ... mais não estou conseguindo, se alguém puder me ajudar agradeço muito
USUARIO.EXCLUIDOS 19/07/2005 10:45:49
#94953 
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

'Timer1 -> Interval = 500

Private Sub Timer1_Timer()
    TmpF2 = GetAsyncKeyState(vbKeyF2)

    If TmpF2 Then KeyF2 = True
End Sub


Espero que tenha ajudado, agora é só você implementar nos forms.
USUARIO.EXCLUIDOS 19/07/2005 10:46:55
#94955
OPS... corrigindo:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 
Dim KeyF2 As Boolean

'Timer1 -> Interval = 500 

Private Sub Timer1_Timer() 
    TmpF2 = GetAsyncKeyState(vbKeyF2) 

    If TmpF2 Then KeyF2 = True 
End Sub
USUARIO.EXCLUIDOS 20/07/2005 08:43:13
#95112
Não é bem isso que eu queria. Eu queria colocar algum comando ou coisa assim, no menu principal ou módulo que em qualquer lugar do sistema ele respondesse, não queria colocar em todos os forms. Mais obrigado mesmo assim ...
Tópico encerrado , respostas não são mais permitidas
Voltar