vb鍵盤與鼠標(biāo)事件過(guò)程

1、第第1111章章 鍵盤與鼠標(biāo)事件過(guò)程鍵盤與鼠標(biāo)事件過(guò)程第第1111章章 鍵盤與鼠標(biāo)事件過(guò)程鍵盤與鼠標(biāo)事件過(guò)程 除了響應(yīng)鼠標(biāo)的單擊（除了響應(yīng)鼠標(biāo)的單擊（Click）或雙擊（）或雙擊（DblClick）事件）事件以外，以外，Visual Basic應(yīng)用程序還能響應(yīng)多種鼠標(biāo)事件和鍵盤應(yīng)用程序還能響應(yīng)多種鼠標(biāo)事件和鍵盤事件。例如，窗體、圖片框與圖象控件都能檢測(cè)鼠標(biāo)指針事件。例如，窗體、圖片框與圖象控件都能檢測(cè)鼠標(biāo)指針的位置，并可判定其左、右鍵是否已按下，還能響應(yīng)鼠標(biāo)的位置，并可判定其左、右鍵是否已按下，還能響應(yīng)鼠標(biāo)按鈕與按鈕與Shift、Ctrl或或Alt鍵的各種組合。利用鍵盤事件可以鍵的各種組合。利

2、用鍵盤事件可以編程響應(yīng)多種鍵盤操作，也可以解釋、處理編程響應(yīng)多種鍵盤操作，也可以解釋、處理ASCII字符。字符。v11.1 鍵盤事件鍵盤事件 鍵盤事件是指能夠響應(yīng)各種按鍵操作的鍵盤事件是指能夠響應(yīng)各種按鍵操作的KeyDown、KeyUp及及KeyPress事件，可以把編寫(xiě)響應(yīng)擊鍵事件的應(yīng)用事件，可以把編寫(xiě)響應(yīng)擊鍵事件的應(yīng)用程序看作是編寫(xiě)鍵盤處理器。鍵盤處理器可在控件級(jí)和窗程序看作是編寫(xiě)鍵盤處理器。鍵盤處理器可在控件級(jí)和窗體級(jí)這兩個(gè)層次上工作。有了控件級(jí)（低級(jí)）處理器就可體級(jí)這兩個(gè)層次上工作。有了控件級(jí)（低級(jí)）處理器就可對(duì)特定控件編程。例如，可能希望將對(duì)特定控件編程。例如，可能希望將Textbo

3、x這個(gè)控件中的這個(gè)控件中的輸入文本都轉(zhuǎn)換成大寫(xiě)字符。而有了窗體級(jí)處理器就可使輸入文本都轉(zhuǎn)換成大寫(xiě)字符。而有了窗體級(jí)處理器就可使窗體首先響應(yīng)擊鍵事件，于是就可將焦點(diǎn)轉(zhuǎn)換成窗體的控窗體首先響應(yīng)擊鍵事件，于是就可將焦點(diǎn)轉(zhuǎn)換成窗體的控件并重復(fù)或啟動(dòng)事件。件并重復(fù)或啟動(dòng)事件。11.1.1 KeyPress11.1.1 KeyPress事件事件 KeyPress事件當(dāng)用戶按下和松開(kāi)一個(gè)事件當(dāng)用戶按下和松開(kāi)一個(gè)ASCII字符鍵時(shí)發(fā)字符鍵時(shí)發(fā)生。該事件被觸發(fā)時(shí)，被按鍵的生。該事件被觸發(fā)時(shí)，被按鍵的ASCII碼將自動(dòng)傳遞給事碼將自動(dòng)傳遞給事件過(guò)程的件過(guò)程的KeyAscii參數(shù)。在程序中，通過(guò)訪問(wèn)該參數(shù)，即參數(shù)。

