Tên Hàm:
Lấy trạng thái của NumLock và CapsLock
Mô Tả:
Bạn hãy thêm 1 label và 1 timer ( với thuộc tính Interval là 250) và đoạn code sau đây vào Form. Khi chạy chương trình, Label sẽ cập nhật trạng thái hiện tại của NumLock và CapsLock khi chúng được nhấn.
Ví Dụ:
Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Private Sub Timer1_Timer()
Dim b(0 To 254) As Byte
Dim sMsg As String
GetKeyboardState b(0)
If b(vbKeyNumlock) Then
sMsg = "NUM"
End If
If b(vbKeyCapital) Then
sMsg = sMsg & " CAPS"
End If
If (Label1.Caption <> sMsg) Then
Label1.Caption = sMsg
End If
End Sub
(http://www.caulacbovb.com)
Lấy trạng thái của NumLock và CapsLock
Mô Tả:
Bạn hãy thêm 1 label và 1 timer ( với thuộc tính Interval là 250) và đoạn code sau đây vào Form. Khi chạy chương trình, Label sẽ cập nhật trạng thái hiện tại của NumLock và CapsLock khi chúng được nhấn.
Ví Dụ:
Private Declare Function GetKeyboardState Lib "user32" _
(pbKeyState As Byte) As Long
Private Sub Timer1_Timer()
Dim b(0 To 254) As Byte
Dim sMsg As String
GetKeyboardState b(0)
If b(vbKeyNumlock) Then
sMsg = "NUM"
End If
If b(vbKeyCapital) Then
sMsg = sMsg & " CAPS"
End If
If (Label1.Caption <> sMsg) Then
Label1.Caption = sMsg
End If
End Sub
(http://www.caulacbovb.com)