VB事件和事件處理PPT優(yōu)秀課件

1、Version 3.0第二章第二章 可視化程序設(shè)計可視化程序設(shè)計 字符界面的缺點和圖形用戶界面的需求字符界面的缺點和圖形用戶界面的需求 可視化程序設(shè)計的基本思想可視化程序設(shè)計的基本思想 使用使用VB開發(fā)開發(fā)Windows應(yīng)用程序的優(yōu)點應(yīng)用程序的優(yōu)點 介紹介紹Visual Basic集成開發(fā)環(huán)境集成開發(fā)環(huán)境 使用使用 Visual Basic 提供的各種編程控件提供的各種編程控件 在在Visual Basic 中編譯和執(zhí)行程序中編譯和執(zhí)行程序 理解理解 Windows 應(yīng)用程序的事件驅(qū)動設(shè)計應(yīng)用程序的事件驅(qū)動設(shè)計 使用常用的控件，如標簽、文本框和命使用常用的控件，如標簽、文本框和命令按鈕令按鈕

2、編寫事件驅(qū)動程序的代碼編寫事件驅(qū)動程序的代碼 在運行時更改控件的屬性在運行時更改控件的屬性 使用使用 MSGBOX 系統(tǒng)對話框進行用戶交互系統(tǒng)對話框進行用戶交互 Visual Basic 程序是事件驅(qū)動的程序是事件驅(qū)動的 每個對象都有它自己的事件集每個對象都有它自己的事件集 在事件驅(qū)動應(yīng)用程序中，代碼不會遵循固在事件驅(qū)動應(yīng)用程序中，代碼不會遵循固定的執(zhí)行路徑，而是由操作來決定定的執(zhí)行路徑，而是由操作來決定 響應(yīng)事件時執(zhí)行的代碼稱為事件處理程序響應(yīng)事件時執(zhí)行的代碼稱為事件處理程序 可以為用戶提供即時反饋可以為用戶提供即時反饋 使程序設(shè)計更貼近用戶的操作需要使程序設(shè)計更貼近用戶的操作需要 使程序設(shè)

3、計的目的性更強使程序設(shè)計的目的性更強 減少程序的復(fù)雜性減少程序的復(fù)雜性 可分為用戶事件和系統(tǒng)事件可分為用戶事件和系統(tǒng)事件Private Sub Command1_Click () . 要執(zhí)行的語句要執(zhí)行的語句 .End SubPrivate Sub Command1_DragDrop (Source As Control, X As Single, Y As Single) . 要執(zhí)行的語句要執(zhí)行的語句 .End Sub 不帶參數(shù)不帶參數(shù)的事件的事件帶參數(shù)的帶參數(shù)的事件事件 由用戶執(zhí)行的某些操作所觸發(fā)的事件由用戶執(zhí)行的某些操作所觸發(fā)的事件稱為用戶事件。例如，簡單的用戶操稱為用戶事件。例如，簡單

4、的用戶操作：作： 單擊窗體上的命令按鈕單擊窗體上的命令按鈕 在文本框中輸入數(shù)據(jù)在文本框中輸入數(shù)據(jù) 在窗體上任意位置單擊鼠標在窗體上任意位置單擊鼠標 在窗體上拖動鼠標在窗體上拖動鼠標（在（在VB環(huán)境中進行演示）環(huán)境中進行演示） 由其他事件或由其他事件或Windows操作系統(tǒng)觸發(fā)操作系統(tǒng)觸發(fā)的事件稱為系統(tǒng)事件，例如：的事件稱為系統(tǒng)事件，例如：Timer 事事件就是一個系統(tǒng)事件的例子。件就是一個系統(tǒng)事件的例子。 系統(tǒng)事件系統(tǒng)事件無需任何用戶干預(yù)無需任何用戶干預(yù) Visual Basic 事件是針對操作和與之相事件是針對操作和與之相關(guān)聯(lián)的每個控件而單獨進行編碼的關(guān)聯(lián)的每個控件而單獨進行編碼的 僅當用戶

