Microsoft PowerPoint - 09_事件驅動.ppt

Size: px

Start display at page:

Download "Microsoft PowerPoint - 09_事件驅動.ppt"

银牧
6 years ago
Views:

1 事件驅動程式設計事件驅動是 Windows 程式設計的精髓事件驅動與真實世界的運作模式非常類似 1

2 事件驅動的基本概念 2

3 事件驅動程式的要素 A. 物件消防隊物件事件程序 B. 事件 C. 事件程序事件失火救火程序 : 警鈴大作隊員穿著消防裝備出動消防車... 3 實例 : 把消防隊視為一種物件把失火視為這種物件需要處理的事件把救火程序視為這種物件的一種事件程序, 而失火會驅動消防隊的救火程序, 這就構成了良好的事件驅動工作模式

4 事件驅動程式的要素 Private Sub Button1_Click(...) Handles Button1.Click Dim H, W H = InputBox(" 請輸入身高 ") W = H MsgBox(" 標準體重 =" & W) End Sub 物件 : Button1 事件程序 : Button1_Click 驅動執行事件 : 按下按鈕 4 使用者按下按鈕, 然後驅動執行 Button1 物件的 Button1_Click 事件程序, 過程中也包含了物件事件及事件程序三要素 : 事件驅動的要素 VB.NET 的例子 Button1 按下按鈕 (Click) Button1_Click 物件事件事件程序

5 物件事件事件程式與程式設計的關係物件來自工具箱或表單事件 VB 預先定義事件程序程式設計者撰寫 5

6 檢視控制元件含有哪些事件 1. 以滑鼠雙按 2. 拉下拉下 3. 選取列出 Button1 的所有事件 2. 拉下列出 TextBox1 的所有事件 1. 選取 6

7 檢視表單含有哪些事件 1. 選取列出表單所有事件 7

8 瞭解事件與事件程序的關係 1. 建立一 Windows 應用程式專案 2. 在表單上佈置一個 Button 及一個 TextBox 3. 以滑鼠雙按 Button1 物件, 然後在 Button1_Click 之中撰寫以下程式 : Private Sub Button1_Click( ) Handles Button1.Click TextBox1.Text = " 處理 Button1.Click 事件 " End Sub Button1 TextBox1 8

9 瞭解事件與事件程序的關係 4. 在程式模組視窗中, 拉下左上方的清單方塊, 選取 Button1, 再拉下右上方的清單方塊, 選取 MouseEnter, 然後輸入以下程式 : Private Sub Button1_MouseEnter( ) Handles Button1.MouseEnter TextBox1.Text = 處理 Button1.MouseEnter 事件 End Sub 5. 在 Button1_MouseLeave 之中撰寫以下程式 : Private Sub Button1_MouseLeave( ) Handles Button1.MouseLeave TextBox1.Text = 處理 Button1.MouseLeave 事件 End Sub 9

10 瞭解事件與事件程序的關係 6. 執行程式, 然後將滑鼠移到 Button1 之上, 此時會發生 MouseEnter 事件, 所以 Button1_MouseEnter 會被執行, 而使得 TextBox1 顯示處理 Button1.MouseEnter 事件 2. 顯示 1. 移進來 10

11 瞭解事件與事件程序的關係 7. 按下 Button1, 此時會發生 Click 事件, 所以 Button1_Click 會被執行, 而使得 TextBox1 顯示處理 Button1.Click 事件 2. 顯示 1. 按下按鈕將滑鼠移出 Button1, 此時會發生 MouseLeave 事件, 所以 Button1_MouseLeave 會被執行, 而使得 TextBox1 顯示處理 Button1.MouseLeave 事件 2. 顯示 1. 移出

12 瞭解事件與事件程序的關係心得整理 1. 物件可能含有數十種事件, 但只有我們關心的事件才需要撰寫對應的事件程序 2. 當在程式模組視窗中選取物件及事件之後,VB 會自動產生事件程序的程式架構, 而事件程序的命名規則是物件名 _ 事件名, 例如 Button1_Click 是用來處理 Button1 物件的 Click 事件的事件程序撰寫程式時還要瞭解每一種事件發生的時機, 例如 MouseEnter 事件發生於滑鼠被移進物件 MouseLeave 事件發生於滑鼠被移出物件 Click 事件發生於按下按鈕等

