Visual-Basic程序設(shè)計(jì)綜合教程第6章-綜合案例

1、第6章 綜合案例 本章以實(shí)例的形式介紹了在程序開發(fā)中，常用控件的使用、鼠標(biāo)鍵盤事件的應(yīng)用以及多窗體程序界面設(shè)計(jì)方法和步驟。幫助讀者在學(xué)習(xí)程序設(shè)計(jì)的過程中，正確理解控件，有效的設(shè)計(jì)應(yīng)用程序界面。并從中掌握程序設(shè)計(jì)思想和編程技巧?！局饕獌?nèi)容】計(jì)時(shí)器的應(yīng)用-模擬秒表滾動(dòng)條的應(yīng)用-簡(jiǎn)易調(diào)色板圖形控件以及鍵盤事件的綜合應(yīng)用-在落日中飛行單選按鈕、復(fù)選框、列表框和組合框的綜合應(yīng)用-字體格式演示鼠標(biāo)事件的綜合應(yīng)用-利用鼠標(biāo)事件繪制直線和曲線多窗體程序界面設(shè)計(jì)-學(xué)生成績(jī)查詢系統(tǒng)界面設(shè)計(jì)實(shí)例一 模擬秒表實(shí)例二 簡(jiǎn)易調(diào)色板實(shí)例三 在落日中飛行實(shí)例四 字體格式演示 實(shí)例五 利用鼠標(biāo)事件繪制直線和曲線 實(shí)例六 學(xué)生成

2、績(jī)查詢系統(tǒng)界面設(shè)計(jì) 在本例中，我們利用計(jì)時(shí)器控件模擬一個(gè)秒表：時(shí)間每變化0.01秒時(shí)，便在文本框中顯示秒表走過的時(shí)間（格式為小時(shí):分鐘.秒 百分秒），程序運(yùn)行后的情況如圖6.1（a）所示。實(shí)例一 模擬秒表圖6.1（a）程序運(yùn)行后圖 程序設(shè)計(jì)過程如下：（1）設(shè)計(jì)用戶界面。 在窗體上創(chuàng)建如圖6.1（b）的控件，并根據(jù)表6.1，設(shè)置各標(biāo)簽的屬性。調(diào)整各控件的大小、位置及間距，設(shè)計(jì)好的窗體界面如圖6.1（b）所示。 6.1（b） 初始用戶界面 （2）編寫事件代碼。聲明變量編寫“開始”命令按鈕的事件過程編寫“記錄”命令按鈕的事件過程編寫“停止并清零”命令按鈕的事件過程編寫計(jì)時(shí)器的事件過程 （3）運(yùn)行程序

3、，驗(yàn)證運(yùn)行結(jié)果。程序運(yùn)行后，如圖6.1（c）所示；單擊“開始”命令按鈕，秒表開始計(jì)時(shí)，同時(shí)使“開始”命令按鈕不可用，激活“記錄”和“停止并清零”命令按鈕，如圖6.1（d）所示；單擊“記錄”命令按鈕，則將當(dāng)前秒表走過的時(shí)間顯示到列表框中，如圖6.1（e）所示；單擊“停止并清零”命令按鈕，激活 “開始”命令按鈕，使“停止并清零”命令按鈕和“記錄”命令按鈕不可用。Text1中的時(shí)間變?yōu)槌跏贾怠?:0.00”，如圖6.1（f）所示。 圖6.1（c）程序開始運(yùn)行后 圖6.1（d）單擊“開始”命令按鈕后 圖6.1（e）單擊“記錄”命令按鈕后 圖6.1（f）單擊“停止并清零”命令按鈕后 實(shí)例二 簡(jiǎn)易調(diào)色板

