2
我的一個數據庫表單工作不正常。我花了一段時間才發現NumLock已關閉。當通過按鍵關閉NumLock時,有一些程序可以反轉該過程,但它可能不僅僅是意外按下關閉NumLock的按鍵。在MS Access中,如果窗口的右下角出現「NUM LOCK」,則表示關閉。在vba中有沒有一種方法可以警告,如果沒有出現「NUM LOCK」字樣?當NumLock關閉時需要訪問內部警告
我的一個數據庫表單工作不正常。我花了一段時間才發現NumLock已關閉。當通過按鍵關閉NumLock時,有一些程序可以反轉該過程,但它可能不僅僅是意外按下關閉NumLock的按鍵。在MS Access中,如果窗口的右下角出現「NUM LOCK」,則表示關閉。在vba中有沒有一種方法可以警告,如果沒有出現「NUM LOCK」字樣?當NumLock關閉時需要訪問內部警告
GetNumlock = CBool(GetKeyState(vbKeyNumlock) And 1)
例子:
If (CBool(GetKeyState(vbKeyNumlock) And 1) = True
MsgBox "NumLock is on."
End If
謝謝。我在哪裏做這個程序? – 2015-02-06 17:14:18
這只是給你關鍵的狀態。根據您的具體要求,您必須弄清楚如何處理它。我已經爲我的答案添加了一個示例。 – 2015-02-06 17:16:58