4、在程序中，通過(guò)訪問(wèn)該參數(shù)，即可獲知用戶按下了哪一個(gè)鍵，并可識(shí)別字母的大小寫(xiě)。其可獲知用戶按下了哪一個(gè)鍵，并可識(shí)別字母的大小寫(xiě)。其語(yǔ)法格式為：語(yǔ)法格式為：Private Sub 對(duì)象名對(duì)象名_KeyPress(keyascii As Integer) 其中參數(shù)其中參數(shù)keyascii是被按下字符鍵的標(biāo)準(zhǔn)是被按下字符鍵的標(biāo)準(zhǔn)ASCII碼。對(duì)它碼。對(duì)它進(jìn)行改變可給對(duì)象發(fā)送一個(gè)不同的字符。將進(jìn)行改變可給對(duì)象發(fā)送一個(gè)不同的字符。將keyascii改變?yōu)楦淖優(yōu)?時(shí)可取消擊鍵，這樣一來(lái)對(duì)象便接收不到字符。時(shí)可取消擊鍵，這樣一來(lái)對(duì)象便接收不到字符。 KeyPress事件可以引用任何可打印的鍵盤字符、來(lái)自標(biāo)事件

5、可以引用任何可打印的鍵盤字符、來(lái)自標(biāo)準(zhǔn)字母表的字符或少數(shù)幾個(gè)特殊字符之一的字符與準(zhǔn)字母表的字符或少數(shù)幾個(gè)特殊字符之一的字符與Ctrl鍵的組合、鍵的組合、Enter或或Backspace鍵。鍵?！纠纠?1-1】可以顯示按鍵及其】可以顯示按鍵及其ASCII碼的程序（如圖碼的程序（如圖11-1）。）。圖圖11-1 KeyPress事件接受的按鍵事件接受的按鍵 程序的代碼部分：程序的代碼部分： 復(fù)選框的復(fù)選框的Click事件代碼：事件代碼：Private Sub Check1_Click() Text1.SetFocusEnd Sub 文本（輸入）框文本（輸入）框Text1的的KeyPress事件代

6、碼：事件代碼：Private Sub Text1_KeyPress(KeyAscii As Integer) Text2.Text = KeyAscii Select Case KeyAscii Case 0 To 7, 9 To 12, 14 To 26, 28 To 31 Text1.Text = Text3.Text = Ctrl+ & Chr(64 + KeyAscii) Case 8 Text3.Text = Ctrl+ & Chr(64 + KeyAscii) & 或或 退格鍵退格鍵 Case 13 Text1.Text = Text3.Text = Ctr

7、l+ & Chr(64 + KeyAscii) & 或或 回車鍵回車鍵 Case 27 Text1.Text = Text3.Text = Ctrl+ & Chr(64 + KeyAscii) & 或或 Esc鍵鍵 Case Else Text3.Text = Chr(KeyAscii) End Select If Check1.Value = 0 Then KeyAscii = 0 End IfEnd Sub11.1.2 KeyDown11.1.2 KeyDown和和KeyUpKeyUp事件事件 KeyDown和和KeyUp事件是當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)按下或事件

