Nummern-Feld an und ausschalten

Forumthread: Nummern-Feld an und ausschalten
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Nummern-Feld an und ausschalten

13.03.2003 14:21:09

Alex

Hallo
Kann mir jemand sagen wie ich ein funktionstüchtiges Makro hinbekomme mit dem ich das Num-Lock (Nummernfeld) ein und ausschalten kann.

Danke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Nummern-Feld an und ausschalten

13.03.2003 15:01:45

Forum
Re: Nummern-Feld an und ausschalten

13.03.2003 15:13:25

Alex

Re: Nummern-Feld an und ausschalten

13.03.2003 15:01:45

Forum

[VBA] Numlock ein-/ausschalten
versuch's mal mit folgendem API (muss am Anfang eines Moduls stehen):

Const VK_NUMLOCK = &H90
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private kbArray As KeyboardBytes
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long

Sub Numlock_ein()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 1
SetKeyboardState kbArray
End Sub

Sub Numlock_aus()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 0
SetKeyboardState kbArray
End Sub

Sub Numlock_umkehren()
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = IIf(kbArray.kbByte(VK_NUMLOCK) = 1, 0, 1)
SetKeyboardState kbArray
End Sub
von Jörg Lorenz