第3章應(yīng)用程序窗體設(shè)計(jì)

第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)對(duì)話框任務(wù)7創(chuàng)建多文檔界面應(yīng)用程序1／15任務(wù)1在窗體指定位置顯示文本【知識(shí)點(diǎn)】窗體的常用屬性窗體的常用方法窗體的Load事件和Click事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，在程序執(zhí)行時(shí)窗體背景色被設(shè)置成白色，字體設(shè)置為“楷體”，字體大小設(shè)置為20。每單擊一次窗體，將在窗體的不同位置上以不同顏色顯示文字信息“歡迎使用VisualBasic6.0”，如圖3-1所示。

【任務(wù)分析】在VisualBasic中，每種顏色都是由一個(gè)Long整數(shù)表示。在本任務(wù)中，利用隨機(jī)函數(shù)產(chǎn)生0至255之間的三個(gè)整數(shù)并為RGB函數(shù)賦值，實(shí)現(xiàn)文字顏色隨機(jī)變換的結(jié)果。對(duì)文字顯示位置的控制，可以通過窗體的CurrentX、CurrentY屬性實(shí)現(xiàn)。2／15任務(wù)1在窗體指定位置顯示文本【知識(shí)鏈接】1.窗體的常用屬性（1）Caption。（2）BackColor。（3）ForeColor。（4）FontName。（5）FontSize。（6）CurrentX、CurrentY。2.窗體的常用方法（1）Print。（2）Cls。3.窗體的常用事件（1）Click。（2）Load。2／15任務(wù)2保持窗體上的標(biāo)簽文本居中【知識(shí)點(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處，寬度一直與窗體寬度保持一致。2／15任務(wù)2保持窗體上的標(biāo)簽文本居中【知識(shí)鏈接】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ā)。語法如下： PrivateSubForm_Unload(CancelAsInteger)其中參數(shù)Cancel為整數(shù)，用來確定窗體是否卸載。如果Cancel為0，則窗體被卸載。將Cancel設(shè)置為任何一個(gè)非零的值可防止窗體被刪除。通過將參數(shù)Cancel設(shè)置為任何非零的值可防止窗體被刪除，但不能阻止其他事件，諸如從Windows操作環(huán)境中退出等?？梢杂肣ueryUnload事件阻止從Windows中的退出。在窗體被卸載時(shí)，可以用Unload事件過程來確認(rèn)窗體是否應(yīng)被卸載或用來指定想要發(fā)生的操作。在本任務(wù)中，利用Unload事件這一特性來實(shí)現(xiàn)關(guān)閉程序時(shí)提示是否關(guān)閉。2／15任務(wù)3制作鍵盤按鍵測試程序【知識(shí)點(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鍵時(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é)果顯示出來。2／15任務(wù)3制作鍵盤按鍵測試程序【知識(shí)鏈接】1.窗體的KeyPreview屬性窗體名.KeyPreview=boolean2.窗體的KeyPress事件PrivateSubForm_KeyPress(keyasciiAsInteger)3.窗體的KeyUp和KeyDown事件PrivateSubobject_KeyDown(keycodeAsInteger,shiftAsInteger)PrivateSubobject_KeyUp(keycodeAsInteger,shiftAsInteger)2／15任務(wù)4制作簡單繪圖程序【知識(shí)點(diǎn)】窗體的MouseDown、MouseUp和MouseMove事件窗體的Line方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)簡單的繪畫程序。當(dāng)程序運(yùn)行時(shí)，可通過拖動(dòng)鼠標(biāo)左鍵連續(xù)畫線，釋放鼠標(biāo)左鍵時(shí)停止畫線，如圖3-21所示；若單擊鼠標(biāo)右鍵，則畫一條從上次畫圖位置出發(fā)的線段，如圖3-22所示。

