Lấy trạng thái của NumLock và CapsLock

hocketoan

New Member
Hội viên mới
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)
 

CẨM NANG KẾ TOÁN TRƯỞNG


Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ


Liên hệ: 090.6969.247

Top