NUM-Lock ein/ausschalten Mit der universellen keybd_event API-Funktion lässt sich auch die NUM-Lock Taste per VB-Code ein- und ausschalten.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  6.401
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

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

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Vor ziemlich langer Zeit haben wir Ihnen gezeigt, wie man prüft, ob die CAPS-Lock bzw. NUM-Lock Taste aktiviert ist. Kurz darauf haben wir noch einen Tipp veröffentlicht, mit sich die CAPS-Lock Taste gezielt per VB-Code ansprechen lässt.

Dieser Code funktioniert jedoch nicht für das Ein- bzw. Ausschalten der NUM-Lock Taste.

Mit der universellen keybd_event API-Funktion lässt aber auch dieser Wunsch erfüllen

' benötigte API-Deklarationen
Private Declare Sub keybd_event Lib "user32" ( _
  ByVal bVk As Byte, _
  ByVal bScan As Byte, _
  ByVal dwFlags As Long, _
  ByVal dwExtraInfo As Long)
 
Private Const VK_NUMLOCK = &H90
Private Const KEYEVENTF_KEYUP = &H2

' NUM-Lock drücken
' Zunächst niederdrücken und dann wieder loslassen
keybd_event VK_NUMLOCK, 1, 0, 0
keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0

In Verbindung mit dem Tipp  CAPS-/NUM-Lock prüfen lässt sich also gezielt NUM-Lock ein- bzw. ausschalten:

' NUM-Lock aktivieren (falls deaktiviert)
If Not (GetKeyState(vbKeyNumlock) = 1) Then
  keybd_event VK_NUMLOCK, 1, 0, 0
  keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If

' NUM-Lock deaktivieren (falls aktiviert)
If (GetKeyState(vbKeyNumlock) = 1) Then
  keybd_event VK_NUMLOCK, 1, 0, 0
  keybd_event VK_NUMLOCK, 1, KEYEVENTF_KEYUP, 0
End If