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

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

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

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

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

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

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

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

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

9、像中的移動。實例四 字體格式演示 本實例的思路是通過單擊代表字體對齊方式的單選按鈕控件，將改變標簽中字體的對齊方式。選擇含有字體格式、樣式和大小的組合框中的某個列表項，并單擊應(yīng)用復(fù)選框，將改變標簽中字體的屬性。并將字體的屬性顯示在列表框中。程序設(shè)計過程如下： （1）設(shè)計用戶界面。在窗體中添加如圖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左對齊Option1(1)Caption居中對齊Option1(2)Caption右對齊（2）編寫事件代碼。初始化窗體各控件，并使窗體加載后，默認選中各組合框中第一項，并在列表框中顯示其內(nèi)容。編寫單選按鈕數(shù)組Option1的Click事件代碼，當(dāng)某個單選按鈕被選中后，將改變Label2中文字的對齊方式。編寫單選按鈕

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

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

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

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

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