VB工程---百例100--获取键盘类型

发布时间：2020-12-16 22:38:09 所属栏目：大数据来源：网络整理

导读：Option Explicit Private Sub Command1_Click() Dim k,keytype k = GetKeyboardType(0) Select Case k Case 1 keytype = "IBM PC /XT或兼容83键键盘" Case 2 keytype = "Olivetti102键键盘" Case 3 keytype = "IBM PC /XT或兼容84键键盘" Case 4 keytype = "

Option Explicit

Private Sub Command1_Click()
Dim k,keytype
k = GetKeyboardType(0)
Select Case k
Case 1
keytype = "IBM PC /XT或兼容83键键盘"
Case 2
keytype = "Olivetti102键键盘"
Case 3
keytype = "IBM PC /XT或兼容84键键盘"
Case 4
keytype = "IBM 增强（101 或102键）键盘"
Case 5
keytype = "Nokia1050 键盘"
Case 6
keytype = "Nokia9140 键盘"
Case 7
keytype = "Japanese 键盘"
End Select
Label1.Caption = "键盘类型是：" & keytype

End Sub

Option Explicit

Public Declare Function GetKeyboardType Lib "user32" (ByVal nTypeFlag As Long) As Long

GetKeyboardType：

　　函数功能:该函数获取系统当前键盘的信息.　　函数原型:int GetKeyboardType(int nTypeFlag);　　参数说明:　　nTypeFlag:指定要获取的键盘信息的类型,该参数可以是下面的值之一:　　0：键盘的类型;　　1：键盘的子类型;　　2：键盘上功能键的状态.　　注意事项:函数成功将返回用户指定要获取的键盘信息,否则返回零值.键盘的类型与原始设备制造商(OEM)有关,用户还可以从键盘的类型获取键盘上功能键的个数.　　头文件:winuser.h 链接库:user32.h

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!