1、(中職）Visual Basic 6.0程序設(shè)計第2章ppt課件VB程序設(shè)計基礎(chǔ) 【實例1】 事件【實例2】 變化的窗體【實例3】 鍵盤與鼠標(biāo) 【實例4】 選擇窗體 【實例5】 有個性的按鈕【實例6】 登錄對話框 【實例1】 事件案例效果 在本例中，將演示程序在發(fā)生不同動作時，程序會發(fā)生什么樣的事件。在這個程序中可以響應(yīng)的事件有：窗口大小改變（Resize）事件，鍵盤按鍵被按下（KeyPress）事件，鼠標(biāo)在窗體上單擊（Click）事件和窗體被卸載（UnLoad）事件。 技術(shù)分析 事件驅(qū)動是VB程序運行機(jī)制的核心，當(dāng)一個應(yīng)用程序從開始運行時，就會發(fā)生一系列的事件（如程序加載事件Load）。程序

2、啟動完成后（即在程序運行的過程中），將一直等待著事件的發(fā)生（如發(fā)生了鼠標(biāo)的單擊事件Click），如果發(fā)生了什么事件，就轉(zhuǎn)去執(zhí)行該事件的相關(guān)代碼，作為對事件的回應(yīng)。事件 （Event）是指發(fā)生在某一對象上的事情，是Visual Basic 中預(yù)先設(shè)置好的，可以被對象識別的動作。 操作步驟 （1）創(chuàng)建工程。按第1章中所學(xué)習(xí)的方法，啟動中文Visual Basic 6.0，選擇“標(biāo)準(zhǔn) EXE”工程，進(jìn)入中文VB6的集成開發(fā)環(huán)境。（2）在窗體上雙擊，打開“代碼”窗口，在“代碼”窗口中輸入以下代碼。程序代碼：鼠標(biāo)在窗體上單擊Private Sub Form_Click() MsgBox 鼠標(biāo)在窗體上單擊

3、，發(fā)生Click事件。End Sub鍵盤按鈕被按下Private Sub Form_KeyPress(KeyAscii As Integer) MsgBox 鍵盤按鈕被按下，發(fā)生KeyPress事件。End Sub窗體被載入Private Sub Form_Load() MsgBox 窗體被載入，發(fā)生Load事件。End Sub窗體大小被改變Private Sub Form_Resize() MsgBox 窗體大小被改變，發(fā)生Resize事件。End Sub窗體被卸載Private Sub Form_Unload(Cancel As Integer) MsgBox 窗體被卸載，發(fā)生UnLoad

4、事件。End Sub 知識進(jìn)階 當(dāng)用戶對一個對象發(fā)出一個動作時，會產(chǎn)生一個事件，然后自動地調(diào)用與該事件相關(guān)的事件過程，事件過程是在響應(yīng)事件時執(zhí)行的程序代碼段。事件過程一般由VB創(chuàng)建，是附加在窗體或控件上的，用戶不能增加或刪除，只能在過程內(nèi)添加用戶的事件處理代碼，以完成對事件的響應(yīng)。 思考練習(xí) 1. 填空題（1）VB程序運行機(jī)制的核心是 ，在程序運行的過程中將一直等待著 的發(fā)生。（2）鼠標(biāo)單擊事件是 ，窗體加載事件是 ，鍵盤按鍵按下時會發(fā)生的事件有 ，窗體卸載的事件是 。（3）不同的對象 有相同的事件。（4）事件的具體名稱由 和 構(gòu)成。2. 問答題（1）什么是事件？事件在程序中有什么作用？（2）

5、Msgbox函數(shù)在程序中有什么用途？（3）當(dāng)窗體加載時有哪些事件發(fā)生？ 【實例2】 變化的窗體 案例效果 窗體在屏幕的中央，窗體背景是一幅圖像。單擊窗體中的“最小化”按鈕，可使窗體最小化，在Windows的狀態(tài)欄中顯示程序最小化后的按鈕（按鈕上 有最小化圖標(biāo)） 技術(shù)分析 1. 對象 對象（Object）是VB應(yīng)用程序的基本單元，是代碼和數(shù)據(jù)的集合，用VB編程的實質(zhì)就是用對象組裝程序。2. 屬性 屬性（Property）是指用于描述對象的名稱、位置、大小、顏色、字體等特性。 操作步驟 1創(chuàng)建工程（1）首先，按第1章所學(xué)過的方法創(chuàng)建一個“標(biāo)準(zhǔn)EXE”工程。（2）然后，參照圖2-1左圖為窗體Form

6、1添加標(biāo)簽控件和命令按鈕。2設(shè)置對象的屬性 對象名稱Caption值對象名稱Caption值對象名稱Caption值Form1窗體變化Label1窗體變化Command1最小化Command2最大化Command3正常Command4退出&E3程序代碼編輯按第1章所學(xué)的方法，打開“代碼”窗口，在其中輸入以下程序代碼。程序代碼：Rem “窗體變化”的代碼程序Private Sub Command1_Click() 單擊“Command1”按鈕的事件過程Form1.WindowState = vbMinimized 設(shè)置窗體窗口為最小化End Sub Private Sub Command2_Cl

7、ick() 單擊“Command2”按鈕的事件過程Form1.WindowState = vbMaximized 設(shè)置窗體窗口最大化End Sub Private Sub Command3_Click() 單擊“Command3”按鈕的事件過程Form1.WindowState = Normal 設(shè)置窗體窗口為還原狀態(tài)End Sub Private Sub Command4_Click() 單擊“Command4”按鈕的事件過程End 退出程序的運行End Sub 其中，單引號“”后面的文字是注釋文字，在程序運行中不會被執(zhí)行。 知識進(jìn)階 1.常用窗體屬性 2. 進(jìn)階實例移動文字 思考練習(xí) 1.

8、 填空題（1）屬性是指用于描述對象的 等特性。對象屬性的設(shè)置可以有 和 兩種方法。在程序中使用代碼進(jìn)行屬性設(shè)置的語句格式是 。（2）對象的位置及大小由 、 、 和 屬性決定。（3）在程序中，對指定對象的調(diào)用是通過對象的 來進(jìn)行的。名稱只能在 時設(shè)置。（4）對象的文字顏色由 屬性決定，背景顏色由 屬性決定，背景圖像由 屬性決定。（5）窗體的最大化、最小化由 屬性決定。 思考練習(xí)2. 程序設(shè)計題（1）創(chuàng)建一個程序，有三個命令按鈕和一個標(biāo)簽控件，單擊按鈕時分別設(shè)置標(biāo)簽文字為紅、綠、藍(lán)三種顏色。（2）創(chuàng)建一個程序，程序中有兩個命令按鈕和一個標(biāo)簽控件，設(shè)置標(biāo)簽控件背景為紅色，單擊命令按鈕時能實現(xiàn)標(biāo)簽控件

9、的放大和縮小。 【實例3】 鍵盤與鼠標(biāo) 案例效果 程序運行中，當(dāng)鼠標(biāo)指針在窗口中移動時，將在窗口中實時顯示鼠標(biāo)的當(dāng)前位置，如左圖所示；當(dāng)鍵盤上的某個按鍵被按下時，將在窗口中實時顯示該按鍵的信息，如右圖所示；當(dāng)窗口被鼠標(biāo)雙擊時，也將在窗口中顯示出相關(guān)的信息。 技術(shù)分析 1窗體事件 2方法 操作步驟 本實例中將學(xué)習(xí)使用基本的鼠標(biāo)和鍵盤事件：DblClick、MouseMove和KeyPress，以及Print方法。1. 創(chuàng)建程序界面創(chuàng)建一個“標(biāo)準(zhǔn) EXE”工程，設(shè)置窗體From1的Caption屬性為“鍵盤與鼠標(biāo)”，其他屬性保持不變。2. 程序代碼編輯在窗體的“代碼”窗口中輸入以下代碼。 程序代碼

10、：Private Sub Form_DblClick() Me.Cls 清除窗口顯示的文字 Print 打印一個空行 Print 鼠標(biāo)被雙擊！ 在窗體中顯示文字鼠標(biāo)被雙擊！End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Cls Print Print 鼠標(biāo)當(dāng)前位置為; X; ,; Y 在窗體上顯示鼠標(biāo)位置End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Me.Cls Print Prin

11、t 鍵盤上的 ; Chr$(KeyAscii); 鍵被按下 在窗體上顯示鍵盤按鍵信息End Sub 知識進(jìn)階 程序中使用到了窗體的MouseMove事件和KeyPress事件。下面對這兩個事件的使用方法進(jìn)行詳細(xì)的說明，來學(xué)習(xí)使用窗體的鼠標(biāo)事件和鍵盤事件。1. 鼠標(biāo)事件 2. 鍵盤事件 3. Print 方法 思考練習(xí) 1. 填空題（1）鼠標(biāo)按鍵按下和松開時將產(chǎn)生 和 事件。（2）鍵盤按鍵按下和松開的過程中將產(chǎn)生 、 和 事件。（3）Hide屬性與Unload方法都可以使窗體不可見，兩者的區(qū)別在于 。（4）Show方法和Load方法的區(qū)別是 。（5）Print方法的Tab參數(shù)用于 。 思考練習(xí)2

12、. 程序設(shè)計題（1）設(shè)計一個程序，在窗體上有一個標(biāo)簽，背景為藍(lán)色，當(dāng)鼠標(biāo)右鍵在窗體上按下時，標(biāo)簽放大一倍，松開時還原標(biāo)簽大小。（2）設(shè)計一個程序，在窗體上有一個標(biāo)簽，鼠標(biāo)在窗體上移動時，在鼠標(biāo)的所在位置顯示標(biāo)簽，標(biāo)簽中顯示鼠標(biāo)的坐標(biāo)。（3）設(shè)計一個程序，在窗體上有一個標(biāo)簽，當(dāng)按下A、S、D、W鍵時，標(biāo)簽分別向左、下、右、上方向移動。 【實例4】 選擇窗體 案例效果 單擊“窗體變化”按鈕，即可調(diào)出“窗體變化”程序，并運行該程序，單擊該程序窗口右上角的叉子按鈕，即可回到所示的畫面；單擊“移動文字”按鈕，即可調(diào)出“移動文字”程序，并運行該程序；單擊“退出”按鈕，即可退出程序的運行。 技術(shù)分析 1.直

13、接創(chuàng)建具有多個窗體的工程 （1）創(chuàng)建工程及主調(diào)用窗體 （2）添加新窗體 （3）編輯主調(diào)用窗體 （4）編輯其他窗體 （5）設(shè)置啟動窗體 2. 通過已有窗體創(chuàng)建多窗體工程 （1）創(chuàng)建工程 （2）復(fù)制已有窗體到工程目錄 （3）添加已存在的窗體 （4）編輯主調(diào)用窗體 （5）修改其他窗體 操作步驟 1.創(chuàng)建工程主調(diào)用窗體 2.添加其他窗體3. 編輯主調(diào)用窗體的程序代碼 按前面所學(xué)的方法，在Form4窗體的“代碼”窗口內(nèi)輸入如下的程序代碼。 程序代碼：Private Sub Command1_Click() Form4.Show 顯示Form4窗體，即Form4成為活動窗體End SubPrivate S

14、ub Command2_Click() Form2.Show 顯示Form2窗體，即Form2成為活動窗體End SubPrivate Sub Command3_Click() Form3.Show 顯示窗體Form3，即Form3成為活動窗體End SubPrivate Sub Command4_Click() End 退出程序的運行End Sub4. 設(shè)置啟動窗體 知識進(jìn)階 1.多窗體程序的應(yīng)用 2. 進(jìn)階實例展示窗體 思考練習(xí) 1. 填空題（1）創(chuàng)建多窗體程序的方法有 和 。（2）設(shè)置啟動窗體應(yīng)在 對話框內(nèi)進(jìn)行。2. 程序設(shè)計題（1）設(shè)計一個多窗體程序，主窗體上有一個按鈕，另一個窗體是一

15、個關(guān)于窗體（按展示窗體的方法進(jìn)行設(shè)計），單擊主窗體上的按鈕時彈出關(guān)于窗體。（2）設(shè)計一個有兩個窗體的程序，雙擊A窗體時，顯示B窗體，隱藏A窗體；雙擊B窗體時，顯示A窗體，卸載B窗體。 【實例5】 有個性的按鈕 案例效果 這個程序?qū)槲覀冄菔疽粋€有個性的按鈕：單擊“拖動”按鈕后，可以將圖片按鈕拖動到窗體的任意位置；單擊“停止”按鈕后，圖片按鈕說什么也拖不動了。 技術(shù)分析 Visual Basic 作為面向?qū)ο蟮目梢暬绦蜷_發(fā)環(huán)境，可以利用大量預(yù)定義的對象方便快捷地完成程序的開發(fā)。在程序中，作為預(yù)定義對象主要的表現(xiàn)形式就是Visual Basic 的控件。通過對控件屬性的簡單設(shè)置、調(diào)用控件的方法、

