VB工程---百例100--获取键盘类型
来源:互联网 发布:代理模式java有几种 编辑:程序博客网 时间:2024/06/04 18:53
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
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- VB工程---百例100--获取键盘类型
- VB工程--百例56--用键盘控制小方块移动
- VB工程---百例45--同心圆.
- VB工程--百例47--球体.
- VB工程---百例75--状态栏
- VB工程--百例76--工具栏
- VB工程7---百例1 改编
- VB工程9--百例3--改编
- VB工程10---百例12--密码校验
- VB工程11---百例13--求和
- VB工程12--百例16--比较大小
- VB工程15---百例28---图像缩放
- VB工程17--百例25--古诗测试
- VB工程18--百例34--喷泉
- VB工程19--百例37--交通红绿灯
- VB工程20---百例43----群星闪烁
- VB工程--百例43--图形绘制
- VB工程--百例46---园、椭圆、饼形图
- JBoss配置环境变量及部署Web项目
- bitset与char数组转换
- 佛陀说:世上有四种人。
- WordPress使用及Tag Cloud插件
- clistctrl事件
- VB工程---百例100--获取键盘类型
- RPC/XDR/NFS系列之----远程过程调用
- POJ 1222 EXTENDED LIGHTS OUT 枚举 || 高斯消元
- 比较两个对象
- Size Balanced Tree(SBT) 类模板C++实现(持续更新)
- ERROR [HY000] [MySQL][ODBC 5.1 Driver]Can't connect to MySQL server on 'localhost' (10061)
- 程序员编程艺术:第八章、从头至尾漫谈虚函数
- Icinga Installation
- 栈--求迷宫所有解