VB程序設(shè)計(jì)第十一章鍵盤和鼠標(biāo)事件過程ppt課件

1、Visual Basic程序設(shè)計(jì)教程ptc.imust內(nèi)蒙古科技大學(xué)實(shí)際訓(xùn)練中心內(nèi)蒙古科技大學(xué)實(shí)際訓(xùn)練中心第十一章第十一章 鍵盤和鼠標(biāo)事件過程鍵盤和鼠標(biāo)事件過程鍵盤事件：鍵盤事件： KeyPress KeyPress 事件：用戶按下并釋放一個(gè)能產(chǎn)生一個(gè)能產(chǎn)生事件：用戶按下并釋放一個(gè)能產(chǎn)生一個(gè)能產(chǎn)生ASCIIASCII碼的鍵時(shí)碼的鍵時(shí) 被觸發(fā)；被觸發(fā)； KeyUp KeyUp 事件：用戶釋放任一鍵時(shí)被觸發(fā)；事件：用戶釋放任一鍵時(shí)被觸發(fā)； KeyDown KeyDown 事件：用戶按下任一個(gè)鍵時(shí)被觸發(fā)；事件：用戶按下任一個(gè)鍵時(shí)被觸發(fā)；引發(fā)引發(fā)KeyPressKeyPress事件的按鍵：事件的按鍵：

2、 數(shù)字、大小寫字母、數(shù)字、大小寫字母、EnterEnter、BackspaceBackspace、EscEsc、TabTab等鍵。等鍵。 如文本框如文本框Text1Text1的的KeyPressKeyPress事件如下：事件如下： Private Sub Text1_KeyPress(Keyascii as integer) Private Sub Text1_KeyPress(Keyascii as integer) End Sub End Sub “a a的的ASCIIASCII值為值為9797；“A A的的ASCIIASCII值為值為6565； 當(dāng)控制焦點(diǎn)在某個(gè)對象上時(shí)，按下鍵盤上的任一

3、鍵，便會(huì)引發(fā)該對象的當(dāng)控制焦點(diǎn)在某個(gè)對象上時(shí)，按下鍵盤上的任一鍵，便會(huì)引發(fā)該對象的KeyDown事件，釋放按鍵便會(huì)觸發(fā)事件，釋放按鍵便會(huì)觸發(fā)KeyUp事件。事件。 如文本框如文本框Text1的的KeyDown事件過程：事件過程： Private Sub Text1_KeyDown(KeyCode as integer,Shift As integer) End Sub 如文本框如文本框Text1的的KeyUp事件過程：事件過程： Private Sub Text1_KeyUp(KeyCode as integer,Shift As integer) End Sub 參數(shù)：參數(shù)： KeyCode

4、：為用戶所操作的鍵的掃描碼；即鍵的物理位置一樣那么：為用戶所操作的鍵的掃描碼；即鍵的物理位置一樣那么KeyCode參數(shù)值一樣參數(shù)值一樣A“和和a“；5和等；但大鍵盤的數(shù)字和小鍵盤的數(shù)字的和等；但大鍵盤的數(shù)字和小鍵盤的數(shù)字的KeyCode不一樣；不一樣； 參數(shù)：參數(shù)： Shift：根據(jù)能否同時(shí)按下：根據(jù)能否同時(shí)按下Shift、Ctrl和和Alt鍵前往的一個(gè)整數(shù)；鍵前往的一個(gè)整數(shù)； 整數(shù)值符號常量說明1vbShiftMask按下Shift鍵2vbCtrlMask按下Ctrl鍵4vbAltMask按下Alt鍵0沒有按下Shift、Ctrl、Alt鍵7同時(shí)按下Shift、Ctrl、Alt鍵 鍵盤三個(gè)事

