access禁止數(shù)字鍵盤的方法
時間：2013-09-18 17:10 來源：Office中國 作者：tmtony 閱讀：次
軟件類型：國產(chǎn)軟件
授權(quán)方式：免費軟件
界面語言：簡體中文
軟件大�。�14KB
文件類型：.zip
運行環(huán)境：Win2003,WinXP,Win7,Win8
軟件等級：★★★★☆
發(fā)布時間：2013-09-18
插件情況：
下載次數(shù)：
下載次數(shù)：
軟件介紹：
外接鍵盤都有數(shù)字鍵盤，方便我們快速錄入數(shù)字。有的時候我們會發(fā)現(xiàn)我們的數(shù)字鍵盤用不了。
原因就是禁止了。access禁止數(shù)字鍵盤是通過api函數(shù)。
下面是具體的代碼。輕松關(guān)掉數(shù)字鍵��！
Dim bytKeys(255) As Byte
原因就是禁止了。access禁止數(shù)字鍵盤是通過api函數(shù)。
下面是具體的代碼。輕松關(guān)掉數(shù)字鍵��！
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%
下載地址：
注意事項：
☉推薦使用第三方專業(yè)下載工具下載本站軟件，使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個軟件總是不能下載的請點擊報告錯誤,謝謝合作!!
☉下載本站資源，如果服務(wù)器暫不能下載請過一段時間重試！
☉如果遇到什么問題，請到本站論壇去咨尋，我們將在那里提供更多 、更好的資源！
☉本站提供的一些商業(yè)軟件是供學(xué)習(xí)研究之用，如用于商業(yè)用途，請購買正版。
相關(guān)軟件
最新軟件
推薦軟件