5、僅當用戶觸發(fā)特定操作時事件才會發(fā)生觸發(fā)特定操作時事件才會發(fā)生 必須存在當事件發(fā)生時可以執(zhí)行的代碼必須存在當事件發(fā)生時可以執(zhí)行的代碼 直到事件發(fā)生并引起響應(yīng)時，用戶才意直到事件發(fā)生并引起響應(yīng)時，用戶才意識到存在與該事件的發(fā)生相關(guān)聯(lián)的代碼識到存在與該事件的發(fā)生相關(guān)聯(lián)的代碼事件事件說明說明Initialize用于初始化應(yīng)用程序用于初始化應(yīng)用程序Load執(zhí)行顯示窗體前所需的操作執(zhí)行顯示窗體前所需的操作 （示例）（示例）Unload卸載窗體時，將發(fā)生此事件卸載窗體時，將發(fā)生此事件Click除標題欄之外，在窗體上的空白區(qū)或窗體上的無效除標題欄之外，在窗體上的空白區(qū)或窗體上的無效控件上單擊鼠標時，將觸發(fā)此事

6、件控件上單擊鼠標時，將觸發(fā)此事件DblClick除標標題欄之外，在窗體上的空白區(qū)或窗體上的無除標標題欄之外，在窗體上的空白區(qū)或窗體上的無效控件上雙擊鼠標時，將觸發(fā)此事件效控件上雙擊鼠標時，將觸發(fā)此事件Resize窗體的窗口尺寸改變后，第一次顯示該窗體時將發(fā)窗體的窗口尺寸改變后，第一次顯示該窗體時將發(fā)生此事件生此事件Private Sub Form_Load() Text1.text=”大家好大家好”End Sub 返返 回回 在加載窗體時，名稱為在加載窗體時，名稱為“Text1”的文的文本框會顯示本框會顯示“大家好大家好”。事件事件說明說明Click每次單擊控件時發(fā)生每次單擊控件時發(fā)生KeyP

7、ress按下并釋放任何鍵盤鍵時發(fā)生按下并釋放任何鍵盤鍵時發(fā)生MouseDown按下鼠標按鈕不松開時，將發(fā)生此事件按下鼠標按鈕不松開時，將發(fā)生此事件MouseMove在控件上移動鼠標時，將發(fā)生此事件在控件上移動鼠標時，將發(fā)生此事件 Visual Basic 中的應(yīng)用程序編碼時，需中的應(yīng)用程序編碼時，需要使用以下三個主要特征：要使用以下三個主要特征： 屬性：控件的特性屬性：控件的特性 方法：控件所提供的某種能執(zhí)行的操作方法：控件所提供的某種能執(zhí)行的操作 事件：發(fā)生在用戶和界面控件之間的交事件：發(fā)生在用戶和界面控件之間的交互?；ァ?通過編寫應(yīng)用程序代碼來設(shè)置控件的屬通過編寫應(yīng)用程序代碼來設(shè)置控件的屬

8、性。例如，當用戶在名稱為性。例如，當用戶在名稱為“Text1”的文的文本框中輸入本框中輸入“Q”時，禁用命令按鈕。時，禁用命令按鈕。Private Sub Text1_LostFocus() If text1.text=Q Then command1.enabled=false End IfEnd Sub （在（在VB環(huán)境中進行演示）環(huán)境中進行演示） 通過在事件過程中編寫應(yīng)用程序代碼，通過在事件過程中編寫應(yīng)用程序代碼，還可以調(diào)用各種控件的方法，以執(zhí)行還可以調(diào)用各種控件的方法，以執(zhí)行某種操作。（示例）某種操作。（示例）例如，要在按鈕例如，要在按鈕Command1點擊時，將點擊時，將Form1窗體

