1、第3章目錄第3章 應(yīng)用程序窗體設(shè)計(jì) 任務(wù)1 在窗體指定位置顯示文本 任務(wù)2 保持窗體上的標(biāo)簽文本居中 任務(wù)3 制作鍵盤按鍵程序測試 任務(wù)4 制作簡單繪圖程序 任務(wù)5 創(chuàng)建輸入框和消息框 任務(wù)6 創(chuàng)建標(biāo)準(zhǔn)對話框 任務(wù)7 創(chuàng)建多文檔界面應(yīng)用程序 115第3章目錄任務(wù)1 在窗體指定位置顯示文本【知識點(diǎn)】窗體的常用屬性窗體的常用方法窗體的Load事件和Click事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，在程序執(zhí)行時(shí)窗體背景色被設(shè)置成白色，字體設(shè)置為“楷體”，字體大小設(shè)置為20。每單擊一次窗體，將在窗體的不同位置上以不同顏色顯示文字信息“歡迎使用Visual Basic 6.0”，如圖3-1所示。 【

2、任務(wù)分析】在Visual Basic中，每種顏色都是由一個(gè)Long整數(shù)表示。在本任務(wù)中，利用隨機(jī)函數(shù)產(chǎn)生0至255之間的三個(gè)整數(shù)并為RGB函數(shù)賦值，實(shí)現(xiàn)文字顏色隨機(jī)變換的結(jié)果。對文字顯示位置的控制，可以通過窗體的CurrentX、CurrentY屬性實(shí)現(xiàn)。215第3章目錄任務(wù)1 在窗體指定位置顯示文本【知識鏈接】1. 窗體的常用屬性（1）Caption。（2）BackColor。（3）ForeColor。（4）FontName。（5）FontSize。（6）CurrentX、CurrentY。2. 窗體的常用方法（1）Print。（2）Cls。3. 窗體的常用事件（1）Click。（2）Loa

3、d。215第3章目錄任務(wù)2 保持窗體上的標(biāo)簽文本居中【知識點(diǎn)】窗體的ScaleHeight和ScaleWidth屬性窗體的Resize事件窗體的UnLoad事件【任務(wù)描述】本任務(wù)利用響應(yīng)窗體Resize事件來改變標(biāo)簽控件Label的頂點(diǎn)坐標(biāo)和寬度的值，從而實(shí)現(xiàn)當(dāng)改變窗體大小時(shí)，標(biāo)簽文本始終出現(xiàn)在窗體中央。當(dāng)退出程序時(shí)，通過響應(yīng)窗體UnLoad事件，提示確認(rèn)關(guān)閉操作，如圖3-2所示。 【任務(wù)分析】要想實(shí)現(xiàn)標(biāo)簽文本在窗體中一直居中，首先要保證文本在標(biāo)簽控件中保持居中，還要在窗體大小發(fā)生改變時(shí)使使標(biāo)簽控件的頂點(diǎn)一直處于窗體最左側(cè)1/2處，寬度一直與窗體寬度保持一致。215第3章目錄任務(wù)2 保持窗體上

4、的標(biāo)簽文本居中【知識鏈接】2. 窗體的Resize和Unload事件（1）Resize：當(dāng)窗體第一次顯示或窗體的外觀尺寸被改變時(shí)發(fā)生。（2）Unload：當(dāng)窗體從內(nèi)存中卸載時(shí)發(fā)生。當(dāng)窗體被加載時(shí)，它的所有控件的內(nèi)容均被重新初始化。當(dāng)使用在控制菜單中的關(guān)閉命令、關(guān)閉按鈕或Unload語句關(guān)閉該窗體時(shí)，此事件被觸發(fā)。語法如下：Private Sub Form_Unload(Cancel As Integer)其中參數(shù)Cancel為整數(shù)，用來確定窗體是否卸載。如果Cancel為0，則窗體被卸載。將Cancel設(shè)置為任何一個(gè)非零的值可防止窗體被刪除。通過將參數(shù)Cancel設(shè)置為任何非零的值可防止窗體被

