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

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