【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，首先要定義保存鼠標(biāo)在窗體中坐標(biāo)的全局變量，有了全局變量，程序無論響應(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)前畫直線。2／15任務(wù)4制作簡單繪圖程序【知識(shí)鏈接】1.窗體的MouseDown、MouseUp和MouseMovePrivateSubForm_MouseDown(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubForm_MouseUp(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)PrivateSubFormMouseMove(buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle)2.窗體的Line方法 窗體名.Line(x1,y1)-(x2,y2),[顏色],[B][F]其中參數(shù)(x1,y1)是可選的，其數(shù)值類型為Single，指定直線或矩形的起點(diǎn)坐標(biāo)。如果省略，線起始于由CurrentX和CurrentY指示的位置。參數(shù)(x2,y2)是必需的，其數(shù)值類型為Single，指定直線或矩形的終點(diǎn)坐標(biāo)。參數(shù)color可選的，其數(shù)值類型為Long，畫線時(shí)用的RGB顏色。如果省略該參數(shù)，則使用ForeColor屬性值?？捎肦GB函數(shù)或QBColor函數(shù)指定顏色。B是可選的。如果包括，則利用對(duì)角坐標(biāo)畫出矩形。F是可選的。如果使用了B選項(xiàng)，則F選項(xiàng)規(guī)定矩形以矩形邊框的顏色填充。不能不用B而用F。如果不用F只用B，則矩形用當(dāng)前的FillColor和FillStyle填充。FillStyle的缺省值為transparent。2／15任務(wù)5創(chuàng)建輸入框和消息框【知識(shí)點(diǎn)】用InputBox函數(shù)創(chuàng)建輸入框用MsgBox函數(shù)創(chuàng)建消息框窗體的Activate事件【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)首先彈出一個(gè)輸入框提示輸入用戶名，如圖3-7所示；輸入用戶名并單擊“確定”按鈕后，在窗體上顯示用戶顯示歡迎信息，如圖3-8所示；當(dāng)關(guān)閉窗口時(shí)將彈出一個(gè)對(duì)話框，單擊“確定”按鈕退出程序，單擊“取消”按鈕則返回窗口，如圖3-9所示。

【任務(wù)分析】要想實(shí)現(xiàn)這一任務(wù)的目標(biāo)，需要在程序窗體被激活以前通過Load事件過程調(diào)用InputBox函數(shù)來獲取客戶輸入的信息；得到客戶信息后，可使用窗體的Activate事件在窗體顯示時(shí)輸出得到的客戶姓名。2／15任務(wù)5創(chuàng)建輸入框和消息框【知識(shí)鏈接】1.窗體的Activate事件2.用戶對(duì)話框3.MsgBox函數(shù)4.InputBox函數(shù)2／15任務(wù)6創(chuàng)建標(biāo)準(zhǔn)對(duì)話框【知識(shí)點(diǎn)】在窗體上添加CommandDialog控件CommandDialog控件的常用屬性CommandDialog控件的常用方法【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)運(yùn)行程序時(shí)，通過單擊“改變圖標(biāo)”命令按鈕，彈出“打開”對(duì)話框，選擇圖標(biāo)文件，改變窗體標(biāo)題欄上的圖標(biāo)并在窗體上顯示圖標(biāo)文件的路徑，如圖3-10所示；單擊“設(shè)置顏色”命令按鈕，彈出“顏色”對(duì)話框，可以改變窗體上文本的顏色，如圖3-11所示；單擊“設(shè)置字體”命令按鈕，彈出“字體”對(duì)話框，可用于設(shè)置窗體上文本的字體、樣式、大小以及文本的顏色，如圖3-12所示。2／15任務(wù)6創(chuàng)建標(biāo)準(zhǔn)對(duì)話框【知識(shí)鏈接】1.通用對(duì)話框控件（CommonDialog）通用對(duì)話框控件不是標(biāo)準(zhǔn)控件工具箱中，需要添加“MicrosoftCommonDialogControl6.0”部件。調(diào)用CommonDialog控件的方法：ShowOpen：顯示“打開”對(duì)話框。ShowSave：顯示“另存為”對(duì)話框。ShowColor：顯示“顏色”對(duì)話框。ShowFont：顯示“字體”對(duì)話框。ShowPrinter：顯示“打印”對(duì)話框。ShowHelp方法：顯示“幫助”對(duì)話框。（1）顯示“打開”對(duì)話框。（2）顯示“顏色”對(duì)話框。（3）顯示“字體”對(duì)話框。2.錯(cuò)誤處理（1）OnError語句用于設(shè)置錯(cuò)誤陷阱。（2）Err對(duì)象是一個(gè)包括關(guān)于運(yùn)行錯(cuò)誤信息的對(duì)象。2／15任務(wù)7創(chuàng)建多文檔界面應(yīng)用程序【知識(shí)點(diǎn)】創(chuàng)建MDI窗體設(shè)置MDI子窗體創(chuàng)建快速顯示窗體設(shè)置應(yīng)用程序啟動(dòng)對(duì)象【任務(wù)描述】在本任務(wù)中創(chuàng)建一個(gè)應(yīng)用程序，當(dāng)啟動(dòng)該應(yīng)用程序時(shí)首先出現(xiàn)一