Rubrik: Maus & Tastatur · Tastatursteuerung | VB-Versionen: VB4, VB5, VB6 | 27.01.01 |
CAPS-/NUM-Lock prüfen Prüfen, ob CAPS-Lock (Feststelltaste) bzw. NUM-Lock eingeschaltet ist oder nicht. | ||
Autor: Dieter Otter | Bewertung: | Views: 27.780 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe des nachfolgenden Codes können Sie prüfen, ob CAPS-Lock bzw. NUM-Lock eingeschaltet ist oder nicht.
' zunächst die benötigte API-Funktion Public Declare Function GetKeyState Lib "user32" ( _ ByVal nVirtKey As Long) As Integer ' Status: CAPS-Lock If GetKeyState(vbKeyCapital) = 1 Then _ MsgBox "CAPS-Lock ist eingeschaltet!" ' Status: NUM-Lock If GetKeyState(vbKeyNumlock) = 1 Then _ MsgBox "NUM-Lock ist eingeschaltet!"
Anmerkung:
Unter Windows 2000 gibt die Funktion GetKeyState für die NUM-Lock Taste den Wert 0 zurück, falls NUM-Lock eingeschaltet ist.