5、刪除，但不能阻止其他事件，諸如從Windows操作環(huán)境中退出等?？梢杂肣ueryUnload事件阻止從Windows中的退出。在窗體被卸載時(shí)，可以用Unload事件過程來確認(rèn)窗體是否應(yīng)被卸載或用來指定想要發(fā)生的操作。在本任務(wù)中，利用Unload事件這一特性來實(shí)現(xiàn)關(guān)閉程序時(shí)提示是否關(guān)閉。215第3章目錄任務(wù)3 制作鍵盤按鍵測試程序【知識點(diǎn)】窗體的KeyPreview屬性窗體的KeyDown、KeyUp和KeyPress事件【任務(wù)描述】在本任務(wù)中創(chuàng)建了一個(gè)鍵盤程序測試。當(dāng)程序運(yùn)行后，當(dāng)在鍵盤上按下任一個(gè)鍵時(shí)，在窗體上顯示出該鍵的代碼和相應(yīng)的字符并顯示Shift、Ctrl和Alt鍵的狀態(tài)，當(dāng)按Esc

6、鍵時(shí)退出程序，運(yùn)行情況如圖3-3所示。 【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，需要使用窗體的KeyDown、KeyUp和KeyPress這三個(gè)鍵盤事件，利用每個(gè)事件響應(yīng)不同的按鍵，以獲得所有鍵盤按鍵的事件響應(yīng)，并通過標(biāo)簽控件把響應(yīng)的結(jié)果顯示出來。215第3章目錄任務(wù)3 制作鍵盤按鍵測試程序【知識鏈接】1. 窗體的KeyPreview屬性窗體名.KeyPreview = boolean2. 窗體的KeyPress事件Private Sub Form_KeyPress(keyascii As Integer)3. 窗體的KeyUp和KeyDown事件Private Sub object_KeyDow

7、n(keycode As Integer, shift As Integer)Private Sub object_KeyUp(keycode As Integer, shift As Integer)215第3章目錄任務(wù)4 制作簡單繪圖程序【知識點(diǎn)】窗體的MouseDown、MouseUp和MouseMove事件窗體的Line方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)簡單的繪畫程序。當(dāng)程序運(yùn)行時(shí)，可通過拖動鼠標(biāo)左鍵連續(xù)畫線，釋放鼠標(biāo)左鍵時(shí)停止畫線，如圖3-21所示；若單擊鼠標(biāo)右鍵，則畫一條從上次畫圖位置出發(fā)的線段，如圖3-22所示。 【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，首先要定義保存鼠標(biāo)在窗體中坐標(biāo)

8、的全局變量，有了全局變量，程序無論響應(yīng)那一個(gè)鼠標(biāo)事件，均可得到當(dāng)前鼠標(biāo)的坐標(biāo)。用窗體的鼠標(biāo)事件MouseMove和MouseDown完成連續(xù)畫線，MouseUp事件結(jié)束畫線。用窗體的鼠標(biāo)事件MouseDown和MouseMove實(shí)現(xiàn)從上次畫圖位置到當(dāng)前畫直線。215第3章目錄任務(wù)4 制作簡單繪圖程序【知識鏈接】1. 窗體的MouseDown、MouseUp和MouseMovePrivate Sub Form_MouseDown(button As Integer, shift As Integer, x As Single, y As Single)Private Sub Form_Mouse

9、Up(button As Integer, shift As Integer, x As Single, y As Single)Private Sub Form MouseMove(button As Integer, shift As Integer, x As Single, y As Single)2. 窗體的Line方法窗體名.Line(x1, y1) - (x2, y2), 顏色,BF其中參數(shù)(x1,y1)是可選的，其數(shù)值類型為Single，指定直線或矩形的起點(diǎn)坐標(biāo)。如果省略，線起始于由CurrentX和CurrentY指示的位置。參數(shù)(x2, y2)是必需的，其數(shù)值類型為Sing

