全國服務熱線:0597-2297794 24小時咨詢:15080281944 15080287989
設為首頁加入收藏聯系我們

用VB編寫鍵盤攔截程序

來源:互聯網   發布時間:2013/12/27 21:55:45     閱讀數:1193

  我們知道,在一些程序中,有一些快捷方式(如:Shift鍵最小化、ESC鍵退出、Ctrl+S存盤、Alt+x退出等等)。以前有一些介紹使用Win32 API可以做到,但過于繁瑣,其實VB本身已經給我們提供了這個功能! ∥覀儊硇陆ㄒ粋窗體Form1,對于鍵盤操作可以看到有三個事件KeyPress(),KeyDown和KeyUp,下面我對它們分別介紹:  KeyPress()事件是當用戶按下和松開一個 ANSI 鍵時發生(ANSI是可見ASCII字符1-127)! ≌Z法  Private Sub object_KeyPress([index As Integer,]keyascii As Integer)  KeyPress 事件語法包含下列部分:  部分 描述  object 一個對象表達式,其值是“應用于”列表中的一個對象! ndex 一個整數,它用來唯一標識一個在控件數組中的控件(僅有控件數組時才有)! eyascii 是返回一個標準數字 ANSI 鍵代碼的整數。Keyascii 通過引用傳遞,對它進行改變可給對象  發送一個不同的字符。將 keyascii 改變為 0 時可取消擊鍵,這樣一來對象便接收不到字符! ≌f明  具有焦點的對象接收該事件。一個窗體僅在KeyPreview 屬性被設置為 True 時才能接收該事件。一個 KeyPress 事件可以引用任何可打印的鍵盤字符,一個來自標準字母表的字符或少數幾個特殊字符之一的字符與 CTRL 鍵的組合,以及 ENTER 或BACKSPACE鍵。KeyPress()事件過程在截取 TextBox 或 ComboBox 控件所輸入的擊鍵時是非常有用的。它可立即測試擊鍵的有效性或在字符輸入時對其進行格式處理。改變 keyascii 參數的值會改變所顯示的字符! 】墒褂孟铝斜磉_式將 keyascii 參數轉變為一個字符:  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 一個對象表達式,其值是“應用于”列表中的一個對象! ndex 是一個整數,它用來唯一標識一個在控件數組中的控件(僅有控件數組時才有)! eycode 是一個鍵代碼,諸如 vbKeyF1 ( F1 鍵)或 vbKeyHome ( HOME 鍵)! hift 是在該事件發生時響應 SHIFT ,CTRL 和 ALT 鍵的狀態的一個整數。shift、CTRL、ALT 鍵在這些位分別對應于值 1、2 和 4。例如:如果 CTRL 和 ALT 這兩個鍵都被按下,則 shift 的值為 6! ≌f明  對于這兩個事件來說,帶焦點的對象都接收所有擊鍵。一個窗體只有在不具有可視的和有效的控件時才可以獲得焦點。雖然KeyDown()和KeyUp()事件可應用于大多數鍵,它們最經常地還是應用于:擴展的字符鍵如功能鍵、定位鍵、鍵盤修飾鍵和按鍵的組合、區別數字小鍵盤和常規數字鍵;在需要對按下和松開一個鍵都響應時,可使用 KeyDown 和 KeyUp 事件過程! ∠铝星闆r不能引用 KeyDown 和 KeyUp 事件:窗體有一個 CommandButton 控件,并且 Default 屬性設置為 True 時的 ENTER 鍵。窗體有一個 CommandButton 控件,并且 Cancel 屬性設置為 True 時的 ESC 鍵、TAB鍵,KeyDown 和 KeyUp 用兩種參數解釋每個字符的大寫形式和小寫形式:keycode —顯示物理的鍵(將 A 和 a 作為同一個鍵返回)和shift—顯示shift+key鍵的狀態而且返回A或a其中之一! ∪绻枰獪y試 shift 參數,可使用該參數中定義各位的 shift 常數。該常數有下列值:  常數 值 描述  vbShiftMask 1 HIFT 鍵的位  屏蔽! bCtrlMask 2 CTRL 鍵的  位屏蔽! bAltMask 4 ALT 鍵的位  屏蔽! ≡摮涤米魑黄帘,它可被用來測試任何鍵組合! ∽⒁猓喝绻 KeyPreview 屬性被設置為 True,則一個窗體先于該窗體上的控件接收到此事件?捎 KeyPreview 屬性來創建全局鍵盤處理例程! ×私饬艘陨现R,我們可以制作出非常完美而且帶有快捷鍵的程序,例如我們在一個程序中要用Ctrl+S存盤,Shift最小化,Alt+X和ESC退出:  首先啟動vb選擇新建EXE文件,在Form1窗體上拉一個TextBox,并把Form1的KeyPreview屬性設為True,雙擊Form1,選擇Form的KeyPress事件,輸入如下代碼:  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  運行它就可以實現我們所要求的功能了,舉這個例子只是拋磚引玉的作用。

 如果您覺得此文對您有啟發或者幫助,可以花3秒鐘收藏到QQ空間。平時注意多收集,用時不會干著急!

[您可能感興趣的文章]
最新案例
網站建設資訊
  1. [資訊]Google Adsense ?
  2. [資訊]如何防止google adse?
  3. [資訊]使你的網站更專業--談網站優化?
  4. [資訊]優化你的站點,讓它加載的再快一?
  5. [資訊]網站建設:提高網站訪問量的策略?
  6. [資訊]揭開虛擬主機供應商的面紗?
SEO常見問題解答
  1. [SEO]什么是ALT屬性?
  2. [SEO]什么是鏈接錨文本?
  3. [SEO]什么是動態頁面?
  4. [SEO]HTTP狀態碼是什么意思??
  5. [SEO]鏈接養殖場?
  6. [SEO]首選域?
點擊立刻咨詢
福建快三走势图彩经网 湖北快三 3d福彩走势图 今晚20选五开奖结果 2019开拓者vs火箭胜负关系 全民福州麻将手机版下载 广东36选7开奖查询 成都麻将血战到底打法 博士真人百家乐赌博 白山大嘴棋牌游戏 哪些游戏挂机可以赚钱 云南时时彩开奖视频 幸运赛马全天计划在线 979彩票安卓app 奔驰宝马平台注册送35 981优惠大厅 心悦陕西麻将