8、是當(dāng)一個(gè)對(duì)象具有焦點(diǎn)時(shí)按下或松開(kāi)一個(gè)鍵時(shí)發(fā)生的。當(dāng)控制焦點(diǎn)位于某對(duì)象上時(shí)，按下松開(kāi)一個(gè)鍵時(shí)發(fā)生的。當(dāng)控制焦點(diǎn)位于某對(duì)象上時(shí)，按下鍵盤中的任意一鍵，則會(huì)在該對(duì)象上觸發(fā)產(chǎn)生鍵盤中的任意一鍵，則會(huì)在該對(duì)象上觸發(fā)產(chǎn)生KeyDown事事件，當(dāng)釋放該鍵時(shí)，將觸發(fā)產(chǎn)生件，當(dāng)釋放該鍵時(shí)，將觸發(fā)產(chǎn)生KeyUp事件，之后產(chǎn)生事件，之后產(chǎn)生KeyPress事件。其語(yǔ)法格式為：事件。其語(yǔ)法格式為：Private Sub 對(duì)象名對(duì)象名_KeyDown(KeyCode As Integer, Shift As Integer)Private Sub 對(duì)象名對(duì)象名_KeyUp(KeyCode As Integer, Shi

9、ft As Integer) 其中參數(shù)其中參數(shù)KeyCode參數(shù)項(xiàng)用于返回被按鍵的掃描代碼。參數(shù)項(xiàng)用于返回被按鍵的掃描代碼。由于掃描碼主要反映物理鍵位，因此通過(guò)該參數(shù)不能區(qū)分由于掃描碼主要反映物理鍵位，因此通過(guò)該參數(shù)不能區(qū)分字母大小寫(xiě)。字母大小寫(xiě)。11.1.2 KeyDown11.1.2 KeyDown和和KeyUpKeyUp事件事件 shift參數(shù)項(xiàng)返回一個(gè)整數(shù)，該整數(shù)相應(yīng)于參數(shù)項(xiàng)返回一個(gè)整數(shù)，該整數(shù)相應(yīng)于Shift、Ctrl和和Alt鍵的狀態(tài)。鍵的狀態(tài)。shift參數(shù)等于參數(shù)等于1、2和和4分別表分別表示示Shift、Ctrl和和Alt鍵被按下，而三數(shù)的部分鍵被按下，而三數(shù)的部分和表示三個(gè)

10、按鈕部分地被同時(shí)按下。因此，可結(jié)合該參數(shù)和表示三個(gè)按鈕部分地被同時(shí)按下。因此，可結(jié)合該參數(shù)項(xiàng)來(lái)判斷輸入字母的大小寫(xiě)。項(xiàng)來(lái)判斷輸入字母的大小寫(xiě)。 應(yīng)當(dāng)使用應(yīng)當(dāng)使用KeyDown和和KeyUp事件過(guò)程來(lái)處理任何不被事件過(guò)程來(lái)處理任何不被KeyPress識(shí)別的擊鍵，諸如：功能鍵、編輯鍵、定位鍵以識(shí)別的擊鍵，諸如：功能鍵、編輯鍵、定位鍵以及任何這些鍵和鍵盤換檔鍵的組合等。與及任何這些鍵和鍵盤換檔鍵的組合等。與KeyDown和和KeyUp事件不同的是，事件不同的是，KeyPress不顯示鍵盤的物理狀態(tài)，不顯示鍵盤的物理狀態(tài)，而只是傳遞一個(gè)字符。而只是傳遞一個(gè)字符?！纠纠?1-2】可以測(cè)試功能鍵與控制鍵

11、的程序（如圖】可以測(cè)試功能鍵與控制鍵的程序（如圖11-2）。）。 程序的代碼部分：程序的代碼部分： 文本（輸入）框文本（輸入）框Text1的的Keydown事件代碼：事件代碼：Private Sub Text1_Keydown(KeyCode As Integer, Shift As Integer) Text2.Text = Text2.Text & Str(KeyCode) & , If KeyCode 111 And KeyCode 0, 1, 0) Check2.Value = IIf(Shift And vbCtrlMask) 0, 1, 0) Check3.Valu

12、e = IIf(Shift And vbAltMask) 0, 1, 0)End Sub 命令按鈕（清除）命令按鈕（清除）Command1 的的 Click 事件代碼：事件代碼：Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocusEnd Sub圖圖11-2 測(cè)試功能鍵與控制鍵測(cè)試功能鍵與控制鍵11.1.3 11.1.3 使用使用KeyPreviewKeyPreview屬性屬性 KeyPreview 屬性返回或設(shè)置一個(gè)值，以決定是否在控件屬性返回或設(shè)置一個(gè)值，以決定是否在控件的鍵盤事件（的鍵盤事件（KeyDow