16、處理控件的事件，就可以將控件對象的功能應(yīng)用到程序中。命令按鈕是程序中最常用的控件之一，在前面的程序中，我們幾乎都用到了命令按鈕，在這一節(jié)的實例中，我們來學(xué)習(xí)命令按鈕的使用。 操作步驟 1. 創(chuàng)建窗體界面元素 對 象屬 性屬 性 值Command1名稱CmdMovePicture有個性的按鈕face.bmpToolTipText可移動的按鈕Command2名稱CmdDrogCaption拖動Command3名稱CmdStopCaption停止2. 程序代碼編輯在窗體的“代碼”窗口輸入以下程序代碼。程序代碼：Private Sub CmdDrog_Click() CmdMove.DragMode

17、= 1 設(shè)置拖動模式為自動，可響應(yīng)鼠標(biāo)拖動事件 CmdMove.MousePointer = 15 設(shè)置鼠標(biāo)指針為移動指針樣 CmdMove.Caption = 說走就走!End SubPrivate Sub CmdStop_Click() CmdMove.DragMode = 0 設(shè)置拖動模式為手動，不響應(yīng)鼠標(biāo)拖動事件 CmdMove.Caption = 歇會兒,說什么也不走了! CmdMove.MousePointer = 12 設(shè)置鼠標(biāo)指針為禁用指針樣式End SubPrivate Sub Form_DragDrop(Source As Control, X As Single, Y A

18、s Single) Source.Top = Y 設(shè)置按鈕對象的頂端位置 Source.Left = X 設(shè)置按鈕對象的左端位置End SubPrivate Sub Form_Load() CmdStop_Click 調(diào)用CmdStop_Click()過程,設(shè)置CmdMove按鈕的初始屬性End Sub 知識進(jìn)階 前面的實例程序中使用到了對象的DragDrop事件，當(dāng)用戶用鼠標(biāo)將一個控件拖動到一個對象上，并釋放鼠標(biāo)按鈕時，就會產(chǎn)生DragDrop事件。 思考練習(xí) 1. 填空題（1） 屬性設(shè)置按鈕為窗體默認(rèn)按鈕。其值為True時，按 鍵相當(dāng)于單擊該按鈕。（2） 屬性設(shè)置按鈕是否具有默認(rèn)取消功能。

