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
原文地址:https://www.jb51.cc/vb/260323.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。