Key check ?

[Brandaran]

Hvordan sjekker jeg om INS, Scroll Lock eller CAPS lock er sjekket?

[Richard87]

du kan bruke

Declare Function GetKeyboardState Lib "user32" Alias "GetKeyboardState" (pbKeyState As Byte) As Long

Endret 1. november 2004 av Richard87

[Richard87]

Option Explicit
Private Enum Key
   VK_CAPITAL = &H14
   VK_NUMLOCK = &H90
   VK_SCROLL = &H91
End Enum

Private Type KeyboardBytes
    kbByte(0 To 255) As Byte
End Type

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long

Private Function KeyState(ByVal sKey As Key) As Long
Dim sKey2 As KeyboardBytes
   GetKeyboardState sKey2
   KeyState = sKey2.kbByte(sKey)
End Function

Private Sub Form_Load()
MsgBox KeyState(VK_NUMLOCK)
End Sub

Endret 1. november 2004 av Richard87