9、隱藏并加載窗體隱藏并加載Form2。Private Sub Command1_Click()加載加載Form2Load Form2隱藏隱藏Form1Form1.Hide顯示顯示Form2Form2.ShowEnd Sub （在（在VB環(huán)境中進行演示）環(huán)境中進行演示） VB提供的一些方法提供的一些方法 Load：加載某個組件加載某個組件 UnLoad：卸載某個組件卸載某個組件 窗體的常用方法窗體的常用方法 Hide：隱藏窗體自身，但不被卸載隱藏窗體自身，但不被卸載 Show：使窗體在屏幕上顯示使窗體在屏幕上顯示 MsgBox 函數(shù)用于在用戶與應(yīng)用程序之函數(shù)用于在用戶與應(yīng)用程序之間進行交互。間進行

10、交互。 MsgBox 函數(shù)顯示一個帶有消息的對話函數(shù)顯示一個帶有消息的對話框并等待用戶單擊某個按鈕來關(guān)閉它?？虿⒌却脩魡螕裟硞€按鈕來關(guān)閉它。 用戶點擊按鈕后，會返回一個值指示用用戶點擊按鈕后，會返回一個值指示用戶單擊的按鈕。戶單擊的按鈕。MsgBox ( 提示信息提示信息, 標志和按鈕標志和按鈕, 對對話框的標題信息話框的標題信息 )標題信息標題信息提示信息提示信息標志和按鈕標志和按鈕 消息框中消息框中“標志和按鈕標志和按鈕”參數(shù)中關(guān)于按參數(shù)中關(guān)于按鈕類型和數(shù)目的值：鈕類型和數(shù)目的值：按鈕值常數(shù)按鈕值常數(shù)值值說明說明vbOKOnly0只顯示只顯示“確定確定”按鈕按鈕vbOKCancel1顯示

11、顯示“確定確定”和和“取消取消”按鈕按鈕vbAbortRetryIgnore2顯示顯示“放棄放棄”、“重試重試”和和“忽略忽略”按鈕按鈕vbYesNoCancel3顯示顯示“是是”、“否否”和和“取消取消”按按鈕鈕vbYesNo4顯示顯示“是是”和和“否否”按鈕按鈕vbRetryCanel5顯示顯示“重試重試”和和“取消取消”按鈕按鈕 消息框中消息框中“標志和按鈕標志和按鈕”參數(shù)中關(guān)于描參數(shù)中關(guān)于描述圖標樣式的值：述圖標樣式的值：圖標樣式常數(shù)圖標樣式常數(shù)值值說明說明vbCritical16顯示顯示臨界信息圖標。臨界信息圖標。vbQuestion32顯示警告查詢圖標。顯示警告查詢圖標。vbExc

12、lamation48顯示警告消息圖標。顯示警告消息圖標。vbInformation64顯示信息消息圖標。顯示信息消息圖標。 消息框中消息框中“標志和按鈕標志和按鈕”參數(shù)中關(guān)于確定參數(shù)中關(guān)于確定默認按鈕的值：默認按鈕的值：默認按鈕常數(shù)默認按鈕常數(shù)值值說明說明vbDefaultButton10第一個按鈕為默認按鈕。第一個按鈕為默認按鈕。vbDefaultButton2256第二個按鈕為默認按鈕。第二個按鈕為默認按鈕。vbDefaultButton3512第三個按鈕為默認按鈕。第三個按鈕為默認按鈕。vbDefaultButton4768第四個按鈕為默認按鈕。第四個按鈕為默認按鈕。 消息對話框的返回值

13、消息對話框的返回值常數(shù)常數(shù)值值按鈕按鈕vbOK1“確定確定”按鈕按鈕vbCancel2“取消取消”按鈕按鈕vbAbort3“放棄放棄”vbRetry4“重試重試” 按鈕按鈕vbIgnore5“取消取消”按鈕按鈕vbYes6“是是” 按鈕按鈕vbNo7“否否” 按鈕按鈕 （在（在VB環(huán)境中進行演示）環(huán)境中進行演示）Private Sub Form_Load() Dim strResult As String strResult = MsgBox(確實要刪除數(shù)據(jù)嗎？確實要刪除數(shù)據(jù)嗎？, vbOKCancel + vbQuestion + vbDefaultButton2, 刪刪除數(shù)據(jù)除數(shù)據(jù)) MsgBox (選中的結(jié)果是：選中的