13 選取資料與輸入資料的事件 CheckedChanged 事件附屬於 RadioButton, CheckBox 物件發生於選取狀態改變時 SelectedIndexChanged 事件附屬於 ListBox, ComboBox 物件發生於選項改變時 TextChanged 事件附屬於 TextBox, Label 物件發生於文字內容改變時 13

14 CheckedChanged 事件的發生時機 1. RadioButton 被選取之後, 會產生 CheckedChanged 事件 2. RadioButton 被取消選取之後 ( 因使用者選取同一群組的其他 RadioButton), 也會產生 CheckedChanged 事件 3. CheckBox 被核取之後, 會產生 CheckedChanged 事件 4. CheckBox 被取消核取之後, 也會產生 CheckedChanged 事件 14

15 共享事件處理程序的語法 : Handles 物件. 事件, 物件. 事件在 CheckBox1_CheckedChanged 事件程序的 Handles CheckBox1.CheckedChanged 之後加上 :, CheckBox2.CheckedChanged, CheckBox3.CheckedChanged 表示 CheckBox1_CheckedChanged 事件程序除了用來處理 CheckBox1 的 CheckedChanged 事件之外, 也用來處理 CheckBox2 及 CheckBox3 的 CheckedChanged 事件 15

16 乘法即時運算程式輸入後, 即時計算結果 TextChanged 事件 : 發生於文字內容改變時 16

上機 : 乘法即時運算程式 1. 建立一 Windows 應用程式專案 Label1 Label2 2. 在表單上佈置兩個 TextBox 及三個 Label TextBox1 TextBox2 Label3 17 3.

17 上機 : 乘法即時運算程式 1. 建立一 Windows 應用程式專案 Label1 Label2 2. 在表單上佈置兩個 TextBox 及三個 Label TextBox1 TextBox2 Label 以滑鼠雙按 TextBox1, 出現 TextBox1_TextChanged 事件程序時, 輸入程式 : Private Sub TextBox1_TextChanged( ) Handles TextBox1.TextChanged If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) Then Label3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) Else Label3.Text = "( 請輸入數值資料 )" End If End Sub

18 上機 : 乘法即時運算程式 4. 修改第一行程式, 使這個事件程序能夠同時處理 TextBox1 及 TextBox2 的 TextChanged 事件, 修改後的敘述如下 : Private Sub TextBox1_TextChanged( ) Handles TextBox1.TextChanged, TextBox2.TextChanged 5. 執行程式, 然後分別在 TextBox1 及 TextBox2 之中輸入數值資料, 接著相乘的結果就會顯示在 '=' 之後 18

19 滑鼠事件 Click 事件 : 在物件上面按下滑鼠且放開 DoubleClick 事件 : 在物件上面以滑鼠快按兩下並且放開 MouseDown 事件 : 在物件上面按下滑鼠 MouseUp 事件 : 發生 MouseDown 事件後, 放開滑鼠 MouseMove 事件 : 物件上面移動滑鼠 MouseEnter 事件 : 從物件外面移動滑鼠到物件上面 MouseLeave 事件 : 從物件上面移動滑鼠到物件外面 MouseHover 事件 : 發生 MouseEnter 事件後, 滑鼠停止移動 19

20 上機 : 滑鼠事件初體驗 1. 建立一 Windows 應用程式專案 2. 在表單上左邊佈置 ListBox, 此一 ListBox 用來顯示表單的滑鼠事件 ListBox1 3. 開啟程式模組視窗 4. 在程式模組中, 選取物件中的 ( 基底類別事件 ), 選取事件中的 Click, 接著會出現 Form1_Click 事件程序, 過程如圖 1. 選取 2. 選取 20

21 上機 : 滑鼠事件初體驗 5. 在 Form1_Click 事件程序輸入以下程式 : Private Sub Form1_Click(...) Handles Me.Click ListBox1.Items.Insert(0, "Click") End Sub 6. 分別在 Form1_DoubleClick, Form1_MouseDown, Form1_MouseEnter, Form1_MouseHover, Form1_MouseLeave, Form1_MouseMove, Form1_MouseUp 事件程序中輸入以下程式 : 21

