VisualBasic輔導(dǎo)講義計(jì)算機(jī)與數(shù)學(xué)基礎(chǔ)教學(xué)部：劉冰鍵盤(pán)和鼠標(biāo)事件MouseDown：鼠標(biāo)的任一鍵被按下時(shí)觸發(fā)該事件。MouseUp：鼠標(biāo)的任一鍵被釋放時(shí)觸發(fā)該事件。MouseMove：鼠標(biāo)被移動(dòng)時(shí)觸發(fā)該事件。以Form對(duì)象為例，它們的語(yǔ)法格式為：PrivateSubForm_MouseDown（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）鼠標(biāo)事件——在需要判斷鼠標(biāo)點(diǎn)擊的時(shí)候適用【例】設(shè)計(jì)鼠標(biāo)事件過(guò)程。要求：1．鼠標(biāo)移動(dòng)時(shí)，標(biāo)簽上顯示鼠標(biāo)當(dāng)前坐標(biāo)值。2．在窗體某個(gè)位置單擊鼠標(biāo)左鍵時(shí)，以該位置為圓心，500為半徑畫(huà)圓。3．在單擊鼠標(biāo)同時(shí)如果按下Shift鍵，則圓顯示為紅色；按下Ctrl鍵，顯示為綠色；按下Alt鍵，顯示為藍(lán)色。

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DimcolorAsLongIfButton=1Then

SelectCaseShift

Case0color=RGB(0,0,0)'黑

Case1color=RGB(255,0,0)'紅

Case2color=RGB(0,255,0)'綠

Case4color=RGB(0,0,255)'藍(lán)

EndSelectForm1.Circle(X,Y),500,color'畫(huà)圓

EndIfMousePointer（形狀）屬性鼠標(biāo)光標(biāo)屬性MouseIcon（自定義圖標(biāo)形狀）屬性注意：MousePointer=99時(shí)，MouseIcon屬性才有效。在程序中使用LoadPicture函數(shù)裝入以.ico或.cur為擴(kuò)展名的圖標(biāo)文件，用來(lái)設(shè)置MouseIcon屬性。形狀屬性值(15個(gè))：0

由對(duì)象決定1箭頭2十字線3I型……向上箭頭11沙漏……99由MouseIcon自定義事件過(guò)程格式：SubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)EndSub對(duì)具有焦點(diǎn)的控件按下并釋放鍵盤(pán)某個(gè)鍵時(shí)產(chǎn)生鍵盤(pán)事件過(guò)程。

鍵盤(pán)事件過(guò)程常用鍵盤(pán)事件：KeyDown、KeyUp、KeyPress事件。 按下(鍵值)釋放按下(字符ASCⅡ值)參數(shù)說(shuō)明：Shift

控制鍵值。KeyCode

按鍵代碼。大小寫(xiě)共用一個(gè)鍵（大寫(xiě)）；上下檔字符取下檔字符；功能鍵用鍵代碼或常量字符：如：F1112VBKeyF1獲得按鍵值：PrintKeycodeKeyPress(KeyAsciiAsInteger)IfKeyCode=vbKeyF1Then……Endif參數(shù)說(shuō)明：KeyAscii識(shí)別按鍵字符的ASCII碼。默認(rèn)小寫(xiě)，shift或大寫(xiě)鎖定變大寫(xiě)；因此，可以對(duì)輸入值進(jìn)行限制。字符：A(65),a(97),0(48),9(57)少量功能鍵：回車(chē)鍵(13),Esc(27)0:取消按鍵

PrintKeycodePrintKeyAscii用戶按下一個(gè)鍵時(shí)觸發(fā)KeyDown事件SubObject_KeyDown（KeyCodeAsInteger，ShiftAsInteger）釋放引發(fā)KeyUp事件SubObject_KeyUp（KeyCodeAsInteger，ShiftAsInteger）KeyPress只響應(yīng)按下標(biāo)準(zhǔn)ASCII字符表中對(duì)應(yīng)的鍵時(shí)的事件SubObject_KeyPress（KeyAsciiAsInteger）鍵盤(pán)事件PrivateSubCommand1_Click()ClsEndSubPrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Form1.ForeColor=vbRedPrintKeyCodeEndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)Form1.ForeColor=vbBluePrintKeyAsciiEndSubKeyPreview（鍵預(yù)覽）屬性

默認(rèn)狀態(tài)下，當(dāng)窗體上加入控件后，焦點(diǎn)始終在控件上（除非控件不可用或者不可見(jiàn)），而此時(shí)窗體接收不到keydown等事件，此時(shí)將窗體的keypreview改為true,則無(wú)論焦點(diǎn)在哪個(gè)控件上，窗體都可以接受到keydown,keypress等事件。3.2003年9月（14）窗體的MouseDown事件過(guò)程

Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

有4個(gè)參數(shù)，關(guān)于這些參數(shù)，正確的描述是______。

A）通過(guò)Button參數(shù)判定當(dāng)前按下的是哪一個(gè)鼠標(biāo)鍵

B）Shift參數(shù)只能用來(lái)確定是否按下Shift鍵

C）Shift參數(shù)只能用來(lái)確定是否按下Alt和Ctrl鍵

D）參數(shù)x,y用來(lái)設(shè)置鼠標(biāo)當(dāng)前位置的坐標(biāo)5.2005年4月（26）把窗體的KeyPreview屬性設(shè)置為T(mén)rue，然后編寫(xiě)如下事件過(guò)程

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

程序運(yùn)行后，按鍵盤(pán)上的“A”鍵，則在窗體上顯示的內(nèi)容是______。A)AB)BC)CD)D13.2004年9月(18)以下敘述中錯(cuò)誤的是

。

A)在KeyPress事件過(guò)程中不能識(shí)別鍵盤(pán)的按下與釋放

B)在KeyPress事件過(guò)程中不能識(shí)別回車(chē)鍵

C)在KeyDown和KeyUp事件過(guò)程中，將鍵盤(pán)輸入的"A"和"a"視作相同的字母

D)在KeyDown和KeyUp事件過(guò)程中，從大鍵盤(pán)上輸入的"1"和從右側(cè)小鍵盤(pán)上輸入的"1"被視作不同的字符1.2006年4月(9)在窗體上畫(huà)1個(gè)命令按鈕和1個(gè)文本框，其名稱分別為Command1和Text1，然后編寫(xiě)如下代碼：

DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Left(U