LIGAR E DESLIGAR PROGRAMA USANDO TECLADO

RICARDO.RAPA 05/06/2011 01:12:49
#375884 Resposta escolhida

Deixe sua aplicação em hide e depois configura as teclas correspondentes

RICARDO.RAPA 05/06/2011 01:26:37
#375885

A idéia é mais ou menos essa: Um timer com interval = 1

Private Declare Function GetAsyncKeyState Lib [Ô]user32[Ô] (ByVal vKey As KeyCodeConstants) As Long

Private Function KeyPress(ByVal vKey As KeyCodeConstants) As Boolean
KeyPress = GetAsyncKeyState(vKey) And &H8000
End Function

Private Function KeyUp(ByVal vKey As KeyCodeConstants) As Boolean
KeyUp = GetAsyncKeyState(vKey) And &H8000
End Function

Private Sub Form_Resize()
Form1.Hide
End Sub

Private Sub Timer1_Timer()

If KeyPress(vbKeyF3) Then
Form1.Show
End If

If KeyUp(vbKeyF4) Then
Form1.Hide
End If

End Sub

EDERMIR 05/06/2011 09:10:24
#375886

Acredito que não seja possível pois quando a aplicação está em segundo plano o controle do teclado está na aplicação principal.

Qual a sua necessidade para podermos ajudar? Você poderá atribuir uma tecla de atalho para executar a aplicação mas também não sei se ajuda.

ZANDOTC 08/06/2011 17:27:32
#376198

Olá Agradeço a colaboração de todos.

RICARDO_RAPA utilizei um código semelhante ao seu porém em VB.net, e finalizei a aplicação. Agradeço pela ajuda, seu código irá ajudar bastante, em outro projeto.