22 滑鼠事件初體驗 22 Private Sub Form1_DoubleClick(...) Handles Me.DoubleClick ListBox1.Items.Insert(0, "DoubleClick") End Sub Private Sub Form1_MouseDown(...) Handles Me.MouseDown ListBox1.Items.Insert(0, "MouseDown") End Sub Private Sub Form1_MouseEnter(...) Handles Me.MouseEnter ListBox1.Items.Insert(0, "MouseEnter") End Sub Private Sub Form1_MouseHover(...) Handles Me.MouseHover ListBox1.Items.Insert(0, "MouseHover") End Sub Private Sub Form1_MouseLeave(...) Handles Me.MouseLeave ListBox1.Items.Insert(0, "MouseLeave") End Sub Private Sub Form1_MouseMove(...) Handles Me.MouseMove ListBox1.Items.Insert(0, "MouseMove") End Sub Private Sub Form1_MouseUp(...) Handles Me.MouseUp ListBox1.Items.Insert(0, "MouseUp") End Sub

23 滑鼠事件初體驗 7. 執行程式, 首先將滑鼠從表單之外移到表單之上, 然後暫停一下, 結果 ListBox 會新增一行 MouseEnter, 多行 MouseMove 及一行 MouseHover 8. 在表單上按下滑鼠並且放開, 結果 ListBox 會新增 MouseDown, Click, MouseUp, MouseMove 各一行 9. 在表單上快按滑鼠兩下並且放開, 結果 ListBox 會新增 MouseDown, Click, MouseUp, MouseMove, MouseDown, DoubleClick, MouseUp, MouseMove 各一行 10. 將滑鼠移出表單, 結果 ListBox 會新增 MouseLeave 一行 23

24 MouseHover 事件滑鼠路徑 MouseLeave MouseMove MouseEnter 暫停一下 MouseHover 滑鼠路徑 MouseLeave MouseMove MouseEnter 使用 MouseHover 的時機? 需要提供使用者訊息的時候 24

25 滑鼠事件所提供之資訊在 MouseDown MouseMove 與 MouseUp 事件中, 我們可以進一步得到以下的滑鼠資訊 : 滑鼠座標 : 滑鼠所在位置的座標, 其中 X 座標以 e.x 讀取, Y 座標以 e.y 讀取按鈕 : 使用者按下哪個滑鼠鈕, 以 e.button 讀取, 可能的數值如下 : e.button 的數值意義 MouseButtons.Left 表示使用者按下滑鼠左鈕 MouseButtons.Right 表示使用者按下滑鼠右鈕 MouseButtons.Middle 表示使用者按下滑鼠中間鈕 MouseButtons.None 表示使用者沒有按下滑鼠鈕 MouseButtons.XButton1 表示使用者按下滑鼠第一個特殊鈕 MouseButtons.XButton2 表示使用者按下滑鼠第二個特殊鈕 25

26 上機 : 顯示滑鼠移動的軌跡 1. 建立一 Windows 應用程式專案 2. 在表單的 MouseMove 事件程序 (Form1_MouseMove) 之中輸入以下程式 : Private Sub Form1_MouseMove( ) Handles Me.MouseMove Dim g As Graphics = Me.CreateGraphics() g.drawellipse(new Pen(Color.Black), e.x, e.y, 3, 3) g.dispose() End Sub 3. 執行程式, 並且在表單之中移動滑鼠, 即可看到滑鼠移動的軌跡 26

27 繪圖的一般指令 27 繪圖之前需先宣告繪圖物件 Dim 繪圖物件 as Graphics 然而 Graphics 是抽象類別, 無法直接使用, 必須使用 CreateGraphics 方法取得繪圖區域繪圖物件 = 物件.CreateGraphics 物件可為 Form, GroupBox, PictureBox 等, 即為繪圖區域繪圖指令 : 繪圖物件. 繪圖方法 ( 筆物件, 座標與大小 ) 釋放繪圖所佔用的系統資源繪圖物件.Dispose 繪圖方法有 DrawLine, DrawRectangle, DrawEllipse 等在非表單內繪圖需特別注意相關參數

28 寫一個畫線的程式 MouseDown MouseUp 28