13、n、KeyUp 和和 KeyPress）之前激活）之前激活窗體的鍵盤事件。其語(yǔ)法為：窗體的鍵盤事件。其語(yǔ)法為：對(duì)象名對(duì)象名.KeyPreview = boolean 其中，其中，Boolean是布爾表達(dá)式，指定如何接收事件：當(dāng)取是布爾表達(dá)式，指定如何接收事件：當(dāng)取值為值為False（缺省值）時(shí)，活動(dòng)控件接收鍵盤事件，而窗體（缺省值）時(shí)，活動(dòng)控件接收鍵盤事件，而窗體不接收；當(dāng)取值為不接收；當(dāng)取值為True時(shí)，窗體先接收鍵盤事件，然后是時(shí)，窗體先接收鍵盤事件，然后是活動(dòng)控件接收事件?；顒?dòng)控件接收事件。v11.2 鼠標(biāo)事件鼠標(biāo)事件 在前面的例子中曾多次使用鼠標(biāo)事件，即單擊（在前面的例子中曾多次使用鼠

14、標(biāo)事件，即單擊（Click）事件和雙擊（事件和雙擊（DblClick）事件，這些事件是通過(guò)快速按下）事件，這些事件是通過(guò)快速按下并松開(kāi)鼠標(biāo)鍵而產(chǎn)生的。除此之外，并松開(kāi)鼠標(biāo)鍵而產(chǎn)生的。除此之外，VB還可以通過(guò)還可以通過(guò)MouseDown、MouseUp、MouseMove事件使應(yīng)用程序?qū)κ录箲?yīng)用程序?qū)κ髽?biāo)位置及狀態(tài)的變化作出響應(yīng)（其中不包括拖放事件。鼠標(biāo)位置及狀態(tài)的變化作出響應(yīng)（其中不包括拖放事件。 其實(shí)，其實(shí)，Click事件是由事件是由MouseDown和和MouseUp組成，因組成，因此此MouseDown和和MouseUp是更基本的鼠標(biāo)事件。是更基本的鼠標(biāo)事件。11.2.1 MouseD

15、own11.2.1 MouseDown和和MouseUpMouseUp事件事件 MouseDown和和MouseUp 事件當(dāng)按下事件當(dāng)按下(MouseDown)或者或者釋放釋放(MouseUp)鼠標(biāo)按鈕時(shí)發(fā)生。其語(yǔ)法為：鼠標(biāo)按鈕時(shí)發(fā)生。其語(yǔ)法為：Private Sub 對(duì)象名對(duì)象名_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)Private Sub 對(duì)象名對(duì)象名_MouseUp(button As Integer, shift As Integer, x As Single, y As Sing

16、le) 其中：參數(shù)其中：參數(shù)button返回一個(gè)整數(shù)，返回一個(gè)整數(shù)，button參數(shù)的值分參數(shù)的值分別等于別等于1，2，和，和4時(shí)，相應(yīng)于左按鈕、右按鈕以及中間按鈕時(shí)，相應(yīng)于左按鈕、右按鈕以及中間按鈕的動(dòng)作。注意只能有一個(gè)按鈕引起事件。的動(dòng)作。注意只能有一個(gè)按鈕引起事件。 參數(shù)參數(shù)shift返回一個(gè)整數(shù)，在返回一個(gè)整數(shù)，在button參數(shù)指定的按鈕被按參數(shù)指定的按鈕被按下或者被釋放的情況下，該整數(shù)相應(yīng)于下或者被釋放的情況下，該整數(shù)相應(yīng)于Shift、Ctrl和和Alt鍵鍵的狀態(tài)。的狀態(tài)。11.2.1 MouseDown11.2.1 MouseDown和和MouseUpMouseUp事件事件 Mo