19、當(dāng)其值為True時，按 鍵相當(dāng)于單擊該按鈕。（3）如果需要在按鈕上顯示圖像，應(yīng)該設(shè)置 屬性和 屬性。（4）DragDrop事件的響應(yīng)與 屬性有關(guān)。（5）鼠標(biāo)的指針樣式可以由 屬性和 屬性決定。 思考練習(xí)2. 程序設(shè)計題（1）設(shè)計一個程序，窗體中有兩個按鈕，其中一個按鈕為圖像按鈕，單擊另一個按鈕時可以顯示/隱藏該按鈕上的圖像。（2）設(shè)計一個程序，窗體上有兩個標(biāo)簽，將一個標(biāo)簽拖到另一個標(biāo)簽上時，能夠交換兩個標(biāo)簽內(nèi)的文字。 【實例6】 登錄對話框 案例效果 程序運行后，首先顯示如圖所示的“登錄”對話框，當(dāng)輸入正確的用戶名和密碼后，單擊“確定”按鈕或按鍵盤回車鍵后，將會彈出“主程序窗口”，并關(guān)閉“登錄

20、”窗口。技術(shù)分析 1.標(biāo)簽控件的常用屬性 2. 文本框控件的常用屬性 操作步驟 1. 創(chuàng)建登錄對話框（1）創(chuàng)建程序界面 對 象名 稱CaptionDefaultCancelPasswordCharForm1frmLogin登錄Command1CmdOK確定TrueFalseCommand2CmdCancel取消FalseTrueLabel1Label1用戶名稱Label2Label2密碼TextBox1txtUserTextBox2txtPassword*（2）登錄對話框程序代碼編輯在frmLogin窗體的“代碼”窗口中輸入以下代碼。程序代碼：Private Sub cmdCancel_Click() Unload Me 卸載當(dāng)前窗體，退出程序End SubPrivate Sub cmdOK_Click() 檢查用戶和密碼是否正確 If xtPassword .text= 123 And txtUser.text= wizard Then frmMain.Show