29 ' ( 宣告 ) 區 Dim X, Y 寫一個畫線的程式 1. 建立一 Windows 應用程式專案 2. 分別在 Form1 的 ( 宣告 ) 區 MouseDown 及 MouseUp 事件程序中撰寫以下程式 : Private Sub Form1_MouseDown( ) Handles Me.MouseDown X = e.x Y = e.y End Sub 29 Private Sub Form1_MouseUp( ) Handles Me.MouseUp Dim g As Graphics = Me.CreateGraphics() g.drawline(new Pen(Color.Black), X, Y, e.x, e.y) g.dispose() End Sub

30 寫一個畫線的程式 3. 執行程式, 然後在表單上按住滑鼠 ( 不要放開 ) 以決定線段的第一點, 接著移動滑鼠位置, 待決定線段的第二點時, 放開滑鼠, 即可將線段畫出 MouseDown MouseUp 30

31 寫一個繪圖板程式功能 : (1) 以按住滑鼠及移動滑鼠的方式繪圖 (2) 如果按住的滑鼠鈕為左鈕, 以 1 點寬的線段繪圖 (3) 如果按住的滑鼠鈕為右鈕, 以 3 點寬的線段繪圖 (4) 如果按住的滑鼠鈕為中間鈕, 以 7 點寬的線段繪圖寬度 1 點寬度 7 點寬度 3 點 31

32 寫一個繪圖板程式 1. 建立一 Windows 應用程式專案 2. 分別在 Form1 的 ( 宣告 ) 區 MouseDown 及 MouseMove 事件程序中撰寫以下程式 : ' ( 宣告 ) 區 Dim X Dim Y Private Sub Form1_MouseDown( ) Handles Me.MouseDown X = e.x Y = e.y End Sub 32

33 寫一個繪圖板程式 33 Private Sub Form1_MouseMove( ) Handles Me.MouseMove If e.button = MouseButtons.None Then Exit Sub Dim p As Pen If e.button = MouseButtons.Left Then p = New Pen(Color.Black) ' 預設值為 1 ElseIf e.button = MouseButtons.Right Then p = New Pen(Color.Black, 3) ElseIf e.button = MouseButtons.Middle Then p = New Pen(Color.Black, 7) End If Dim g As Graphics = Me.CreateGraphics() g.drawline(p, X, Y, e.x, e.y) X = e.x Y = e.y g.dispose() End Sub

34 寫一個繪圖板程式 3. 執行程式, 先按住左鈕, 移動滑鼠畫一個 1 ( 此時圖形的寬度為 1 點 ), 然後放開滑鼠, 接著按住右鈕, 移動滑鼠畫一個 2 ( 此時圖形的寬度為 3 點 ), 然後放開滑鼠, 最後再按住中間鈕, 移動滑鼠畫一個 3 ( 此時圖形的寬度為 7 點 ), 然後放開滑鼠寬度 1 點寬度 7 點寬度 3 點 34

35 鍵盤事件 KeyPress 事件 : 發生於輸入字元 KeyDown 事件 : 發生於按下按鍵 KeyUp 事件 : 發生於放開按鍵 35

36 非顯示型字元 36 組合鍵的字元碼組合鍵的字元碼 Shift + Ctrl 0 Ctrl + Q 17 Ctrl + A 1 Ctrl + R 18 Ctrl + B 2 Ctrl + S 19 Ctrl + C 3 Ctrl + T 20 Ctrl + D 4 Ctrl + U 21 Ctrl + E 5 Ctrl + V 22 Ctrl + F 6 Ctrl + W 23 Ctrl + G 7 Ctrl + X 24 Ctrl + H 或 Backspace 8 Ctrl + Y 25 Ctrl + I 或 Tab 9 Ctrl + Z 26 Ctrl + J 或 Ctrl + Enter 10 Ctrl + [ 或 Esc 27 Ctrl + K 11 Ctrl + \ 28 Ctrl + L 12 Ctrl + ] 29 Ctrl + M 或 Enter 13 Shift + Ctrl + ^ 30 Ctrl + N 14 Shift + Ctrl + _ 31 Ctrl + O 15 Ctrl + Backspace 127 Ctrl + P 16

37 利用控制鍵改變表單背景顏色 37 按鍵組合字元碼 Ctrl+R 18 Ctrl+G 7 Ctrl+B 2 建立一 Windows 應用程式專案 Private Sub Form1_KeyPress( ) Handles Me.KeyPress Dim 字元碼 As Integer = Asc(e.KeyChar) If 字元碼 = 18 Then Me.BackColor = Color.Red ElseIf 字元碼 = 7 Then Me.BackColor = Color.Green ElseIf 字元碼 = 2 Then Me.BackColor = Color.Blue End If End Sub

