Henrik Absalon <absalon@it.dk> skrev i news:9c9m26$2sqv$1@news.cybercity.dk
> Hejsa
>
> Hvordan slår man Caps Lock fra, så tasten bliver sat ud af funktion.
Sett propery'en KeyPreview til Form'en = True
Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_USED = VK_SCROLL
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Private Declare Function GetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes
Private Sub TurnOn(vkKey As Long)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = 1
SetKeyboardState kbArray
End Sub
Private Sub TurnOff(vkKey As Long)
GetKeyboardState kbArray
kbArray.kbByte(vkKey) = 0
SetKeyboardState kbArray
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = VK_CAPITAL Then TurnOff VK_CAPITAL
End Sub
Bruk sub'ene TurnOn og TurnOff til slå på og av capslock etc.
--
Snutten