access禁止数字键盘的方法
时间：2013-09-18 17:10 来源：Office中国 作者：tmtony 阅读：次
软件类型：国产软件
授权方式：免费软件
界面语言：简体中文
软件大小：14KB
文件类型：.zip
运行环境：Win2003,WinXP,Win7,Win8
软件等级：★★★★☆
发布时间：2013-09-18
插件情况：
下载次数：
下载次数：
软件介绍：
外接键盘都有数字键盘，方便我们快速录入数字。有的时候我们会发现我们的数字键盘用不了。
原因就是禁止了。access禁止数字键盘是通过api函数。
下面是具体的代码。轻松关掉数字键！！
Dim bytKeys(255) As Byte
原因就是禁止了。access禁止数字键盘是通过api函数。
下面是具体的代码。轻松关掉数字键！！
Dim bytKeys(255) As Byte
Dim bnumLockOn As Boolean
'Get status of the 256 virtual keys
GetKeyboardState bytKeys(0)
bnumLockOn = bytKeys(VK_NUMLOCK)
Dim typOS As OSVERSIONINFO
If bnumLockOn <> TurnOn Then 'if current state <>
'requested stae
If typOS.dwPlatformId = _
VER_PLATFORM_WIN32_WINDOWS Then '=== Win95/98
bytKeys(VK_NUMLOCK) = 1
SetKeyboardState bytKeys(0)
Else '=== WinNT/2000
'Simulate Key Press
keybd_event VK_NUMLOCK, &H45, _
KEYEVENTF_EXTENDEDKEY Or 0, 0
'Simulate Key Release
keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
Or KEYEVENTF_KEYUP, 0
End If
End If
顶一下
(0)
0%
踩一下
(0)
0%
下载地址：
注意事项：
☉推荐使用第三方专业下载工具下载本站软件，使用 WinRAR v3.10 以上版本解压本站软件。
☉如果这个软件总是不能下载的请点击报告错误,谢谢合作!!
☉下载本站资源，如果服务器暂不能下载请过一段时间重试！
☉如果遇到什么问题，请到本站论坛去咨寻，我们将在那里提供更多 、更好的资源！
☉本站提供的一些商业软件是供学习研究之用，如用于商业用途，请购买正版。
相关软件
最新软件
推荐软件