二級visual basic輔導(dǎo)講義6-鼠標(biāo)鍵盤

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

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)'藍

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

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

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

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

控制鍵值。KeyCode

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

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

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

Form_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

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

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

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

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

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

PrivateSubForm_KeyPress(KeyAsciiAsInteger)

DimchAsString

ch=Chr(KeyAscii)

KeyAscii=Asc(UCase(ch))

PrintChr(KeyAscii+2)

EndSub

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

。

A)在KeyPress事件過程中不能識別鍵盤的按下與釋放

B)在KeyPress事件過程中不能識別回車鍵

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

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

DimSaveAllAsStringPrivateSubCommand1_Click()Text1.Text=Left(U