用VB編寫鍵盤攔截程序
2024-09-07 17:32:50
供稿：網友
我們知道，在一些程序中，有一些快捷方式(如：Shift鍵最小化、ESC鍵退出、Ctrl＋S存盤、Alt＋x退出等等)。以前有一些介紹使用Win32 API可以做到，但過于繁瑣，其實VB本身已經給我們提供了這個功能。
我們來新建一個窗體Form1，對于鍵盤操作可以看到有三個事件KeyPress()，KeyDown和KeyUp，下面我對它們分別介紹：
KeyPress()事件是當用戶按下和松開一個ANSI鍵時發生(ANSI是可見ASCII字符1－127)。
語法 <![CDATA[ Private Sub object_KeyPress(［index As Integer,］keyascii As Integer) ]]> KeyPress事件語法包含下列部分：
部分描述
object一個對象表達式，其值是"應用于"列表中的一個對象。
index一個整數，它用來唯一標識一個在控件數組中的控件（僅有控件數組時才有）。
keyascii是返回一個標準數字ANSI鍵代碼的整數。Keyascii通過引用傳遞，對它進行改變可給對象。
發送一個不同的字符。將keyascii改變為0時可取消擊鍵，這樣一來對象便接收不到字符。
說明
具有焦點的對象接收該事件。一個窗體僅在KeyPreview屬性被設置為True時才能接收該事件。一個KeyPress事件可以引用任何可打印的鍵盤字符，一個來自標準字母表的字符或少數幾個特殊字符之一的字符與CTRL鍵的組合，以及ENTER或BACKSPACE鍵。KeyPress()事件過程在截取TextBox或ComboBox控件所輸入的擊鍵時是非常有用的。它可立即測試擊鍵的有效性或在字符輸入時對其進行格式處理。改變keyascii參數的值會改變所顯示的字符。
可使用下列表達式將keyascii參數轉變為一個字符： <![CDATA[ Chr(KeyAscii) 然后執行字符串操作，并將該字符反譯成一個控件可通過該表達式解釋的ANSI數字： KeyAscii = Asc(char) 在KeyPress()處理不了的功能可以由KeyDown()和KeyUp()事件來處理： 語法 Private Sub object_KeyDown(［index As Integer,］keycode As Integer, shift As Integer) Private Sub object_KeyUp(［index As Integer,］keycode As Integer, shift As Integer) KeyDown和KeyUp事件包括下列部分： 部分描述 object一個對象表達式，其值是"應用于"列表中的一個對象。 index是一個整數，它用來唯一標識一個在控件數組中的控件（僅有控件數組時才有）。 keycode是一個鍵代碼，諸如vbKeyF1（F1鍵）或vbKeyHome（HOME鍵）。 ]]> shift是在該事件發生時響應SHIFT ,CTRL和ALT鍵的狀態的一個整數。shift、CTRL、ALT鍵在這些位分別對應于值1、2和4。例如：如果CTRL和ALT這兩個鍵都被按下，則shift的值為6。
說明
對于這兩個事件來說，帶焦點的對象都接收所有擊鍵。一個窗體只有在不具有可視的和有效的控件時才可以獲得焦點。雖然KeyDown()和KeyUp()事件可應用于大多數鍵，它們最經常地還是應用于：擴展的字符鍵如功能鍵、定位鍵、鍵盤修飾鍵和按鍵的組合、區別數字小鍵盤和常規數字鍵；在需要對按下和松開一個鍵都響應時，可使用KeyDown和KeyUp事件過程。
下列情況不能引用KeyDown和KeyUp事件：窗體有一個CommandButton控件，并且Default屬性設置為True時的ENTER鍵。窗體有一個CommandButton控件，并且Cancel屬性設置為True時的ESC鍵、TAB鍵，KeyDown和KeyUp用兩種參數解釋每個字符的大寫形式和小寫形式：keycode-顯示物理的鍵（將A和a作為同一個鍵返回）和shift-顯示shift＋key鍵的狀態而且返回A或a其中之一。
如果需要測試shift參數，可使用該參數中定義各位的shift常數。該常數有下列值：
常數值描述
vbShiftMask 1 HIFT鍵的位
屏蔽。
VbCtrlMask 2 CTRL鍵的
位屏蔽。
VbAltMask 4 ALT鍵的位
屏蔽。
該常數用作位屏蔽，它可被用來測試任何鍵組合。
注意：如果KeyPreview屬性被設置為True，則一個窗體先于該窗體上的控件接收到此事件?？捎肒eyPreview屬性來創建全局鍵盤處理例程。
了解了以上知識，我們可以制作出非常完美而且帶有快捷鍵的程序，例如我們在一個程序中要用Ctrl＋S存盤，Shift最小化，Alt＋X和ESC退出：
首先啟動vb選擇新建EXE文件，在Form1窗體上拉一個TextBox，并把Form1的KeyPreview屬性設為True,雙擊Form1,選擇Form的KeyPress事件，輸入如下代碼： <![CDATA[ Private Sub Form_KeyPress(KeyAscii as Integer) 'Esc鍵退出，VbEscape可以用27代替 If KeyAscii=VbEscape then End End Sub 在Form的KeyDown事件中輸入如下代碼： Private Sub Form_KeyDown(KeyCode as Integer,Shift as Integer) '處理Ctrl＋X,Shift,Alt＋X If Shift=2 And KeyCode=VbKeyS Then Print＃FileNum,Form1.Text1.Text 'Ctrl＋S存盤，VbKeyS=83 If shift=2 then Form1.WindowState=1 'Shift最小化 If Shift=4 And KeyCode=VbKeyX Then End 'Alt＋X退出，VbkeyX=88 End Sub 在Form的Load事件中輸入如下代碼： Private Sub Form_load() Dim FileNum as integer FileNum=FreeFile Open App.Path＋"Sample.txt" For Append As＃FileNum End Sub]]>