17、useDown和和MouseUp 事件當(dāng)按下事件當(dāng)按下(MouseDown)或者或者釋放釋放(MouseUp)鼠標(biāo)按鈕時(shí)發(fā)生。其語(yǔ)法為：鼠標(biāo)按鈕時(shí)發(fā)生。其語(yǔ)法為：Private Sub 對(duì)象名對(duì)象名_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)Private Sub 對(duì)象名對(duì)象名_MouseUp(button As Integer, shift As Integer, x As Single, y As Single) 參數(shù)參數(shù)x,y返回一個(gè)指定鼠標(biāo)指針當(dāng)前位置的數(shù)。返回一個(gè)指定鼠標(biāo)指針當(dāng)前位置

18、的數(shù)。x和和y的值的值所表示的總是通過(guò)該對(duì)象所表示的總是通過(guò)該對(duì)象ScaleHeight，ScaleWidth，ScaleLeft，和，和ScaleTop屬性所建立的坐標(biāo)系統(tǒng)的方式。屬性所建立的坐標(biāo)系統(tǒng)的方式。11.2.2 MouseMove11.2.2 MouseMove事件事件 MouseMove 事件在移動(dòng)鼠標(biāo)時(shí)發(fā)生。其語(yǔ)法格式為：事件在移動(dòng)鼠標(biāo)時(shí)發(fā)生。其語(yǔ)法格式為：Private Sub 對(duì)象名對(duì)象名_MouseMove(button As Integer, shift As Integer, x As Single, y As Single) 其中參數(shù)描述同其中參數(shù)描述同MouseD

19、own和和MouseUp事件。事件。 MouseMove事件伴隨鼠標(biāo)指針在對(duì)象間移動(dòng)時(shí)連續(xù)不斷事件伴隨鼠標(biāo)指針在對(duì)象間移動(dòng)時(shí)連續(xù)不斷地產(chǎn)生。除非有另一個(gè)對(duì)象捕獲了鼠標(biāo)，否則，當(dāng)鼠標(biāo)位地產(chǎn)生。除非有另一個(gè)對(duì)象捕獲了鼠標(biāo)，否則，當(dāng)鼠標(biāo)位置在對(duì)象的邊界范圍內(nèi)時(shí)該對(duì)象就能接收置在對(duì)象的邊界范圍內(nèi)時(shí)該對(duì)象就能接收MouseMove事件。事件。11.2.3 11.2.3 自定義鼠標(biāo)指針自定義鼠標(biāo)指針 在在VB中，可以通過(guò)屬性設(shè)置來(lái)改變鼠標(biāo)指針的形狀。鼠中，可以通過(guò)屬性設(shè)置來(lái)改變鼠標(biāo)指針的形狀。鼠標(biāo)指針的改變可以告知用戶諸多信息，例如，正在進(jìn)行長(zhǎng)標(biāo)指針的改變可以告知用戶諸多信息，例如，正在進(jìn)行長(zhǎng)時(shí)間的后臺(tái)任

20、務(wù)，調(diào)整某個(gè)控件或窗口的大小，某控件不時(shí)間的后臺(tái)任務(wù)，調(diào)整某個(gè)控件或窗口的大小，某控件不支持拖放操作等等。支持拖放操作等等。1. MousePointer屬性的設(shè)置屬性的設(shè)置 MousePointer屬性是一個(gè)整數(shù)，取值為屬性是一個(gè)整數(shù)，取值為015，可用，可用MousePointer屬性在屬性在16個(gè)預(yù)定義指針中任選一個(gè)。這些指?jìng)€(gè)預(yù)定義指針中任選一個(gè)。這些指針表示各種系統(tǒng)事件和過(guò)程，表針表示各種系統(tǒng)事件和過(guò)程，表11-1描述了各種指針及其描述了各種指針及其在應(yīng)用程序中的可能作用。在應(yīng)用程序中的可能作用。表表11-1 MousePointer屬性值的描述屬性值的描述指針形狀值常數(shù)描述0vbDe

