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

Visual Basic程序設(shè)計(jì)教程,,內(nèi)蒙古科技大學(xué)實(shí)踐訓(xùn)練中心,第十一章 鍵盤和鼠標(biāo)事件過程,11.1 鍵盤事件,鍵盤事件： KeyPress 事件：用戶按下并釋放一個(gè)能產(chǎn)生一個(gè)能產(chǎn)生ASCII碼的鍵時(shí) 被觸發(fā)； KeyUp 事件：用戶釋放任一鍵時(shí)被觸發(fā)； KeyDown 事件：用戶按下任一個(gè)鍵時(shí)被觸發(fā)；,11.2 KeyPress事件,引發(fā)KeyPress事件的按鍵： 數(shù)字、大小寫字母、Enter、Backspace、Esc、Tab等鍵。 如文本框Text1的KeyPress事件如下： Private Sub Text1_KeyPress(Keyascii as integer) End Sub “a”的ASCII值為97；“A”的ASCII值為65；,11.3 KeyUp和KeyDown事件,當(dāng)控制焦點(diǎn)在某個(gè)對(duì)象上時(shí)，按下鍵盤上的任一鍵，便會(huì)引發(fā)該對(duì)象的KeyDown事件，釋放按鍵便會(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ù)： KeyCode：為用戶所操作的鍵的掃描碼；即鍵的物理位置相同則KeyCode參數(shù)值相同（”A“和”a“；5和等）；但大鍵盤的數(shù)字和小鍵盤的數(shù)字的KeyCode不一樣；,11.3 KeyUp和KeyDown事件,參數(shù)： Shift：根據(jù)是否同時(shí)按下Shift、Ctrl和Alt鍵返回的一個(gè)整數(shù)；, 鍵盤三個(gè)事件的觸發(fā)順序：KeyDown、KeyPress、KeyUp； 一般情況下，控件可以觸發(fā)這三個(gè)事件； 但窗體必須將“KeyPreiew”屬性值設(shè)為True；則首先窗體的KeyPress、 KeyUp和KeyDown；,11.3 KeyUp和KeyDown事件,例11-1設(shè)計(jì)一個(gè)應(yīng)用程序。在窗體上建立一個(gè)文本框和一個(gè)標(biāo)簽，當(dāng)從鍵盤向文本框英文字符時(shí)，將其轉(zhuǎn)換成大寫字母顯示在標(biāo)簽中。 解題思路：在text1的keypress事件中，將鍵盤的asc碼轉(zhuǎn)化為相應(yīng)的字符， 再將其轉(zhuǎn)化為大寫。,Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char = UCase(Chr(KeyAscii) Label1.Caption = Label1.Caption & char End Sub,11.3 KeyUp和KeyDown事件,例11-2設(shè)計(jì)一個(gè)應(yīng)用程序。在窗體上建立一個(gè)文本框，其屬性值均為默認(rèn)值，并將窗體的KeyPreview屬性值設(shè)為True。 解題思路:若設(shè)置窗體的KeyPreview屬性值為True，則先執(zhí)行窗體的KeyPress事件，而后執(zhí)行文本框的KeyPress事件；,Private Sub Form_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = KeyAscii + 1 End Sub,11.3 KeyUp和KeyDown事件,例11-3設(shè)計(jì)一個(gè)應(yīng)用程序。當(dāng)按下AltF5組合鍵時(shí)終止程序運(yùn)行。 說明：先將窗體的KeyPreiew設(shè)為True； F5的KeyCde值為vbKeyF5; Alt鍵被按下的常數(shù)為vbAltMask Private Sub Form_KeyDown(KeyCode as integer,Shift as integer) If keycode=vbkeyF5 and Shift=vbAltMask then end end if,11.4 鼠標(biāo)事件, MouseDown事件； MouseUp事件； MouseMove事件； 以窗體Form為例： Private Sub Form_MouseDown(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseUp(Button as integer, Shift as Integer, x as single,y as single) end sub Private Sub Form_MouseMove(Button as integer, Shift as Integer, x as single,y as single) end sub,11.4 鼠標(biāo)事件,參數(shù)： Button參數(shù)：,Shift：同鍵盤的Shift參數(shù)； x、y：對(duì)應(yīng)于鼠標(biāo)指針的位置； 鼠標(biāo)事件出發(fā)順序： MouseDown、Click、MouseUp,11.4 鼠標(biāo)事件,例11-4利用鼠標(biāo)畫圓。 方法：利用MuseDo