38 利用 e.handle 過濾字元 KeyPress 事件程序字元 TextBox 不處理的字元? 否字元 TextBox 是 e.handled = True e.handle 設定為 True, 則程式不處理鍵盤的輸入事件 38

39 只能輸入數字及小數點的 TextBox 1. 建立一 Windows 應用程式專案 2. 在表單上佈置一個 TextBox 3. 在 TextBox1_KeyPress 事件程序中輸入以下程式 : Private Sub TextBox1_KeyPress(...) Handles TextBox1.KeyPress Dim 字元碼 As Integer = Asc(e.KeyChar) If 字元碼 >= 32 And 字元碼 <= 126 Then If Not ( 字元碼 >= 48 And 字元碼 <= 57) And 字元碼 <> 46 Then e.handled = True ' 不屬於數字及小數點, 將其過濾掉 End If End If End Sub 39

40 只能輸入數字及小數點的 TextBox 4. 執行程式, 然後試著在 TextBox 之中輸入資料, 結果只能輸入數字及小數點程式解說 : 字元碼 >= 32 And 字元碼 <= 126: 判斷字元是否為可顯示型字元 Not ( 字元碼 >= 48 And 字元碼 <= 57) And 字元碼 <> 46: 判斷字元是否不屬於數字及小數點 40

41 41 ASCII 字元碼的分佈字元字元碼字元碼字元字元碼字元碼字元字元碼字元碼 10 進位 16 進位 10 進位 16 進位 10 進位 16 進位 ` 96 60! A a " B b # C c $ D d % E e & F f ' G g ( H h ) I i * 42 2A J 74 4A j 106 6A B K 75 4B k 107 6B, 44 2C L 76 4C l 108 6C D M 77 4D m 109 6D. 46 2E N 78 4E n 110 6E / 47 2F O 79 4F o 111 6F P p Q q R r S s T t U u V v W w X x Y y : 58 3A Z 90 5A z 122 7A ; 59 3B [ 91 5B { 123 7B < 60 3C \ 92 5C 124 7C = 61 3D ] 93 5D } 125 7D > 62 3E ^ 94 5E ~ 126 7E? 63 3F _ 95 5F

42 移動飛機程式目的 : 寫一個可以移動飛機圖片的程式 : 每按上下左右鍵一次就移動飛機一點 ; 但如果先按住 Shift 鍵, 則每按上下左右鍵一次就移動飛機十點 1. 建立一 Windows 應用程式專案 2. 在表單上佈置一個 PictureBox, 並匯入圖像 SizeMode 屬性 = AutoSize PictureBox1 42

43 上機 : 移動飛機程式 3. 在 Form1_KeyDown 事件程序中輸入以下程式 : 43 Private Sub Form1_KeyDown(...) Handles Me.KeyDown Dim X As Integer = PictureBox1.Location.X Dim Y As Integer = PictureBox1.Location.Y Dim 點數 As Integer = 1 If e.shift Then 點數 = 10 If e.keycode = Keys.Left Then X -= 點數 ElseIf e.keycode = Keys.Right Then X += 點數 ElseIf e.keycode = Keys.Up Then Y -= 點數 ElseIf e.keycode = Keys.Down Then Y += 點數 End If PictureBox1.Location = New Point(X, Y) End Sub

44 上機 : 移動飛機程式 4. 執行程式, 然後按上下左右鍵移動飛機圖片, 或是先按住 Shift 鍵, 再按上下左右鍵快速移動飛機圖片注意事項 : 在以上程式中, 我們已知上下左右鍵對應的按鍵碼是 Up, Down, Left, Right, 但是程式中要寫成 Keys.Up, Keys.Down, Keys.Left, Keys.Right, 不可以省略 Keys 除了上下左右鍵之外, 在程式中表示按鍵一概要加上 Keys. 44

untitled

untitled VB 來立李龍老年參車令度綠車不不靈了來令來了老利來練念邏念數度念狀不度令數更參 VB VB VB 理 VB 類數 (x,y) (0,0) x y x,y 數 (0,0) (x, 0) (0, y) (x, y) VB 裡來 VB 來 1 Graphics VB Graphics Private Sub Button1_Click(