CAPS-Lock ein/ausschalten Ein- uns Ausschalten von CAPS-Lock (Feststelltaste) per VB-Code.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  7.696
www.tools4vb.de	System:  Win9x	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.2 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit Hilfe der nachfolgenden Routine können Sie CAPS-Lock (Feststelltaste) per Code ein- bzw. ausschalten.

' zunächst die benötigte API-Funktion
Private Declare Function GetKeyboardState Lib "user32" ( _
  pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" ( _
  lppbKeyState As Byte) As Long
 
' Diese Routine schaltet CAPS-Lock ein, 
' falls ausgeschaltet und umgekehrt
Public Sub KeyboardChangeState(ByVal lpKey As Long)
  ReDim kBuffer(256) As Byte
  GetKeyboardState kBuffer(0)
  If kBuffer(lpKey) And 1 Then
    kBuffer(lpKey) = 0
  Else
    kBuffer(lpKey) = 1
  End If
  SetKeyboardState kBuffer(0)
End Sub

Beispiele für den Aufruf der Prozedur

' CAPS-Lock ein-/ausschalten
KeyboardChangeState vbKeyCapital