4、在本例中，我們通過三個(gè)水平滾動(dòng)條(HscrollBar)來輸入和改變?nèi)N基本顏色。用三個(gè)標(biāo)簽（Label5、Label6、Label7）的背景顏色來表現(xiàn)顏色的變化。水平滾動(dòng)條的Change事件Scroll事件將會(huì)改變顏色的RGB值，最后通過標(biāo)簽（Label8）將三種顏色的混合值表現(xiàn)出來，達(dá)到調(diào)色和顯示的目的。程序運(yùn)行后的情況如圖6.2（a）所示。圖6.2（a）程序運(yùn)行后 程序設(shè)計(jì)過程如下：（1）設(shè)計(jì)用戶界面。設(shè)計(jì)步驟： 根據(jù)圖6.2（b），初始化用戶界面。在窗體上部畫一個(gè)標(biāo)簽Label1，在窗體中央?yún)^(qū)域畫一個(gè)框架Frame1，并在框架中分別畫標(biāo)簽Label2、Label3、Label4，在這三

5、個(gè)標(biāo)簽右側(cè)畫三個(gè)水平滾動(dòng)條Hscroll1、Hscroll2、Hscroll3和三個(gè)標(biāo)簽Label5、Label6、Label7。在框架的左下方畫命令按鈕Command1，在命令按鈕Command1的右側(cè)畫標(biāo)簽Label8。并根據(jù)表6.3，設(shè)置各控件的屬性。表6.3用戶界面各控件屬性設(shè)置控件名稱（name）屬性屬性值Form1Caption簡(jiǎn)易調(diào)色板Label1Caption提示：可通過調(diào)色區(qū)的滾動(dòng)條設(shè)置各種顏色的比例Label2Caption紅色Label3Caption綠色Label3Caption藍(lán)色Hscroll1、Hscroll2、Hscroll3Max255Min0LargeCha

6、nge10SmallChange1Label5、Label6、Label7BorderStyle1Command1Caption查看顏色混合后的效果Label8BorderStyle1（2）編寫事件代碼。編寫水平滾動(dòng)條Hscroll1、Hscroll2和Hscroll3的Change事件。 編寫命令按鈕Command1的Click事件。 （3）運(yùn)行程序，驗(yàn)證運(yùn)行結(jié)果。 圖6.2（c）通過移動(dòng)滾動(dòng)塊改變顏色輸出 圖6.2（d）單擊命令按鈕后顯示的混合顏色程序運(yùn)行后，如圖6.2（c）所示，分別移動(dòng)三個(gè)水平滾動(dòng)條的滾動(dòng)塊（通過單擊水平滾動(dòng)條右邊的移動(dòng)按鈕或移動(dòng)滾動(dòng)框），同時(shí)觀察右側(cè)標(biāo)簽中顯示的顏色變

7、化，并調(diào)整滾動(dòng)條的滾動(dòng)塊的位置。確定三個(gè)標(biāo)簽中的顏色后，單擊命令按鈕，則在右側(cè)標(biāo)簽中顯示混合顏色，如圖6.2（d）所示。圖6.2（c）通過移動(dòng)滾動(dòng)塊改變顏色輸出 圖6.2（d）單擊命令按鈕后顯示的混合顏色 實(shí)例三 在落日中飛行在本例中，我們建立兩個(gè)圖形控件ImgBack和ImgPlane，ImgBack用于顯示落日的背景圖片，ImgPlane用來加載飛機(jī)的圖片。當(dāng)程序運(yùn)行后，按下鍵盤功能鍵區(qū)的方向鍵“”、“”、“”、“”，飛機(jī)便按照鍵入的方向飛行。圖6.3（a）和圖6.3（b）顯示了當(dāng)按下“”鍵時(shí)飛機(jī)向右飛行前后的狀態(tài)。圖6.3（a）程序運(yùn)行后的窗體 圖6.3（b）按下“”鍵時(shí)后的窗體 程序設(shè)

