Rubrik: Maus & Tastatur · Tastatursteuerung | VB-Versionen: VB4, VB5, VB6 | 05.03.01 |
![]() Bestimmte Aktionen im Hintergrund ausführen beim Drücken einer bestimmten Tastenkomnbintion (HotKey)... | ||
Autor: ![]() | Bewertung: ![]() ![]() ![]() ![]() ![]() | Views: 30.752 |
go.to/gigawin | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | ![]() |
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