Hotkey-Beispiel Bestimmte Aktionen im Hintergrund ausführen beim Drücken einer bestimmten Tastenkomnbintion (HotKey)...
Autor:   Marcel Colley	Bewertung:     [ Jetzt bewerten ]	Views:  31.058
go.to/gigawin	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 59 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Soll Ihr Programm/Ihre Anwendung im Hintergrund ausgeführt werden und bei Drücken einer bestimmten Taste/Tastenkombination (Hotkey) automatisch aktiviert werden, so ist unser heutiger Tipp genau richtig für Sie.

Benötigt wird hierzu lediglich ein Timer, welcher in kurzen Zeitabständen den Tastencode (Hotkey) prüft. Die Prüfung erfolgt mittels der Windows-API-Funktion GetAsyncKeyState.

' zunächst die benötigten API-Deklarationen
Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  ByVal nVirtKey As Long) As Integer
Private Const KeyPressed As Integer = -32767
 
Private Sub Form_Load()
  ' Der Timer sollte möglichst schnell
  ' eingestellt werden
  Timer1.Interval = 20
  Timer1.Enabled = True
  Me.Hide
  App.TaskVisible = False
End Sub
 
Private Sub Timer1_Timer()
  Dim HotKey As Long
 
  ' F12 - Form anzeigen
  HotKey = vbKeyF12
 
  If GetAsyncKeyState(HotKey) = KeyPressed Then 
    Me.Show
    App.TaskVisible = True
  End If
End Sub