Menü mit _KeyDown-Event Das Menü in VB besitzt leider kein _KeyDown() -Event. Hier nun ein Script mit dem Sie diesen "Fehler" ausbügeln können.
Autor:   Jürgen Fienau	Bewertung:     [ Jetzt bewerten ]	Views:  3.846
computer.net-berlin.de	System:  Win9x, WinNT, Win2k, WinXP, Vista, Win7	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Das Menü in VB besitzt leider kein _KeyDown() -Event. Wie kann man aber nach Ausklappen eines Menüs bspw. die Shift-Taste auswerten?

Nachfolgend eine Möglichkeit, die zeigt, wie's geht.

Benötigt wird hierzu ein Timer-Control, in dem die Shift- und Strg-Tasten über die API-Funktion GetAsyncKeyState abgefragt und in einer globalen Variable gespeichert werden. Der Timer wird immer dann gestartet, wenn ein Menüeintrag in der obersten Ebene (Menüleiste) angeklickt wurde.

Option Explicit
 
' benötigte API-Deklarationen
Private Declare Function GetAsyncKeyState Lib "user32.dll" ( _
  ByVal nVirtKey As Long) As Integer
 
Dim bShift As Boolean
Dim bStrg As Boolean

Private Sub MenuFile_Click()
  ' Timer starten
  tmrHotKey.Interval = 10
  tmrHotKey.Enabled = True
End Sub

Private Sub tmrHotKey_Timer()
  bShift = False
  bStrg = False
 
  ' Prüfen, ob Shift-Taste gedrückt
  If GetAsyncKeyState(vbKeyShift) And 1 = 1 Then bShift = True 
 
  ' Prüfen, ob Strg-Taste gedrückt
  If GetAsyncKeyState(vbKeyControl) And 1 = 1 Then bStrg = True
End Sub

Im Click-Event des jeweiligen Eintrags des Menüs können Sie dann den Status der Shift und Strg-Taste abfragen:

Private Sub mnuFileNew_Click()
  ' Wichtig! Timer wieder ausschalten
  tmrHotKey.Enabled = False
 
  If bShift Then ...
  If bStrg Then ...
 
  ...
End Sub