8、計(jì)過程如下：（1）設(shè)計(jì)用戶界面。根據(jù)圖6.3（a），初始化用戶界面。根據(jù)表6.4，在屬性窗口中設(shè)置窗體和圖形控件image1的屬性。表6.4用戶界面控件屬性設(shè)置 控件名稱（name）屬性屬性值Form1Caption在落日中飛行Height3150Width4650ImgBackHeight2500Width4500StretchTrueImgPlaneHeight400Width700StretchTrue（2）編寫事件代碼。初始化窗體的大小和背景圖像的位置和飛機(jī)的位置。 編寫鍵盤的事件過程。 （3）運(yùn)行程序，驗(yàn)證運(yùn)行結(jié)果。 程序運(yùn)行后，分別單擊“” “” “” “”方向鍵，觀察飛機(jī)在背景圖

9、像中的移動(dòng)。實(shí)例四 字體格式演示 本實(shí)例的思路是通過單擊代表字體對(duì)齊方式的單選按鈕控件，將改變標(biāo)簽中字體的對(duì)齊方式。選擇含有字體格式、樣式和大小的組合框中的某個(gè)列表項(xiàng)，并單擊應(yīng)用復(fù)選框，將改變標(biāo)簽中字體的屬性。并將字體的屬性顯示在列表框中。程序設(shè)計(jì)過程如下： （1）設(shè)計(jì)用戶界面。在窗體中添加如圖64（a）所示的控件，其屬性設(shè)置見表65。圖6.4（a）“字體格式演示”初始化界面圖表6.5用戶界面控件屬性設(shè)置控件名稱（name）屬性屬性值Form1Caption字體格式Label1Caption字體格式演示Label2Caption愛我中華BorderStyle1Label3Caption當(dāng)前字體

10、格式：List1Frame1Caption格式設(shè)置Check1(0)Caption應(yīng)用字體Check1(1)Caption應(yīng)用字體樣式Check1(1)Caption應(yīng)用字體大小Combo1Style0Combo2Style1Combo3Style1Option1(0)Caption左對(duì)齊Option1(1)Caption居中對(duì)齊Option1(2)Caption右對(duì)齊（2）編寫事件代碼。初始化窗體各控件，并使窗體加載后，默認(rèn)選中各組合框中第一項(xiàng)，并在列表框中顯示其內(nèi)容。編寫單選按鈕數(shù)組Option1的Click事件代碼，當(dāng)某個(gè)單選按鈕被選中后，將改變Label2中文字的對(duì)齊方式。編寫單選按鈕

11、數(shù)組Option1的Click事件代碼，當(dāng)某個(gè)單選按鈕被選中后，將改變Label2中文字的對(duì)齊方式。編寫組合框Combo2的Click事件代碼，Combo2用來選擇字體的樣式。 編寫組合框Combo3的Click事件代碼，Combo3用來選擇字體的大小。 編寫復(fù)選框數(shù)組Check1的Click事件代碼。 （3）運(yùn)行程序，驗(yàn)證運(yùn)行結(jié)果。 運(yùn)行調(diào)試程序，驗(yàn)證單選選項(xiàng)按鈕能否改變字體對(duì)齊方式，以及復(fù)選柜控件和列表框控件能否改變字體類型、格式和大小。其運(yùn)行界面如圖64（b）所示。圖6.4（b）“字體格式演示”運(yùn)行界面 實(shí)例五 利用鼠標(biāo)事件繪制直線和曲線 在本例中，我們?cè)谥付ǖ膱D片框中，通過鼠標(biāo)左鍵的按

12、下、移動(dòng)及釋放，繪制連接鼠標(biāo)起始位置所在點(diǎn)的直線；通過單擊并移動(dòng)鼠標(biāo)，繪制鼠標(biāo)移動(dòng)軌跡的曲線。程序運(yùn)行前、后的情況如圖6.5（a）和圖6.5（b）所示。圖6.5（a）程序初始界面 圖6.5（b） 繪制直線、曲線后程序設(shè)計(jì)過程如下：（1）設(shè)計(jì)用戶界面。在窗體上創(chuàng)建兩個(gè)標(biāo)簽、兩個(gè)圖片框和一個(gè)命令按鈕。據(jù)表6.7設(shè)置各控件的屬性。根據(jù)圖6.5（a）調(diào)整各控件的大小、位置及間距。設(shè)計(jì)好的窗體界面如圖6.5（a）所示。表6.7用戶界面控件屬性設(shè)置控件名稱（name）屬性屬性值Label1Caption通過移動(dòng)鼠標(biāo)左鍵畫直線Label2Caption通過移動(dòng)鼠標(biāo)左鍵畫曲線Form1Caption利用鼠標(biāo)事

