【正文】 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 第 4章 窗體及常用控件 窗體和控件是 VB作為可視化編程的重要工具，在這一章中介紹窗體及常用控件，如：標(biāo)簽、文本框、列表框、組合框、命令按鈕、單選按鈕、檢查框、框架、滾動條、時(shí)鐘等基本控件的使用。本章的內(nèi)容如下： 窗體設(shè)計(jì) 基本控件 使用 ActiveX 控件和可插入對象 控件應(yīng)用舉例 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 窗體設(shè)計(jì) 窗體對象是開發(fā) VB程序的一個(gè)基本平臺，絕大多數(shù)控件都要添加在窗體上。在本節(jié)中集中介紹窗體的屬性、方法、事件以及窗體的工作過程。 一、窗體的屬性、事件和方法 窗體的屬性 設(shè)置窗體的屬性有兩種方法： ☆ 在程序設(shè)計(jì)時(shí)手工在 “ 屬性 ” 窗口中設(shè)置； ☆ 在程序代碼中設(shè)置，在程序運(yùn)行時(shí)實(shí)現(xiàn)。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 窗體的屬性不僅影響窗體的外觀，還控制著窗體的位置、大小和行為等。窗體的屬性很多，常用的窗體屬性有： Caption屬性 該屬性決定窗體標(biāo)題欄中顯示的文本。 MaxButton屬性 決定窗體是否能最大化。它是一個(gè)邏輯值。當(dāng)屬性為 True時(shí)，窗體右上角有最大化按鈕。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) MinButton屬性 決定窗體是否能最小化。它是一個(gè)邏輯值。當(dāng)屬性為 True時(shí)，窗體右上角有最小化按鈕。 ControlBox屬性 決定窗體標(biāo)題攔中是否有控制菜單框，它也是一個(gè)邏輯值。當(dāng)屬性為 True時(shí)，窗體左上角有控制菜單框。 Moveable屬性 Borderstyle邊框風(fēng)格屬性 該屬性決定窗體是否可移動，它是一個(gè)邏輯值，當(dāng)屬性為 True時(shí)，表示窗體可以移動。 該屬性用來設(shè)置窗體的大小及邊框的樣式，有 4種情況： 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 0 — None:窗口無邊框 2 — Fixed Single:窗口為單線邊框，大小不能改變 3 — Sizable:窗口為雙線邊框，可以改變窗口大小 4 — Fixed Double:窗口有雙線框架，不能改變大小 Icon屬性 設(shè)置窗體最小化時(shí)顯示的圖標(biāo)。 VB中的圖標(biāo)文件存放在 Graphics\Icons下的子目錄中。 MDIChild屬性 該屬性用來設(shè)置 MDI子窗體，它是一個(gè)邏輯值，當(dāng)屬性為 True 時(shí)，表示該窗體是 MDI子窗體。 WindowState屬性 該屬性決定了窗體執(zhí)行時(shí)的顯示狀態(tài)，有 3個(gè)取值： 0 — 正常窗口狀態(tài)，有窗口邊界。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) ShowInTaskerbar屬性 AutoRedraw屬性 1 — 最小化狀態(tài)，以圖標(biāo)方式運(yùn)行。 2 — 最大化狀態(tài)，無邊框，充滿整個(gè)屏幕。 該屬性決定一個(gè)窗體對象是否出現(xiàn)在 Windows任務(wù)欄中，它是一個(gè)邏輯值，為 True時(shí)表示窗體在任務(wù)欄中。該屬性值在運(yùn)行時(shí)為只讀狀態(tài)。 該屬性控制窗體圖像的重建 。 它是一個(gè)邏輯值 ， 當(dāng)屬性為 True時(shí) ， 在其他窗口覆蓋某窗體后 ， 又返回該窗體時(shí) ，VB將自動刷新或者重畫該窗體的所有圖形 ， 否則必須調(diào)用一個(gè)事件過程來執(zhí)行這項(xiàng)任務(wù) 。 也就是說 ， 只有當(dāng)AutoRedraw設(shè)置為 True時(shí)才能重畫如 Circle、 Cls、 Point和 Print等方法的輸出 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 窗體的事件 窗體最常用的事件有 Load、 Activate、 Deactivate、 Click和DblClick 。 這里只介紹前 3個(gè)事件 。 窗體的 Click和 DblClick事件與控件的相應(yīng)事件相同 ， 后面再作介紹 。 Load事件 當(dāng)一個(gè)窗體被裝入工作區(qū)時(shí)觸發(fā)的事件 。 該事件通常用來在啟動應(yīng)用程序時(shí)對屬性和變量進(jìn)行初始化 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) Activate事件 當(dāng)一個(gè)窗體成為活動窗口時(shí)所觸發(fā)的事件 。 用戶單擊某個(gè)窗體 ， 或在程序代碼中用 Show方法顯示窗體 ， 或用SetFocus把焦點(diǎn)設(shè)置在某窗體上都使該窗體成為活動窗口 ，此時(shí)觸發(fā) Activate事件 。 該事件對初始化窗體行為十分方便 。 Deactivate事件 當(dāng)另一個(gè)窗體或應(yīng)用程序被激活時(shí) ， 該窗體就會產(chǎn)生一個(gè) Deactivate的事件 。 該事件對結(jié)束窗體行為十分方便 ，例如 ， 在 Deactivate事件中 ， 可以把對該窗體操作所做的更改保存到文件或數(shù)據(jù)庫中 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 窗體的方法 窗體的方法有多種，他們可以調(diào)用文本和圖形，在窗體表面上輸出、寫或畫，這樣的方法有 Print、Line、 Circle、 Cls等。對這類方法我們不過多介紹，我們主要介紹一些對窗體的行為產(chǎn)生影響的方法。 Show方法 Show方法可以使一個(gè)窗體可見 ， 使用格式如下： 對象 .Show 其中 ， 對象是窗體的名稱 。 調(diào)用 Show方法與設(shè)置窗體 Visible屬性為 True具有相同效果 。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 調(diào)用窗體的 Hide方法 ， 能夠隱藏一個(gè)窗體 。 當(dāng)一個(gè)窗體調(diào)用Hide方法后 ， 該窗體就從屏幕上被刪除 ， 并且它的 Visible屬性被設(shè)置為 False。 調(diào)用的格式如下： 對象 .Hide Hide方法 Refresh方法 該方法用于對窗體刷新 。 當(dāng)用戶對窗體操作后 ， 調(diào)用 Refresh方法 ， 可以刷新窗體 ， 使窗體顯示最新的內(nèi)容 。 調(diào)用 Refresh方法的格式如下： 對象 .Refresh 例 li412點(diǎn)擊此處進(jìn)入 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 二、向窗體上添加控件 生成控件及調(diào)節(jié)控件大小和位置： 單擊工具箱中按鈕 在窗體上拖動 利用調(diào)節(jié)柄改變大小 在控件中央拖動鼠標(biāo) 使用網(wǎng)格 工具菜單 選項(xiàng) 通用 顯示網(wǎng)格 多個(gè)控件的生成及操作 雙擊某個(gè)工具按鈕 生成多個(gè)相同控件 ① 多個(gè)控件的選中 ②控件的迭放層次 ③多個(gè)控件的編輯 ④窗體編輯器的使用 視圖 工具欄 窗體編輯器 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 控件數(shù)組 ☆ 控件數(shù)組的定義 控件數(shù)組是由一組相同類型的控件組成，它們公用一個(gè)控件名，具有相同的屬性。當(dāng)建立控件數(shù)組時(shí)，系統(tǒng)給每個(gè)元素賦一個(gè)唯一的索引號（ Index），通過屬性窗口的 Index屬性，可以知道該控件的下標(biāo)是多少，控件數(shù)組的第一個(gè)下標(biāo)是 0。 控件數(shù)組適合若干個(gè)控件執(zhí)行的操作相似的場合，控件數(shù)組共享同樣的事件過程。 ☆ 控件數(shù)組的建立 ① 在設(shè)計(jì)時(shí)建立，步驟為： ? 在窗體上畫出某個(gè)控件，可以進(jìn)行控件名的屬性設(shè)置，這是建立的第一個(gè)元素； ? 選中該控件，進(jìn)行 copy和 paste操作，系統(tǒng)會提示： 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) “已有了命名的控件，是否要建立控件數(shù)組 ” 單擊 Yes按鈕后，就建立了一個(gè)控件數(shù)組元素，進(jìn)行若干次 Paste操作，就建立了所需要的控件數(shù)組； ? 進(jìn)行事件過程的編程。 ② 運(yùn)行時(shí)添加控件數(shù)組，步驟為： ? 在窗體上畫出某控件，設(shè)置該空間的 Index屬性值為 0，表示該控件為數(shù)組；這是建立的第一個(gè)元素； ? 在編程時(shí)通過 Load方法添加其余的若干個(gè)元素，也可以通過Unload方法刪除某個(gè)元素； ? 每個(gè)新添加的控件數(shù)組通過 Left和 Top屬性，確定其在窗體中的位置，并將 Visible屬性設(shè)置為 True。 例 li40: 建立含有 4個(gè)命令按鈕的控件數(shù)組，當(dāng)單擊某個(gè)按鈕時(shí)，分別顯示不同的圖形或結(jié)束。 例 li401: 建立一個(gè)類似國際象棋的棋盤。要求： 設(shè)計(jì)時(shí)在窗體上放一個(gè) Label控件，其 Index屬性為 0， BackColor屬性為黑色。程序運(yùn)行時(shí)產(chǎn)生 64個(gè) Label控件數(shù)組元素， BackColor黑白交替。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 三、設(shè)置啟動窗體 設(shè)置啟動窗體 ? 從“工程”菜單中選取“工程屬性”命令，打開“工 程屬性”對話框 ? 在顯示的“工程屬性”對話框中，選取“通用”選 項(xiàng)卡 ? 在“啟動對象”列表框中，選取要作為新啟動窗 體的窗體 不使用啟動窗體開始程序的運(yùn)行 . 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 創(chuàng)建狀態(tài)（窗體的創(chuàng)建） Initialize事件是窗體創(chuàng)建狀態(tài)開始的標(biāo)志。因而，放在Form_ Initialize( )事件過程中的代碼，就是窗體創(chuàng)建時(shí)最先執(zhí)行的代碼。處于這種狀態(tài)時(shí)，窗體是作為一個(gè)對象而存在，但還沒有窗口，而且它的控件也不存在，也就是說在這個(gè)狀態(tài)下，只有窗體的代碼部分在內(nèi)存中，而窗體的可視部分還沒有調(diào)入。雖然該狀態(tài)可能很短暫，但任何窗體都要經(jīng)過這個(gè)狀態(tài)。 四、窗體的生命周期 窗體在整個(gè)存活期中有四種狀態(tài) : 創(chuàng)建狀態(tài) 加載狀態(tài) 可見狀態(tài) 卸載狀態(tài) 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 加載狀態(tài)（加載窗體） ▲ Load事件是加載狀態(tài)的開始 ▲ 加載窗體則 Form_Load（）事件過程中的代碼開始執(zhí)行 ▲窗體如果滿足以下任一條件即可自動加載 ①該窗體在“工程屬性”對話框的“通用”選項(xiàng)卡中被指定為啟動對象 ②窗體中首先被調(diào)用的屬性或方法是 Show方法 ，例如： ③ 首先被調(diào)用的屬性或方法是窗體內(nèi)置的成員 .例如：調(diào)用了窗體的 Move方法或使用了窗體中某個(gè)控件的屬性。 ④用 Load語句加載窗體 如： Load Form2 在上面所列的①、②兩種情況下，一旦 Form_Load( )事件執(zhí)行完畢，窗體就直接可見。而對于后面的兩種情況，窗體將保持加載狀態(tài)，但不顯示。 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 返 回 可見狀態(tài) 在加載窗體后 ， 使用窗體的 Show方法 ， 可以使窗體進(jìn)入可見狀態(tài) 。 一旦窗體可見 ， 用戶就能和它交互作用 。 （ 1） 顯示窗體： 要使一個(gè)窗體可見 ， 應(yīng)調(diào)用 Show方法 。 （ 2） 隱藏一個(gè)窗體 ， 應(yīng)調(diào)用窗體的 Hide方法 。 當(dāng)一個(gè)窗體調(diào)用 Hide方法后 ， 該窗體就從屏幕上被刪除 ， 并且它的 Visible屬性被設(shè)置為 False， 窗體返回加載狀態(tài) 。 用戶將無法訪問隱藏窗體上的控件 ， 但是對于運(yùn)行中的 VB應(yīng)用程序 ， 隱藏窗體的控件仍然是可用的 。 在程序中 ， 要判斷一個(gè)窗體是否處于可見狀態(tài) ， 可以使用它的 Visible屬性 ， 例如： If Then ˊ如果處于可見狀態(tài)則隱藏之 Else ˊ如果窗體被隱藏則顯示之 End if 計(jì)算機(jī)軟件技術(shù)基礎(chǔ) Visual Basic 程序設(shè)計(jì) 卸載狀態(tài)（窗體的卸載） 窗體在卸載時(shí)可以是隱藏的 ， 也可以是可見的 。 若沒隱藏 ，則它將保持可見直到卸載完畢 ， 內(nèi)存和資源完全收回 。 ▲ QueryUnload在任一窗體卸載前在所有窗體中發(fā)生 ， 提供了停止窗體卸載的機(jī)會 。 如果某些數(shù)據(jù)希望保存 ， 則此時(shí)將提示保存或忽略所做的更改 。 ▲ Unload在每個(gè)窗體卸載時(shí)發(fā)生。 結(jié)束應(yīng)用程序 Unlo