10、le，指定直線或矩形的終點(diǎn)坐標(biāo)。參數(shù)color可選的，其數(shù)值類型為Long，畫線時(shí)用的RGB顏色。如果省略該參數(shù)，則使用ForeColor屬性值。可用RGB函數(shù)或QBColor函數(shù)指定顏色。B是可選的。如果包括，則利用對角坐標(biāo)畫出矩形。F是可選的。如果使用了B選項(xiàng)，則F選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F只用B，則矩形用當(dāng)前的FillColor和FillStyle填充。FillStyle的缺省值為transparent。215第3章目錄任務(wù)5 創(chuàng)建輸入框和消息框【知識點(diǎn)】用InputBox函數(shù)創(chuàng)建輸入框用MsgBox函數(shù)創(chuàng)建消息框窗體的Activate事件【任務(wù)描述】

11、在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)首先彈出一個(gè)輸入框提示輸入用戶名，如圖3-7所示；輸入用戶名并單擊“確定”按鈕后，在窗體上顯示用戶顯示歡迎信息，如圖3-8所示；當(dāng)關(guān)閉窗口時(shí)將彈出一個(gè)對話框，單擊“確定”按鈕退出程序，單擊“取消”按鈕則返回窗口，如圖3-9所示。 【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，需要在程序窗體被激活以前通過Load事件過程調(diào)用InputBox函數(shù)來獲取客戶輸入的信息；得到客戶信息后，可使用窗體的Activate事件在窗體顯示時(shí)輸出得到的客戶姓名。215第3章目錄任務(wù)5 創(chuàng)建輸入框和消息框【知識鏈接】1. 窗體的Activate事件2. 用戶對話框3. MsgBox函數(shù)

12、4. InputBox函數(shù)215第3章目錄任務(wù)6 創(chuàng)建標(biāo)準(zhǔn)對話框【知識點(diǎn)】在窗體上添加CommandDialog控件CommandDialog控件的常用屬性CommandDialog控件的常用方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)，通過單擊“改變圖標(biāo)”命令按鈕，彈出“打開”對話框，選擇圖標(biāo)文件，改變窗體標(biāo)題欄上的圖標(biāo)并在窗體上顯示圖標(biāo)文件的路徑，如圖3-10所示；單擊“設(shè)置顏色”命令按鈕，彈出“顏色”對話框，可以改變窗體上文本的顏色，如圖3-11所示；單擊“設(shè)置字體”命令按鈕，彈出“字體”對話框，可用于設(shè)置窗體上文本的字體、樣式、大小以及文本的顏色，如圖3-12所示。215第

13、3章目錄任務(wù)6 創(chuàng)建標(biāo)準(zhǔn)對話框【知識鏈接】1. 通用對話框控件（CommonDialog）通用對話框控件不是標(biāo)準(zhǔn)控件工具箱中，需要添加“Microsoft Common Dialog Control 6.0”部件。調(diào)用CommonDialog控件的方法：ShowOpen：顯示“打開”對話框。ShowSave：顯示“另存為”對話框。ShowColor：顯示“顏色”對話框。ShowFont：顯示“字體”對話框。ShowPrinter：顯示“打印”對話框。ShowHelp方法：顯示“幫助”對話框。（1）顯示“打開”對話框。（2）顯示“顏色”對話框。（3）顯示“字體”對話框。2. 錯(cuò)誤處理（1）On Error語句用于設(shè)置錯(cuò)誤陷阱。（2）Err對象是一個(gè)包括關(guān)于運(yùn)行錯(cuò)誤信息的對象。215第3章目錄任務(wù)7 創(chuàng)建多文檔界面應(yīng)用程序【知識點(diǎn)】創(chuàng)建MDI窗體設(shè)置MDI子窗體創(chuàng)建快速顯示窗體設(shè)置應(yīng)用程序啟動對象【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)啟動該應(yīng)用程序時(shí)首先出現(xiàn)一個(gè)快速顯示