VB程序設計第十一章鍵盤和鼠標事件過程ppt課件

1、Visual Basic程序設計教程ptc.imust內(nèi)蒙古科技大學實際訓練中心內(nèi)蒙古科技大學實際訓練中心第十一章第十一章 鍵盤和鼠標事件過程鍵盤和鼠標事件過程鍵盤事件：鍵盤事件： KeyPress KeyPress 事件：用戶按下并釋放一個能產(chǎn)生一個能產(chǎn)生事件：用戶按下并釋放一個能產(chǎn)生一個能產(chǎn)生ASCIIASCII碼的鍵時碼的鍵時 被觸發(fā)；被觸發(fā)； KeyUp KeyUp 事件：用戶釋放任一鍵時被觸發(fā)；事件：用戶釋放任一鍵時被觸發(fā)； KeyDown KeyDown 事件：用戶按下任一個鍵時被觸發(fā)；事件：用戶按下任一個鍵時被觸發(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； 當控制焦點在某個對象上時，按下鍵盤上的任一

3、鍵，便會引發(fā)該對象的當控制焦點在某個對象上時，按下鍵盤上的任一鍵，便會引發(fā)該對象的KeyDown事件，釋放按鍵便會觸發(fā)事件，釋放按鍵便會觸發(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ù)能否同時按下：根據(jù)能否同時按下Shift、Ctrl和和Alt鍵前往的一個整數(shù)；鍵前往的一個整數(shù)； 整數(shù)值符號常量說明1vbShiftMask按下Shift鍵2vbCtrlMask按下Ctrl鍵4vbAltMask按下Alt鍵0沒有按下Shift、Ctrl、Alt鍵7同時按下Shift、Ctrl、Alt鍵 鍵盤三個事

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

6、大寫。再將其轉化為大寫。Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii) Label1.Caption = Label1.Caption & charEnd Sub 例例11-2設計一個運用程序。在窗體上建立一個文本框，其屬性值均為默許值，設計一個運用程序。在窗體上建立一個文本框，其屬性值均為默許值，并將窗體的并將窗體的KeyPreview屬性值設為屬性值設為True。 解題思緒解題思緒:假設設置窗體的假設設置窗體的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設計一個運用程序。當按下設計一個運用程序。當按下AltF5組合鍵時終止程序運轉。組合鍵時終止程序運轉。 闡明：先將窗體的闡明：先將窗體的Ke

8、yPreiew設為設為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按下鼠標左鍵2vbRightButton按下鼠標右鍵4vbMiddleButton按下鼠標中鍵 Shift：同鍵盤的Shift參數(shù)； x、y：對應于鼠標指針的位置；鼠標事件出發(fā)順序： MouseDown、Click、MouseUp 例例11-411-4利用鼠標畫圓。利用鼠標畫圓。 方法：利用方法：利用MuseDownMuseDown事件記錄圓心的坐標，用事件記錄圓心的坐標，用MouseUpMouseUp事件記錄半徑端點的事件記錄半徑