vb鍵盤攔截
我們知道，在一些程序中，有一些快捷方式(如：shift鍵最小化、esc鍵退出、ctrl＋s存盤、alt＋x退出等等)。以前有一些介紹使用win32api可以做到，但過於繁瑣，其實vb本身已經給我們提供了這個功能。
我們來新建一個窗體form1，對於鍵盤操作可以看到有三個事件keypress，keydown和keyup，下面我對它們分別介紹：
keypress事件是當用戶按下和鬆開一個ansi鍵時發生(ansi是可見ascii字符1－127)。
語法
privatesubobject_keypress([indexinteger,]keyasciiinteger)
keypress事件語法包含下列部分：
部分描述
object一個對象表達式，其值是“應用於”列表中的一個對象。
index一個整數，它用來唯一標識一個在控件數組中的控件（僅有控件數組時才有）。
keyascii是返回一個標準數字ansi鍵代碼的整數。keyascii通過引用傳遞，對它進行改變可給對象
發送一個不同的字符。將keyascii改變為0時可取消擊鍵，這樣一來對象便接收不到字符。
說明
具有焦點的對象接收該事件。一個窗體僅在keypreview屬性被設置為true時才能接收該事件。一個keypress事件可以引用任何可打印的鍵盤字符，一個來自標準字母表的字符或少數幾個特殊字符之一的字符與ctrl鍵的組合，以及enter或backspace鍵。keypress事件過程在截取textbox或orgbobox控件所輸入的擊鍵時是非常有用的。它可立即測試擊鍵的有效性或在字符輸入時對其進行格式處理。改變keyascii參數的值會改變所顯示的字符。
可使用下列表達式將keyascii參數轉變為一個字符：
chr(keyascii)
然後執行字符串操作，並將該字符反譯成一個控件可通過該表達式解釋的ansi數字：
keyascii=asc(char)
在keypress處理不了的功能可以由keydown和keyup事件來處理：
語法
privatesubobject_keydown([indexinteger,]keycodeinteger,shiftinteger)
privatesubobject_keyup([indexinteger,]keycodeinteger,shiftinteger)
keydown和keyup事件包括下列部分：
部分描述
object一個對象表達式，其值是“應用於”列表中的一個對象。
index是一個整數，它用來唯一標識一個在控件數組中的控件（僅有控件數組時才有）。
keycode是一個鍵代碼，諸如vbkeyf1（鍵）或vbkeyhome（home鍵）。
shift是在該事件發生時響應shift,ctrl和alt鍵的狀態的一個整數。shift、ctrl、alt鍵在這些位分別對應於值1、2和4。例如：如果ctrl和alt這兩個鍵都被按下，則shift的值為6。
說明
對於這兩個事件來說，帶焦點的對象都接收所有擊鍵。一個窗體只有在不具有可視的和有效的控件時才可以獲得焦點。雖然keydown和keyup事件可應用於大多數鍵，它們最經常地還是應用於：擴展的字符鍵如功能鍵、定位鍵、鍵盤修飾鍵和按鍵的組合、區別數字小鍵盤和常規數字鍵；在需要對按下和鬆開一個鍵都響應時，可使用keydown和keyup事件過程。
下列情況不能引用keydown和keyup事件：窗體有一個orgmandbutton控件，並且default屬性設置為true時的enter鍵。窗體有一個orgmandbutton控件，並且cancel屬性設置為true時的esc鍵、tab鍵，keydown和keyup用兩種參數解釋每個字符的大寫形式和小寫形式：keycode—顯示物理的鍵（將a和a作為同一個鍵返回）和shift—顯示shift＋key鍵的狀態而且返回a或a其中之一。
如果需要測試shift參數，可使用該參數中定義各位的shift常數。該常數有下列值：
常數值描述
vbshiftmask1hift鍵的位
屏蔽。
vbctrlmask2ctrl鍵的
位屏蔽。
vbaltmask4alt鍵的位
屏蔽。
該常數用作位屏蔽，它可被用來測試任何鍵組合。
注意：如果keypreview屬性被設置為true，則一個窗體先於該窗體上的控件接收到此事件。可用keypreview屬性來創建全局鍵盤處理例程。
了解了以上知識，我們可以製作出非常完美而且帶有快捷鍵的程序，例如我們在一個程序中要用ctrl＋s存盤，shift最小化，alt＋x和esc退出：
首先啟動vb選擇新建exe文件，在form1窗體上拉一個textbox，並把form1的keypreview屬性設為true,雙擊form1,選擇form的keypress事件，輸入如下代碼：
privatesubform_keypress(keyasciiinteger)'esc鍵退出，vbescape可以用27代替
keyascii=vbescapethenend
endsub
在form的keydown事件中輸入如下代碼：
privatesubform_keydown(keycodeinteger,shiftinteger)'處理ctrl＋x,shift,alt＋x
shift=2andkeycode=vbkeysthenprint＃filenum,bxwx.org'ctrl＋s存盤，vbkeys=83
shift=bxwx.org=1'shift最小化
shift=4andkeycode=vbkeyxthenend'alt＋x退出，vbkeyx=88
endsub
在form的load事件中輸入如下代碼：
privatesubform_load
dimfilenuminteger
filenum=freefilbxwx.org＋“\bxwx.org"forappend＃filenum
endsub
運行它就可以實現我們所要求的功能了，舉這個例子只是拋磚引玉的作用，利用它我們還可以編寫