?我們知道，在一些程序中，有一些快捷方式(如：shift鍵最小化、esc鍵退出、ctrl＋s存盤(pán)、alt＋x退出等等)。以前有一些介紹使用in32api可以做到，但過(guò)于繁瑣，其實(shí)vb本身已經(jīng)給我們提供了這個(gè)功能。

    我們來(lái)新建一個(gè)窗體form1，對(duì)于鍵盤(pán)操作可以看到有三個(gè)事件keypress，keydon和keyup，下面我對(duì)它們分別介紹：

    keypress事件是當(dāng)用戶按下和松開(kāi)一個(gè)ansi鍵時(shí)發(fā)生(ansi是可見(jiàn)ascii字符1－127)。

    語(yǔ)法

    privatesubobject_keypress([ieger,]keyasteger)

    keypress事件語(yǔ)法包含下列部分：

    部分描述

    object一個(gè)對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。

    index一個(gè)整數(shù)，它用來(lái)唯一標(biāo)識(shí)一個(gè)在控件數(shù)組中的控件（僅有控件數(shù)組時(shí)才有）。

    keyascii是返回一個(gè)標(biāo)準(zhǔn)數(shù)字ansiyascii通過(guò)引用傳遞，對(duì)它進(jìn)行改變可給對(duì)象

    發(fā)送一個(gè)不同的字符。將keyascii改變?yōu)?時(shí)可取消擊鍵，這樣一來(lái)對(duì)象便接收不到字符。

    說(shuō)明

    具有焦點(diǎn)的對(duì)象接收該事件。一個(gè)窗體僅在keyprevie屬性被設(shè)置為true時(shí)才能接收該事件。一個(gè)keypress事件可以引用任何可打印的鍵盤(pán)字符，一個(gè)來(lái)自標(biāo)準(zhǔn)字母表的字符或少數(shù)幾個(gè)特殊字符之一的字符與ctrl鍵的組合，以及enterypress事件過(guò)程在截取textbox或bobox控件所輸入的擊鍵時(shí)是非常有用的。它可立即測(cè)試擊鍵的有效性或在字符輸入時(shí)對(duì)其進(jìn)行格式處理。改變keyascii參數(shù)的值會(huì)改變所顯示的字符。

    可使用下列表達(dá)式將keyascii參數(shù)轉(zhuǎn)變?yōu)橐粋€(gè)字符：

    chr(keyascii)

    然后執(zhí)行字符串操作，并將該字符反譯成一個(gè)控件可通過(guò)該表達(dá)式解釋的ansi數(shù)字：

    keyascii=asc(char)

    在keypress處理不了的功能可以由keydon和keyup事件來(lái)處理：

    語(yǔ)法

    privatesubobject_keydon([ieger,]keycodeinteger,shiftinteger)

    privatesubobject_keyup([ieger,]keycodeinteger,shiftinteger)

    keydon和keyup事件包括下列部分：

    部分描述

    object一個(gè)對(duì)象表達(dá)式，其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。

    index是一個(gè)整數(shù)，它用來(lái)唯一標(biāo)識(shí)一個(gè)在控件數(shù)組中的控件（僅有控件數(shù)組時(shí)才有）。

    keycode是一個(gè)鍵代碼，諸如vbkeyf1（鍵）或vbkeyhome（home鍵）。

    shift是在該事件發(fā)生時(shí)響應(yīng)shift,ctrl和altft、ctrl、alt鍵在這些位分別對(duì)應(yīng)于值1、2和4。例如：如果ctrl和alt這兩個(gè)鍵都被按下，則shift的值為6。

    說(shuō)明

    對(duì)于這兩個(gè)事件來(lái)說(shuō)，帶焦點(diǎn)的對(duì)象都接收所有擊鍵。一個(gè)窗體只有在不具有可視的和有效的控件時(shí)才可以獲得焦點(diǎn)。雖然keydon和keyup事件可應(yīng)用于大多數(shù)鍵，它們最經(jīng)常地還是應(yīng)用于：擴(kuò)展的字符鍵如功能鍵、定位鍵、鍵盤(pán)修飾鍵和按鍵的組合、區(qū)別數(shù)字小鍵盤(pán)和常規(guī)數(shù)字鍵；在需要對(duì)按下和松開(kāi)一個(gè)鍵都響應(yīng)時(shí)，可使用keydon和keyup事件過(guò)程。

    下列情況不能引用keydon和keyup事件：窗體有一個(gè)mandbutton控件，并且default屬性設(shè)置為true時(shí)的enter鍵。窗體有一個(gè)mandbutton控件，并且cel屬性設(shè)置為true時(shí)的esc鍵、tab鍵，keydon和keyup用兩種參數(shù)解釋每個(gè)字符的大寫(xiě)形式和小寫(xiě)形式：keycode—顯示物理的鍵（將a和a作為同一個(gè)鍵返回）和shift—顯示shift＋key鍵的狀態(tài)而且返回a或a其中之一。

    如果需要測(cè)試shift參數(shù)，可使用該參數(shù)中定義各位的shift常數(shù)。該常數(shù)有下列值：

    常數(shù)值描述

    vbshiftmask1hift鍵的位

    屏蔽。

    vbctrlmask2ctrl鍵的

    位屏蔽。

    vbaltmask4alt鍵的位

    屏蔽。

    該常數(shù)用作位屏蔽，它可被用來(lái)測(cè)試任何鍵組合。

    注意：如果keyprevie屬性被設(shè)置為true，則一個(gè)窗體先于該窗體上的控件接收到此事件?？捎胟eyprevie屬性來(lái)創(chuàng)建全局鍵盤(pán)處理例程。

    了解了以上知識(shí)，我們可以制作出非常完美而且?guī)в锌旖萱I的程序，例如我們?cè)谝粋€(gè)程序中要用ctrl＋s存盤(pán)，shift最小化，alt＋x和esc退出：

    首先啟動(dòng)vb選擇新建exe文件，在form1窗體上拉一個(gè)textbox，并把form1的keyprevie屬性設(shè)為true,雙擊form1,選擇form的keypress事件，輸入如下代碼：

    privatesubform_keypress(keyasteger)esc鍵退出，vbescape可以用27代替

    keyascii=vbescapethenend

    endsub

    在form的keydon事件中輸入如下代碼：

    privatesubform_keydon(keycodeinteger,shiftinteger)處理ctrl＋x,shift,alt＋x

    shift=2andkeycode=vbkeysthenprint＃filenum,ctrl＋s存盤(pán)，vbkeys=83

    shift==1shift最小化

    shift=4andkeycode=vbkeyxthenendalt＋x退出，vbkeyx=88

    endsub

    在form的load事件中輸入如下代碼：

    privatesubform_load

    dimfilenuminteger

    filenum=freefil＋“\“forappend＃filenum

    endsub

    運(yùn)行它就可以實(shí)現(xiàn)我們所要求的功能了，舉這個(gè)例子只是拋磚引玉的作用，利用它我們還可以編寫(xiě)