5、件的觸發(fā)順序：KeyDown、KeyPress、KeyUp； 普通情況下，控件可以觸發(fā)這三個(gè)事件； 但窗體必需將“KeyPreiew屬性值設(shè)為True；那么首先窗體的KeyPress、 KeyUp和KeyDown； 例例11-1設(shè)計(jì)一個(gè)運(yùn)用程序。在窗體上建立一個(gè)文本框和一個(gè)標(biāo)簽，當(dāng)從鍵盤設(shè)計(jì)一個(gè)運(yùn)用程序。在窗體上建立一個(gè)文本框和一個(gè)標(biāo)簽，當(dāng)從鍵盤向文本框英文字符時(shí)，將其轉(zhuǎn)換成大寫字母顯示在標(biāo)簽中。向文本框英文字符時(shí)，將其轉(zhuǎn)換成大寫字母顯示在標(biāo)簽中。 解題思緒：在解題思緒：在text1的的keypress事件中，將鍵盤的事件中，將鍵盤的asc碼轉(zhuǎn)化為相應(yīng)的字符，碼轉(zhuǎn)化為相應(yīng)的字符， 再將其轉(zhuǎn)化為

6、大寫。再將其轉(zhuǎn)化為大寫。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii) Label1.Caption = Label1.Caption & charEnd Sub 例例11-2設(shè)計(jì)一個(gè)運(yùn)用程序。在窗體上建立一個(gè)文本框，其屬性值均為默許值，設(shè)計(jì)一個(gè)運(yùn)用程序。在窗體上建立一個(gè)文本框，其屬性值均為默許值，并將窗體的并將窗體的KeyPreview屬性值設(shè)為屬性值設(shè)為True。 解題思緒解題思緒:假設(shè)設(shè)置窗體的假設(shè)設(shè)置窗體的KeyPreview屬性值為屬性值

7、為True，那么先執(zhí)行窗體的，那么先執(zhí)行窗體的KeyPress事件，而后執(zhí)行文本框的事件，而后執(zhí)行文本框的KeyPress事件；事件； Private Sub Form_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1End Sub 例例11-3設(shè)計(jì)一個(gè)運(yùn)用程序。當(dāng)按下設(shè)計(jì)一個(gè)運(yùn)用程序。當(dāng)按下AltF5組合鍵時(shí)終止程序運(yùn)轉(zhuǎn)。組合鍵時(shí)終止程序運(yùn)轉(zhuǎn)。 闡明：先將窗體的闡明：先將窗體的Ke

8、yPreiew設(shè)為設(shè)為True； F5的的KeyCde值為值為vbKeyF5; Alt鍵被按下的常數(shù)為鍵被按下的常數(shù)為vbAltMask Private Sub Form_KeyDown(KeyCode as integer,Shift as integer) If keycode=vbkeyF5 and Shift=vbAltMask then end end if MouseDown MouseDown事件；事件； MouseUp MouseUp事件；事件； MouseMove MouseMove事件；事件；以窗體以窗體FormForm為例：為例： Private Sub Form_Mou

9、seDown(Button as integer, Shift as Integer, Private Sub Form_MouseDown(Button as integer, Shift as Integer, x as single,y as single) x as single,y as single) end sub end sub Private Sub Form_MouseUp(Button as integer, Shift as Integer, Private Sub Form_MouseUp(Button as integer, Shift as Integer, x

10、as single,y as x as single,y as single)single) end sub end sub Private Sub Form_MouseMove(Button as integer, Shift as Integer, Private Sub Form_MouseMove(Button as integer, Shift as Integer, x as single,y as x as single,y as single)single) end sub end sub 參數(shù)：參數(shù)： Button參數(shù)：參數(shù)：參數(shù)值符號常量說明1vbLeftButton按下鼠標(biāo)左鍵2vbRightButton按下鼠標(biāo)右鍵4vbMiddleButton按下鼠標(biāo)中鍵 Shift：同鍵盤的Shift參數(shù)； x、y：對應(yīng)于鼠標(biāo)指針的位置；鼠標(biāo)事件出發(fā)順序： MouseDown、Click、MouseUp 例例11-411-4利用鼠標(biāo)畫圓。利用鼠標(biāo)畫圓。 方法：利用方法：利用MuseDownMuseDown事件記錄圓心的坐標(biāo)，用事件記錄圓心的坐標(biāo)，用MouseUpMouseUp事件記錄半徑端點(diǎn)的事件記錄半徑