【正文】 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 繪圖操作基礎(chǔ) 性與事件 編寫一個程序，當按下鍵盤上的某個鍵時 ,輸出該鍵的符號及 KeyCode碼 (十六進制和十進制 )。 例 69 繪圖 79 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 繪圖操作基礎(chǔ) 性與事件 動態(tài)數(shù)學曲線。利用 VB中的 Line和 Pset繪圖方法來繪制正弦曲線。 例 610 繪圖 80 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 繪圖操作基礎(chǔ) 性與事件 編寫程序，模擬汽車上的“雨刷器”。 例 611 繪圖 81 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 鍵盤和鼠標器 1) 鍵盤 鍵盤事件是用戶敲擊鍵盤時觸發(fā)的事件，一般用來檢測輸入數(shù)據(jù)的合法性或?qū)τ诓煌I值的輸入實現(xiàn)不同的操作。 常用的事件有： KeyPress事件 KeyDown事件 KeyUp事件 82 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 KeyPress事件 當用戶按下和松開一個 ANSI鍵時發(fā)生 KeyPress事件 (即 KeyPress事件只對能產(chǎn)生 ASCII碼的按鍵有反應 )。 語法格式 Sub Form_KeyPress(KeyAscii as Integer) Sub Object_KeyPress([Index as Integer,] KeyAscii as Integer) 鍵盤和鼠標器 83 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 說明 ? Object為可以產(chǎn)生 KeyPress事件的對象； ? Index是一個整數(shù)，用來唯一標識一個在控件數(shù)組中的控件。 ? KeyAscii為按鍵相對應的字符 ASCII碼 值，大小寫字母的值不同。 ? 將 KeyAscii改變?yōu)?0時 ，可取消擊鍵，這樣對象便接收不到所按鍵的字符。 鍵盤和鼠標器 84 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 在文本框中輸入用戶的用戶名和密碼，并在輸入時檢測按鍵的有效性，要求用戶名必須為字母構(gòu)成，長度不超過 8位，密碼的長度不得少于 4位 。 例 612 鍵盤和鼠標器 85 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 KeyDown和 KeyUp事件 格式： Sub Object_KeyDown(KeyCode as Integer,Shift as Integer) Sub Object_KeyUp(KeyCode as Integer,Shift as Integer) 說明： ⑴ KeyCode：是按鍵的掃描碼 ,它的值只與按鍵在鍵盤上的物理位置有關(guān)，與鍵盤的大小寫狀態(tài)無關(guān)。 ⑵ Shift參數(shù) B0為 1：按下了 Shift鍵； B1為 1：按下了 Ctrl鍵； B2為 1：按下了 Alt鍵。 鍵盤和鼠標器 86 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 Shift參數(shù)值的表達與含義 二進制 常 數(shù) 按下鍵 001 VbShiftMask Shift 010 VbCtrlMask Ctrl 011 VbShiftMask + VbCtrlMask Shift + Ctrl 100 VbAltMask Alt 101 VbAltMask + VbShiftMask Alt + Shift 110 VbAltMask + VbCtrlMask Alt + Ctrl 111 VbAltMask + VbCtrlMask + VbShiftMask Alt + Ctrl + Shift 鍵盤和鼠標器 87 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 鍵盤事件說明 KeyPress KeyDown和 KeyUp 事件發(fā)生的時間 輸入一個 ASCII字符 按任意一個鍵 參數(shù)值 KeyAscii接收到 字符的 ASCII值 KeyCode接收到 鍵的掃描碼 按 Shift+A時 事件發(fā)生的次數(shù) 事件發(fā)生一次 事件發(fā)生兩次 按 Shift+A時參數(shù)值 (鍵盤處于大寫狀態(tài) ) 97 第一次是 16 第二次是 65 按 Shift+A時參數(shù)值 (鍵盤處于小寫狀態(tài) ) 65 第一次是 16 第二次是 65 鍵盤和鼠標器 88 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 Space、 Enter及 ← →的 KeyCode碼值分別為3 1 37和 39。 請注意 KeyCode與KeyAscii的區(qū)別 1. 鍵盤 2. 鼠標器 在窗體上用鍵盤控制小球的運動。小球用 Shape控件表示，在窗體上有兩個命令按鈕分別為 “ 開始 ” 和 “ 結(jié)束 ” ，單擊 “ 開始 ” 按鈕，窗體上出現(xiàn)紅色小球，按方向鍵 ← 和 → ，小球向左和右移動，單擊 Space鍵，小球向上或向下跳動，按 Enter鍵結(jié)束小球操作。 例 813 鍵盤和鼠標器 89 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 編寫一個程序，當按下 Alt+F5鍵時終止程序的運行 例 814 先把窗體的 KeyPreview設(shè)置為 True，再編寫如下的程序 Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) 39。按下 Alr鍵時， Shift的值為 4 If (KeyCode = vbKeyF5) And (Shift = 4) Then End End If End Sub 鍵盤和鼠標器 90 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 鼠標器 鼠標事件除了 Click和 DblClick事件之外，還包括： MouseDown 事件按下鼠標時被觸發(fā) MouseUp 事件釋放鼠標時被觸發(fā) MouseMove 事件移動鼠標時被觸發(fā) 其中， MouseMove事件并不是對鼠標經(jīng)過的每個像素都會觸發(fā)，而只是每秒生成有限多個鼠標消息。 格式： Sub Object_鼠標事件 (Button as Integer, Shift as Integer, X as Single, Y as Single) 鍵盤和鼠標器 91 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 說明 ⑴ Button參數(shù) B0為 1：按下了左鍵； B1為 1：按下了右鍵； B2為 1：按下了中鍵。 ⑵ Shift表示當鼠標鍵被按下或被釋放時， Shift、 Ctrl、 Alt鍵是否同時被按下的狀態(tài)。 與鍵盤事件的 Shift相同。 (3)x,y：鼠標的當前位置。 b2 b1 b0 二進制 常 數(shù) 按下按鈕 001 VbLeftButton 左按鍵 010 VbRightButton 右按鍵 100 VbMiddleButton 中按鍵 鍵盤和鼠標器 92 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 為了能使畫圖過程中的圖形軌跡呈現(xiàn)動態(tài)地消失和再現(xiàn)變化，必須將圖片框的DrawMode屬性設(shè)置為 7，這樣可以使得同一坐標位置第 2次所繪的圖形能探險第 1次所繪的圖形。 1. 鍵盤 2. 鼠標器 編寫一個在窗體中分別用鼠標畫直線、畫方塊和畫圓的程序。 例 815 鍵盤和鼠標器 93 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 編寫一個在窗體上可用鼠標畫不同線條寬度的任意曲線程序 。 例 816 鍵盤和鼠標器 94 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 鼠標指針 鼠標指針的形狀可通過 MousePointer和 MouseIcon屬性來設(shè)置。 ? MousePointer屬性用于設(shè)置鼠標指針的形狀，運行時當鼠標經(jīng)過控件區(qū)域時就會顯示MousePointer屬性設(shè)置的形狀。如： =11 ? 當 MousePointer屬性設(shè)置為 99時，可以使用MouseIcon屬性來自定義鼠標指針的形狀。該屬性可在設(shè)計下設(shè)置，也可在代碼中設(shè)置。 鍵盤和鼠標器 95 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 窗體上有一個標簽和一個時鐘控件，設(shè)置標簽的鼠標指針形狀，使鼠標指針指向標簽時顯示手形指針。當單擊標簽時窗體中的鼠標指針變成為系統(tǒng)忙指針，然后每隔一秒激發(fā)一次時鐘事件，當調(diào)用 5次時鐘事件過程后停止時鐘事件，同時窗體的鼠標指針恢復為默認指針，編程實現(xiàn)上述指針形狀變換功能。 例 817 看圖 鍵盤和鼠標器 96 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 1. 鍵盤 2. 鼠標器 交換兩個圖片框中的圖片，單擊鼠標左鍵時交換圖片，單擊右鍵時，清除圖片框中的圖片。運行界面如圖所示 例 818 鍵盤和鼠標器 97 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 2. 屬性 拖放包括兩個操作： 拖動 (Drag)： 指按下鼠標并拖著控件移動。 放下 (Drop)： 指釋放鼠標鍵。 術(shù)語解釋： 源對象： 拖放中原來位置的對象為源對象。 目標對象 ：將要放下位置處的對象為目標對象。 拖放 1. 術(shù)語 3. 事件 4. 方法 98 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 屬 性 (1) DragMode屬性 功能：確定拖放操作方式是自動方式還是手動方式。 0： (缺省 )，手工拖動模式 ； 1：自動拖動模式 。 (2) DragIcon屬性 拖動過程中顯示的圖標 (.ico或 .cur文件 )。可以在程序中用 LoadPicture()函數(shù)加載或通過其他控件的 Picture屬性賦值。 拖放 2. 屬性 1. 術(shù)語 3. 事件 4. 方法 99 第六章 鍵盤、鼠標與繪圖 遼寧科技大學 Visual Basic 程序設(shè)計 教學課件 ③ 20222 事 件 (1) DragDrop事件 當一個控件拖動到一個目標對象上時，觸發(fā) DragDr