這是ppt鼠標(biāo)事件，包括了Keypress事件，KeyDown事件KeyUp事件，鼠標(biāo)事件，鼠標(biāo)光標(biāo)的形狀，拖放等內(nèi)容，歡迎點(diǎn)擊下載。

ppt鼠標(biāo)事件是由紅軟PPT免費(fèi)下載網(wǎng)推薦的一款課件PPT類型的PowerPoint.

第10章 鍵盤與鼠標(biāo)事件過(guò)程 鍵盤與鼠標(biāo)事件 窗體和大多數(shù)控件都能響應(yīng)鍵盤和鼠標(biāo)事件 鍵盤事件 有三種事件處理鍵盤操作 1. KeyPress事件 2. KeyDown事件：用戶按下鍵盤上某個(gè)鍵時(shí)觸發(fā)此事件 3. KeyUp事件：用戶按下鍵盤上某個(gè)鍵后釋放時(shí)觸發(fā)此事件 10.1 KeyPress事件（知識(shí)點(diǎn)） 當(dāng)按下鍵盤上某個(gè)鍵時(shí)，將發(fā)生KeyPress事件。 可用于窗體、復(fù)選框、組合框、命令按鈕、列表框、滾動(dòng)條及與文件有關(guān)的控件。一般格式如下： Private Sub 控件名_KeyPress(KeyAscii As Integer) … End Sub KeyPress事件帶有參數(shù)，參數(shù)有兩種形式。 Index As Integer，KeyAscii As Integer 只用于控件數(shù)組。 KeyAscii As Integer 用于單個(gè)控件。 KeyPress用來(lái)識(shí)別所按鍵的ASCII碼。參數(shù)KeyAscii是一個(gè)預(yù)定義的變量，執(zhí)行KeyPress事件過(guò)程時(shí)，KeyAscii即按鍵的ASCII碼。 KeyPress事件可對(duì)輸入值進(jìn)行限制，也可捕捉擊鍵動(dòng)作。 設(shè)計(jì)步驟如下： (1)用文本框的Password屬性可編寫口令程序。下面的口令程序用KrePress事件編寫。 在窗體上設(shè)計(jì)一個(gè)標(biāo)簽（輸入口令）和文本框。 Private Sub Form_Load() Text1.Text = "" Text1.FontSize = 10 Label1.FontSize = 12 Label1.FontBold = True Label1.FontName = "隸書" Label1.Caption = "請(qǐng)輸入口令..." End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Static PWord As String Static Counter As Integer Static Numberoftries As Integer Numberoftries = Numberoftries + 1 If Numberoftries = 12 Then End Counter = Counter + 1 PWord = PWord + Chr$(KeyAscii) KeyAscii = 0 Text1.Text = String$(Counter， "*") If LCase$(PWord) = "abcd" Then Text1.Text = "" PWord = "" MsgBox "口令正確， 繼續(xù)..." Counter = 0 Print "Continue......"; ElseIf Counter = 4 Then Counter = 0 PWord = "" Text1.Text = "" MsgBox "口令不對(duì)， 請(qǐng)重新輸入" End If End Sub 10.2 KeyDown和KeyUp事件（知識(shí)點(diǎn)） KeyDown和KeyUp事件參數(shù)也有兩種形式。 Index As Integer：只用于控件數(shù)組。(本課程不涉及) KeyCode As Integer，Shift As Integer用于單個(gè)控件。 KeyDown和KeyUp事件都有兩個(gè)參數(shù)：KeyCode和Shift。 ⑴ KeyCode是按鍵的ASCII碼。該碼以“鍵”為準(zhǔn)，而不是以“字符”為準(zhǔn)。 ⑵ Shift轉(zhuǎn)換鍵。指三個(gè)轉(zhuǎn)換鍵的狀態(tài)，包括Shift、Ctrl和Alt鍵，這三個(gè)鍵用三位二進(jìn)制形式表示，即Shift鍵為001、Ctrl鍵為010和Alt鍵為100。 KeyDown和KeyUp事件返回的是鍵盤的直接狀態(tài)，返回的是“鍵”，KeyPress并不反映鍵盤的直接狀態(tài)，是“字符”的ASCII碼 編寫一個(gè)程序，當(dāng)按下鍵盤上的某個(gè)鍵時(shí)，輸出該鍵的KeyCode碼。 Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) Static i i = i + 1 If i Mod 10 = 0 Then Print Chr$(KeyCode); "--"; Hex$(KeyCode); " "; Print: Print ElseIf KeyCode = 13 Then i = 0 Print: Print: Print Else Print Chr$(KeyCode); "--"; Hex$(KeyCode); " "; End If End Sub 先在窗體內(nèi)建一個(gè)文本框，然后編寫以下兩個(gè)事件過(guò)程。 Private Sub Text1_KeyDown(KeyCode As Integer， Shift As Integer) If KeyCode = &H70 Then Print "壓下功能鍵F1"; End If If KeyCode = &H75 Then Print "壓下功能鍵F6"; End If If KeyCode = &H78 Then Print "壓下功能鍵F9"; End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer， Shift As Integer) If KeyCode = &H70 Then Print "松開(kāi)功能鍵F1"; End If If KeyCode = &H75 Then Print "松開(kāi)功能鍵F6"; End If If KeyCode = &H78 Then Print "松開(kāi)功能鍵F9"; End If End Sub 10.3 鼠標(biāo)事件（知識(shí)點(diǎn)） Click、DblClick、MouseMove、MouseDown和MouseUp事件 當(dāng)移動(dòng)鼠標(biāo)時(shí)發(fā)生MouseMove事件 當(dāng)按下鼠標(biāo)任意鍵時(shí)發(fā)生MouseDown事件，放開(kāi)鼠標(biāo)鍵時(shí)發(fā)生MouseUp事件 后三種事件可以區(qū)分鼠標(biāo)的左、右、中鍵與Shift、Ctrl、Alt鍵 Private Sub 對(duì)象名_鼠標(biāo)事件(Button As Integer， Shift As Integer， X As Single，Y As Single) 說(shuō)明：(1) Button參數(shù)表示哪個(gè)鼠標(biāo)鍵被按下或釋放。用0，1，2位分別表示鼠標(biāo)的左、右、中鍵，用1或0表示被按下或釋放 (2) Shift參數(shù)表示當(dāng)鼠標(biāo)鍵被按下或釋放時(shí)，Shift、Ctrl、Alt鍵的按下或釋放狀態(tài)。用0、1、2位表示Shift、Ctrl、Alt鍵 (3) X，Y表示鼠標(biāo)指針的當(dāng)前坐標(biāo)位置 10.3 鼠標(biāo)事件 1.按下鼠標(biāo)事件過(guò)程 Private Sub Form_MouseDown(Button As Integer， Shift_ As Integer， X As Single，Y As Single) … End Sub 2.松開(kāi)鼠標(biāo)事件過(guò)程 Private Sub Form_MouseUp (Button As Integer， Shift As _ Integer， X As Single，Y As Single) … End Sub 10.3 鼠標(biāo)事件 3.移動(dòng)鼠標(biāo)事件過(guò)程 Private Sub Form_MouseMove(Button As Integer， Shift_ As Integer， X As Single，Y As Single) … End Sub 上述事件過(guò)程使用于窗體和大多數(shù)控件，包括復(fù)選框、命令按鈕、單選按鈕、框架、文本框、目錄框、文件框、圖像框、圖片框、標(biāo)簽、列表框等。 當(dāng)單擊鼠標(biāo)左鍵時(shí)把按鈕的位置移動(dòng)到鼠標(biāo)指針的位置，單擊鼠標(biāo)右鍵時(shí)把按鈕的位置移動(dòng)到窗體的左上角位置（即坐標(biāo)原點(diǎn)）。以下程序?qū)�MouseDown事件與Move方法結(jié)合起來(lái)使用。 Private Sub Form_MouseDown(Button As Integer， _ Shift As Integer， X As Single， Y As Single) If Button = 1 Then '單擊鼠標(biāo)左鍵時(shí) Command1.Move X， Y '移動(dòng)到鼠標(biāo)指針的位置 Else Command1.Move 0， 0 '移動(dòng)到窗體的左上角 End If End Sub 10.4 鼠標(biāo)光標(biāo)的形狀（知識(shí)點(diǎn)） 1.MousePointer屬性 鼠標(biāo)光標(biāo)的形狀通過(guò)MousePointer屬性來(lái)設(shè)置。該屬性可以在屬性窗口中設(shè)置，也可以在程序代碼中設(shè)置。 MousePointer屬性是一個(gè)整數(shù)，可以取0-15，含義如表 10.4 鼠標(biāo)光標(biāo)的形狀 10.4 鼠標(biāo)光標(biāo)的形狀 2.設(shè)置鼠標(biāo)光標(biāo)形狀 MousePointer屬性可以通過(guò)代碼設(shè)置，也可以通過(guò)屬性窗口設(shè)置。 ⑴在程序代碼中設(shè)置MousePointer屬性 格式：對(duì)象.MousePointer = 設(shè)置值 ⑵在屬性窗口中設(shè)置MousePointer屬性 通過(guò)在屬性窗口中設(shè)置MousePointer屬性來(lái)改變鼠標(biāo)光標(biāo)形狀。 10.4 鼠標(biāo)光標(biāo)的形狀 2.設(shè)置鼠標(biāo)光標(biāo)形狀 ⑶自定義鼠標(biāo)光標(biāo) 如果把MousePointer屬性設(shè)置為99，則可以通過(guò)MouseIcon屬性定義自己的鼠標(biāo)光標(biāo)。 ⑷鼠標(biāo)光標(biāo)形狀的使用 ①表示用戶當(dāng)前可用的功能，或者表示選擇可視對(duì)象以進(jìn)行復(fù)制或存取。 ②表示程序狀態(tài)的用戶可視線索，如沙漏表示程序忙，一段時(shí)間后將控制權(quán)交給用戶。 ③當(dāng)坐標(biāo)（X，Y）值為0時(shí)，改變鼠標(biāo)光標(biāo)形狀 鼠標(biāo)每單擊一次，變換一種鼠標(biāo)光標(biāo)的形狀，依次顯示鼠標(biāo)光標(biāo)的15個(gè)屬性。 Private Sub Form_Click() Static x As Integer Cls Print "Mousepointer Property is now "; x Form1.MousePointer = x x = x + 1 If x = 15 Then x = 0 End Sub 課后作業(yè) 選擇題第十章 第十章編程作業(yè)2，3，4，6YdH紅軟基地

介紹鼠標(biāo)的ppt：這是介紹鼠標(biāo)的ppt，包括了鼠標(biāo)的基本類型，鼠標(biāo)的指針，鼠標(biāo)的基本操作，課堂練習(xí)，本堂小結(jié)等內(nèi)容，歡迎點(diǎn)擊下載。

人體工程學(xué)鼠標(biāo)ppt：這是人體工程學(xué)鼠標(biāo)ppt，包括了鼠標(biāo)分析，形狀分析，疲勞分析，新型兩用鼠標(biāo)設(shè)計(jì)，鼠標(biāo)墊設(shè)計(jì)，增加的托墊高度分析等內(nèi)容，歡迎點(diǎn)擊下載。

鼠標(biāo)墊ppt：這是鼠標(biāo)墊ppt，包括了配方，膠料的選擇，硫化劑用量的選擇，如何確定鼠標(biāo)墊的正硫化時(shí)間呢？正硫化時(shí)間的測(cè)試的方法，制品硫化時(shí)間的確定等內(nèi)容，歡迎點(diǎn)擊下載。