vb@rchiv · Tipps & Tricks · CAPS-Lock ein/ausschalten

Rubrik: Maus & Tastatur · Tastatursteuerung | VB-Versionen: VB4, VB5, VB6

26.01.01

CAPS-Lock ein/ausschalten Ein- uns Ausschalten von CAPS-Lock (Feststelltaste) per VB-Code.
Autor: Dieter Otter	Bewertung:	Views: 18.301
www.tools4vb.de	System: Win9x, Win8, Win10, Win11	Beispielprojekt auf CD

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

Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv

Vol.6
(einschl. Beispielprojekt!)

Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
- nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten
- Symbol-Galerie mit mehr als 3.200 Icons im modernen Look
Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m.