鍵盤(pán)與鼠標(biāo)事件

第9章鍵盤(pán)與鼠標(biāo)事件1.章節(jié)分布1鍵盤(pán)事件2鼠標(biāo)事件2.8.1鍵盤(pán)事件KeyPress事件過(guò)程KeyDown事件過(guò)程KeyUp事件過(guò)程鍵盤(pán)事件3.8.1.1KeyPress事件過(guò)程觸發(fā)時(shí)刻：當(dāng)按下鍵盤(pán)上某個(gè)鍵時(shí)，將觸發(fā)KeyPress；效勞對(duì)象：窗體、復(fù)選框、組合框、命令按鈕、列表框、圖片框、文本框、滾動(dòng)條以及與文件有關(guān)的控件。語(yǔ)句格式：PrivateSubText1_KeyPress(KeyAsciiAsInteger)…EndSub應(yīng)用舉例Example8.1：在窗體上畫(huà)一個(gè)文本框，然后編寫(xiě)程序。程序運(yùn)行后，如果按下鍵盤(pán)上的A、B、C、D鍵，那么在文本框中顯示E、F、D、H。按鍵的ASCII碼值4.PrivateSubText1_KeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCase65,66,68KeyAscii=KeyAscii+4Case67KeyAscii=KeyAscii+1EndSelectEndSub5.8.1.2KeyDown事件過(guò)程觸發(fā)時(shí)刻：按下鍵盤(pán)上的某個(gè)鍵時(shí)，觸發(fā)KeyDown。與KeyPress不同，KeyDown將返回的是鍵盤(pán)的直接狀態(tài)。語(yǔ)句格式：PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)…EndSub參數(shù)說(shuō)明：-KeyCode：按鍵的鍵位值。例如，當(dāng)按下“a〞時(shí)，KeyAscii值為97，KeyCode值為65。-Shift：Shift表示3個(gè)轉(zhuǎn)換鍵的狀態(tài)，這3個(gè)鍵是Ctrl、6.Alt以及Shift鍵，它們分別用3位二進(jìn)制數(shù)表示，即如下所示：當(dāng)然，Shift值可以由以上3種值組合而成，表示同時(shí)按下多個(gè)鍵，例如，如同時(shí)按下ctrl和shift鍵，那么Shift=1+2，即3。應(yīng)用舉例Example8.2：編寫(xiě)一個(gè)程序，當(dāng)同時(shí)按下Alt、Shift和F6鍵時(shí)，在窗體上顯示“再見(jiàn)〞，并終止程序的運(yùn)行。001，即1，按下Shift鍵010，即2，按下Ctrl鍵100，即4，按下Alt鍵Shift=｛7.PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=&H75AndShift=5ThenPrint"再見(jiàn)"EndEndIfEndSub8.8.1.3KeyUp事件過(guò)程

觸發(fā)時(shí)刻：當(dāng)松開(kāi)鍵盤(pán)上的某個(gè)鍵時(shí)，觸發(fā)KeyUp；語(yǔ)句格式：PrivateSubText1_KeyUp(KeyCodeAsInteger,ShiftAsInteger)…EndSub其中，參數(shù)的含義同KeyDown事件過(guò)程。應(yīng)用舉例

Example8.3：演示KeyUp事件過(guò)程。9.PrivateSubForm_KeyUp(KeyCodeAsInteger,ShiftAsInteger)SelectCaseKeyCodeCase&H70Print“松開(kāi)F1鍵〞Case&H71Print“松開(kāi)F2鍵〞Case&H72Print“松開(kāi)F3鍵〞EndSelectEndSub10.8.2鼠標(biāo)事件過(guò)程在以前的例子中曾屢次使用鼠標(biāo)事件，即單擊〔Click〕事件，實(shí)際上，除了常用的Click事件過(guò)程外，VisualBasic還提供了以下3個(gè)鼠標(biāo)事件過(guò)程：按下鼠標(biāo)鍵事件過(guò)程SubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)…EndSub松開(kāi)鼠標(biāo)鍵事件過(guò)程SubForm_MouseUp(ButtonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)…EndSub11.

移動(dòng)鼠標(biāo)鍵事件過(guò)程SubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)…EndSub

參數(shù)說(shuō)明：-x,y：鼠標(biāo)光標(biāo)當(dāng)前的位置；-Shift：同鍵盤(pán)事件過(guò)程中的Shift參數(shù)含義；-Button：被按下的鼠標(biāo)鍵，含義如下：001，即1，按下鼠標(biāo)左鍵010，即2，按下鼠標(biāo)右鍵100，即4，按下鼠標(biāo)中間鍵Button=｛12.

需要注意的是，在MouseDown和MouseUp中，Button值不能進(jìn)行求和，即Button值只能是3個(gè)值中的某一個(gè)，它不能反映是否同時(shí)按下了鼠標(biāo)上的多個(gè)鍵；對(duì)于MouseMove來(lái)說(shuō)，可以通過(guò)Button參數(shù)判斷按下一個(gè)或同時(shí)按下多個(gè)鍵。MouseDown：IfButton=3Then“同時(shí)按下左、右兩鍵〞MouseMove：IfButton=3Then“同時(shí)按下左、右兩鍵〞MouseMove：If(ButtonAnd3)=3Then“同時(shí)按下左、右兩鍵〞錯(cuò)誤，在MouseDo