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

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

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

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

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

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