21、fault（缺省值）形狀由對(duì)象決定。1vbArrow箭頭。2vbCrosshair十字線（crosshair指針）。3vbIbeamI型4vbIconPointer圖標(biāo)（矩形內(nèi)的小矩形）。5vbSizePointer尺寸線（指向東、南、西和北四方向的箭頭）。6vbSizeNESW右上-左下尺寸線（指向東北和西南方向的雙箭頭）。7vbSizeNS垂-直尺寸線（指向南和北的雙箭頭）。8vbSizeNWSE左上-右下尺寸線（指向東南和西北方向的雙箭頭）。9vbSizeWE水-平尺寸線（指向東和西兩個(gè)方向的雙箭頭）。10vbUpArrow向上的箭頭。11vbHourglass沙漏（表示等待狀態(tài)）。12

22、vbNoDrop不允許放下。13vbArrowHourglass箭頭和沙漏。14vbArrowQuestion箭頭和問(wèn)號(hào)。15vbSizeAll四向尺寸線。99vbCustom通過(guò)MouseIcon屬性所指定的自定義圖標(biāo)。2. 圖標(biāo)和光標(biāo)圖標(biāo)和光標(biāo) 用自定義圖標(biāo)或光標(biāo)可進(jìn)一步改變應(yīng)用程序的外觀和功用自定義圖標(biāo)或光標(biāo)可進(jìn)一步改變應(yīng)用程序的外觀和功能?？梢栽O(shè)置鼠標(biāo)指針來(lái)顯示自定義圖標(biāo)或光標(biāo)，它們可能?？梢栽O(shè)置鼠標(biāo)指針來(lái)顯示自定義圖標(biāo)或光標(biāo)，它們可以表示鼠標(biāo)的狀態(tài)及當(dāng)前的輸入位置。以表示鼠標(biāo)的狀態(tài)及當(dāng)前的輸入位置。 為使用自定義圖標(biāo)或光標(biāo)，應(yīng)設(shè)置為使用自定義圖標(biāo)或光標(biāo)，應(yīng)設(shè)置MousePointer

23、和和MouseIcon屬性。其中屬性。其中MouseIcon屬性設(shè)置為自定義圖標(biāo)或?qū)傩栽O(shè)置為自定義圖標(biāo)或光標(biāo)文件，而光標(biāo)文件，而MousePointer 屬性則設(shè)置成屬性則設(shè)置成99 - Custom。 在將在將MousePointer屬性設(shè)置成屬性設(shè)置成99 - Custom時(shí)，如果未在時(shí)，如果未在MouseIcon上加載圖標(biāo)，則使用缺省的鼠標(biāo)指針。同樣，上加載圖標(biāo)，則使用缺省的鼠標(biāo)指針。同樣，如果未將如果未將MousePointer屬性設(shè)置成屬性設(shè)置成99 - Custom，則將忽略，則將忽略 MouseIcon的設(shè)置。的設(shè)置。11.2.4 11.2.4 使用鼠標(biāo)事件使用鼠標(biāo)事件【例【例1

24、1-3】使用鼠標(biāo)事件設(shè)計(jì)的畫(huà)圖小程序，如圖】使用鼠標(biāo)事件設(shè)計(jì)的畫(huà)圖小程序，如圖11-3所示。所示。圖圖11-3 小畫(huà)板程序小畫(huà)板程序 編寫(xiě)窗體編寫(xiě)窗體Form1的事件代碼：的事件代碼： 裝入（裝入（Load）事件：）事件：Private Sub Form_Load() Me.AutoRedraw = True Me.Caption = 小畫(huà)板小畫(huà)板- & 未命名未命名End Sub 鼠標(biāo)按下（鼠標(biāo)按下（MouseDown）事件：）事件：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,

25、 Y As Single) If Button = 1 Then CurrentX = X: CurrentY = Y End IfEnd Sub 鼠標(biāo)移動(dòng)（鼠標(biāo)移動(dòng)（MouseMove）事件：）事件：Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Me.Line (CurrentX, CurrentY)-(X, Y) CurrentX = X: CurrentY = Y End IfEnd Sub 編寫(xiě)菜單的事件代碼：編寫(xiě)菜單的