Zur Hauptseite ... Zum Onlinearchiv ... Zum Abonnement ... Zum Newsletter ... Zu den Tools ... Zum Impressum ... Zum Login ...

Umschalttaste prfen

Einige Ereigniseigenschaften liefern einen Parameter, mit dem man den Status der Umschalttaste ermitteln kann. Einige Ereignisse bieten diese Funktion nicht, und berhaupt mchte man vielleicht auch einmal abseits eines Ereignisses den Status der Umschalttaste prfen.

Test per API-Funktion

Die API-Funktion GetAsyncKeyStateLib liefert mit entsprechenden Parametern bestckt und in einer Wrapper-Funktion eingepackt einen Boolean-Wert, der den aktuellen Status der Umschalttaste wiederspiegelt. Die Deklaration der Funktion sieht so aus:

Declare Function GetAsyncKeyState Lib "user32" _

  (ByVal vKey As Long) As Integer

Die folgende Wrapper-Funktion gibt den Wert True zurck, wenn die Umschalttaste zum Zeitpunkt des Aufrufs gedrckt ist:

Function UmschalttasteGedrueckt() As Boolean

    UmschalttasteGedrueckt = ((GetAsyncKeyState(16) And &H8000) _

        = &H8000)

End Function

Beispiel: Formular ffnen

Wenn Sie aus irgendeinem Grund einmal beim ffnen eines Formulars prfen mchten, ob dabei die Umschalttaste gedrckt ist, verwenden Sie die folgende Prozedur fr die Ereigniseigenschaft Beim ffnen:

Private Sub Form_Open(Cancel As Integer)

    If UmschalttasteGedrueckt = True Then

        MsgBox "Umschalttaste gedrckt!"

    End If

End Sub

Die Deklaration der API-Funktion und die Wrapper-Funktion speichern Sie dabei in einem Standardmodul.

© 2003-2015 André Minhorst Alle Rechte vorbehalten.