13、件繪制直線和曲線Picture1NameP1BackColor&H00FFFFFF&Picture2NameP2BackColor&H000000FF&Command1Captiontion再畫一次（2）編寫事件代碼。聲明變量 編寫圖片框P1的鼠標(biāo)事件過程代碼編寫圖片框P2的鼠標(biāo)事件過程代碼 編寫命令按鈕command1的事件過程 （3）運(yùn)行程序，驗(yàn)證運(yùn)行結(jié)果。程序運(yùn)行后， 在窗體靠左的圖片框中任意位置按下鼠標(biāo)左鍵，不釋放鼠標(biāo)左鍵，將鼠標(biāo)移到另一位置。則繪制出一條從起點(diǎn)到終點(diǎn)的直線，如圖6.5（b）所示。在窗體靠右的圖片框中任意位置按下鼠標(biāo)左鍵，不釋放鼠標(biāo)左鍵，移動(dòng)鼠標(biāo)，在鼠標(biāo)移動(dòng)的軌跡上，便

14、畫出了一條的曲線，如圖6.5（b）所示。實(shí)例六 學(xué)生成績(jī)查詢系統(tǒng)界面設(shè)計(jì)在本例中，我們將設(shè)計(jì)學(xué)生成績(jī)查詢系統(tǒng)的界面。其中包括登陸界面，系統(tǒng)信息頁(yè)面，系統(tǒng)主界面等三個(gè)窗體。他們的關(guān)系如圖所示是輸入用戶名，密碼是否正確重新輸入系統(tǒng)信息頁(yè)面系統(tǒng)主界面程序設(shè)計(jì)過程如下：（1）設(shè)計(jì)用戶界面。創(chuàng)建登陸界面。 創(chuàng)建系統(tǒng)信息頁(yè)面 我們將默認(rèn)的窗體Form1作為系統(tǒng)主頁(yè)面。在form1中添加一個(gè)命令按鈕，設(shè)置命令按鈕的Caption屬性為“進(jìn)入本系統(tǒng)”。 根據(jù)表6.8，設(shè)置各窗體的屬性表6.8用戶界面窗體及控件屬性設(shè)置窗體、控件名稱（name）屬性屬性值FrmLoginname通過移動(dòng)鼠標(biāo)左鍵畫直線Form1N

15、ameMainCaption歡迎使用學(xué)生成績(jī)查詢系統(tǒng)Fmand1Caption進(jìn)入查詢系統(tǒng)（2）編寫事件代碼。修改frmLogin窗體中“確定”的Click事件代碼。 修改frmAbout窗體中“確定”按鈕的Click事件代碼 設(shè)置frmLogin窗體為啟動(dòng)窗體將工程保存為“學(xué)生成績(jī)查詢系統(tǒng).vbp” （3）運(yùn)行程序，驗(yàn)證運(yùn)行結(jié)果。程序運(yùn)行后， 在如圖6.6（g）所示的登陸界面中，輸入用戶名“student”，密碼“123456”，單擊“確定”，則窗體“關(guān)于學(xué)生成績(jī)查詢系統(tǒng)”出現(xiàn)，如圖6.6（h）所示。單擊“確定”后，則出現(xiàn)系統(tǒng)主界面。如圖6.6（i）所示。若在登陸界面中輸入的密碼錯(cuò)誤時(shí)，會(huì)彈出如圖6.6（j）所示的信息對(duì)話框。單擊“確定”，將返回登陸界面，密碼輸入文本框得到焦點(diǎn)。允許用戶重新輸入密碼。圖6.6（i）系統(tǒng)主頁(yè)面圖6.6（j）密碼錯(cuò)誤的信息對(duì)話框圖6.6（g）登陸界面圖6.6