【正文】 按照標(biāo)準(zhǔn)界面菜單的功能進(jìn)行設(shè)計(jì)。 MDI 應(yīng)用程序中，父窗體可以有自己的菜單，子窗體也可以有屬于自己的菜單。這些菜單的創(chuàng)建都可以利用 Menu Editor 來(lái)進(jìn)行創(chuàng)建。 然而，當(dāng)一個(gè) MDI 應(yīng)用程序的父窗體和子窗體都擁有各自的菜單時(shí)，將會(huì)出現(xiàn)菜單替代的問(wèn)題，也就是說(shuō)，當(dāng)擁有自身菜單的子菜單為活動(dòng)窗體時(shí)，該子窗體的菜單將不顯示在子窗體的本身，而是取代了父窗體原來(lái)的菜單，出現(xiàn)在父窗體菜單原來(lái)的位置。這樣，就不能在子窗體運(yùn)行時(shí)使 用父窗體的菜單功能了。當(dāng)該子窗體退出或是不再處于活動(dòng)狀態(tài)時(shí)，MDI 應(yīng)用程序的父窗體將不會(huì)自動(dòng)重新顯示父窗體菜單。 解決這一問(wèn)題的兩個(gè)方案：? 將所有不要的父窗體菜單功能都復(fù)制到每個(gè)子窗體菜單中去。這種方法雖然可行，然而，如果帶有菜單的子窗體數(shù)量比較多的話，程序?qū)?huì)顯得臃腫而且難以維護(hù)。? 在父窗體的菜單中包含所有子菜單所必需的菜單功能。可以在運(yùn)行時(shí)先讓這些子菜單功能不可見(jiàn)，然后當(dāng)運(yùn)行子菜單時(shí)，可以在子菜單對(duì)應(yīng)的 GetFocus 和 LostFocus 事件中控制這些子菜單的每一項(xiàng)，可以使用 MDI 父窗體的 ActiveForm 屬性。該屬性用來(lái)獲取 MDI 應(yīng)用程序中當(dāng)前的活動(dòng)子窗體，從而對(duì)其進(jìn)行窗體的任意操作，而不需要該窗體的名稱。以上兩種方案中，第二種方案比較好，因?yàn)閷⑦@些菜單合并成一個(gè)菜單進(jìn)行管理，在維護(hù)上比較方便，更便于操作。最好的做法是根本不需要在子窗體中放置菜單，可以用按鈕或其他方式（例如，右鍵的彈出菜單就可以實(shí)現(xiàn)）來(lái)為子菜單提供具有相同功能的解決方案。程序中包括兩個(gè) ImageList 控件它們分別用來(lái)為工具欄和 TreeView 控件提供圖片。另外，應(yīng)用程序還包含了一個(gè) Timer 控件。通過(guò) Timer 控件可以對(duì)狀態(tài)欄進(jìn)行定時(shí)更新。2. ImageList 控件和 Timer 控件ImageList 控件和 Timer 控件在應(yīng)用程序中有著比較重要的用途。在本系統(tǒng)中，只為工具欄提供了一個(gè) ImageList 關(guān)聯(lián)。如果想要更復(fù)雜的工具欄效果，可以將工具欄設(shè)置為與 3 個(gè) ImageList 控件相關(guān)聯(lián)。這樣就可以分別對(duì)工具欄按鈕的正常狀態(tài)、不被激活的狀態(tài)和復(fù)選樣式或下拉樣式的按鈕在激活的狀態(tài)分別提供圖片。3. 工具欄設(shè)計(jì)工具欄提供了便捷的操作方式來(lái)完成應(yīng)用程序常用菜單的操作。在現(xiàn)在的Windows 應(yīng)用程序中，工具欄已經(jīng)成為非常重要的一個(gè)組成部分。在本系統(tǒng)中，工具欄上放置了一些用來(lái)操縱界面外觀的常用按鈕。其他應(yīng)用程序功能菜單并沒(méi)有放置到工具欄中。工具欄的各個(gè)按鈕還需要設(shè)置一些其他的一些屬性，例如，為每個(gè)工具欄按鈕的 ToolTipText 設(shè)置相應(yīng)的文本；為每個(gè)工具欄提供相關(guān)聯(lián)的圖片索引。設(shè)置這些屬性需要通過(guò)工具欄的屬性頁(yè)來(lái)進(jìn)行。將所有的非 tbrSeperate 風(fēng)格的按鈕都按順序設(shè)置好對(duì)應(yīng)的圖像索引，并為每個(gè)按鈕添加上提示文本。這樣就完成了對(duì)工具欄的設(shè)置。 4. TreeView 控件和狀態(tài)欄控件現(xiàn)在的應(yīng)用程序界面常利用目錄樹來(lái)作為應(yīng)用程序的導(dǎo)航欄；也可以用目錄樹來(lái)完成對(duì)應(yīng)的一些菜單的操作功能。在本系統(tǒng)中提供了使用目錄樹替代某些菜單操作的功能，用戶可以根據(jù)習(xí)慣選擇是利用菜單還是目錄樹來(lái)完成自己想要的操作。狀態(tài)欄通常用來(lái)顯示當(dāng)前界面的狀態(tài)信息。其中，樹形控件的外觀以及與ImageList 控件的關(guān)聯(lián)都將在代碼中完成，這些代碼分別在 MDI 窗體的 Load事件和 Initialize 事件中。為狀態(tài)欄控件添加 4 個(gè)控制面板，分別用作 4 種用途：放置當(dāng)前子窗體的窗口信息、備用面板、顯示當(dāng)前日期的面板、顯示當(dāng)前時(shí)間的面板。這些屬性需要在狀態(tài)欄的屬性頁(yè)中完成。最后，在設(shè)計(jì) MDI 窗體時(shí)，要為放置 TreeView 控件增加一個(gè)容器，既PictureBox 控件，設(shè)置該控件的名稱為 picTreeView。在 MDI 窗體上，只能放置 PictureBox 、ToolBar 和 StatusBar 等控件。因此可以利用PictureBox 控件作為容器來(lái)放置 TreeView 控件。在該容器上在放置一個(gè)Lable 控件，用來(lái)為該目錄樹顯示一個(gè)名稱；再在 PictureBox 控件的右上角放置一個(gè)按鈕，名稱為 cmdCancelTree，用來(lái)提供關(guān)閉目錄樹的操作。要想實(shí)現(xiàn)關(guān)閉目錄樹的功能，可以通過(guò)對(duì) PictureBox 控件的 Visibal 屬性進(jìn)行操作來(lái)實(shí)現(xiàn)。為了界面的整潔，設(shè)置 TreeView 控件和 PictureBox 控件的寬度基本上相同，然后調(diào)整狀態(tài)欄控件中的第一個(gè)面板，使其寬度與 PictureBox 控件寬度一致。. 應(yīng)用程序界面的代碼實(shí)現(xiàn) 在窗體的公共聲名部分，定義了幾個(gè)字符串常量，這些常量用來(lái)記錄主要菜單中的子菜單標(biāo)題字符串；同時(shí)定義了 3 個(gè)集合對(duì)象，分別用來(lái)存放菜單標(biāo)題字符串，給出了對(duì)這 3 個(gè)集合的初始化的子過(guò)程代碼；為 MDI 窗體定義了一個(gè)只讀的公用屬性 ChildWindowsCount 以及該屬性的屬性變量mintChildWinCount，這個(gè)只讀屬性用來(lái)記錄在程序運(yùn)行過(guò)程中，MDI 應(yīng)用程序中打開的子窗體數(shù)量；還定義了一個(gè)重要的子過(guò)程 MenuOperate，該過(guò)程用來(lái)把 TreeView 和菜單進(jìn)行關(guān)聯(lián)。定義三個(gè)集合對(duì)象，分別用來(lái)存放“學(xué)生信息管理” 、 “成績(jī)管理”中的子菜單標(biāo)題字符串，以及上述兩個(gè)菜單中所有子菜單的標(biāo)題字符串。設(shè)定目錄樹與菜單對(duì)應(yīng)的操作，這個(gè)地方利用了索引來(lái)查找目錄樹中與菜單中對(duì)應(yīng)的操作。因?yàn)橐呀?jīng)將所有子菜單項(xiàng)目按順序的加入了 AllMenu 集合中。因此，直接通過(guò)對(duì)該集合索引的查詢就等于查找了對(duì)應(yīng)的子菜單，因此可以準(zhǔn)確的執(zhí)行相應(yīng)的操作功能。MDI 窗體的載入事件中，需要調(diào)用函數(shù)，初始化 MDI 窗體的背景圖片。該函數(shù)在應(yīng)用程序的標(biāo)準(zhǔn)模塊 MPaintMDIBackground 中定義。如果圖片在資源文件中，發(fā)送 WM_SIZE 消息，使得圖片在 MDI 顯示時(shí)候就能顯現(xiàn)。否則需要等 MDI 窗體大小發(fā)生變化的時(shí)候或接受到其他方式產(chǎn)生的重繪消息的時(shí)候背景圖片才能顯現(xiàn)圖片。在 MDIForm 的 Load 事件里，完成了應(yīng)用程序界面所需要的初始化設(shè)置。其中包括了對(duì)背景圖片的處理。在 MDI 窗體中設(shè)置背景，如果窗體放大或縮小，圖片大小固定，則會(huì)影響程序的視覺(jué)效果。可以利用代碼使得圖片平鋪來(lái)布滿窗體的背景，也可以利用一系列的 API 函數(shù)來(lái)使得一張圖片可以隨窗體改變大小，鋪滿窗體。由于該函數(shù)較復(fù)雜，本系統(tǒng)中用到的 API 函數(shù)是從一些相關(guān)書籍中引用的。在 MDI 的卸載事件中，MDI 窗體需要卸除所有不再使用的資源，釋放占用的系統(tǒng)資源。在 MDI 的初始化事件中，窗體完成了界面的定制功能，并且完成了目錄樹的外觀顯示。MDI 窗體的 ReSize 事件，用來(lái)控制窗口在應(yīng)用程序中的最小的高度和寬度。該段代碼用來(lái)限制窗口在還原或是拖動(dòng)改變大小時(shí)候能保持一個(gè)最小的大小限度。MDI 窗體的菜單事件中， “學(xué)生查詢”子菜單的代碼實(shí)現(xiàn)過(guò)程中，需要先調(diào)用 ActiveX DLL 中的一個(gè)窗體，執(zhí)行完查詢后再顯示學(xué)生查詢窗體。利用類中定義的初始化數(shù)據(jù)庫(kù)信息的公有方法 InitDB，可以不用直接對(duì)屬性賦值。利用類中顯示窗體的方法，顯示通用查詢窗口。通用查詢窗口將向類返回一個(gè)查詢結(jié)果數(shù)據(jù)集。如果返回的數(shù)據(jù)集非空，那么就通過(guò)類將該數(shù)據(jù)集傳遞給應(yīng)用程序的窗口 frmQueryResult 所使用，用來(lái)顯示查詢結(jié)果?！俺煽?jī)查詢”子菜單的代碼實(shí)現(xiàn)過(guò)程中，也需要先調(diào)用 ActiveX DLL 中的一個(gè)窗體，執(zhí)行完查詢后再顯示成績(jī)查詢窗體。它的實(shí)現(xiàn)過(guò)程與“學(xué)生查詢”子菜單的實(shí)現(xiàn)基本相同。關(guān)于對(duì) MDI 窗體中子窗體的控制，有幾點(diǎn)需要說(shuō)明：(1) 關(guān)于子窗體的排列布局。完全可以通過(guò)對(duì) MDI 窗體的 Arrange 方法來(lái)完成對(duì)子窗體的排列，語(yǔ)法格式為： ParaName 參數(shù)ParaName 的不同取值決定了窗體的排列方式。(2) 關(guān)于 WindowsList 復(fù)選框。在該菜單中，選中 WindowsList，則【窗口】菜單就具備了自動(dòng)維護(hù)打開子窗體的能力。每次打開新的子窗體，都將在【窗口】菜單的底部動(dòng)態(tài)地增加一個(gè)菜單項(xiàng)，已新打開的子窗體的窗體名為標(biāo)題。(3) 關(guān)于“關(guān)閉所有子窗體”功能的實(shí)現(xiàn)。有的程序是直接用數(shù)組來(lái)設(shè)計(jì)子窗體，然后利用 For 循環(huán)將子窗體卸載；有的則是通過(guò)每次打開子窗體后，設(shè)置窗體的 Tag 屬性，然后依然利用循環(huán)；也有的方法世紀(jì)路子窗體的個(gè)數(shù)，從而利用 For 循環(huán)。為了簡(jiǎn)化程序代碼的編寫，在本系統(tǒng)中直接利用 ActiveForm 屬性來(lái)實(shí)現(xiàn)關(guān)閉所有打開的子窗口。對(duì)子窗口而言，如果一個(gè)被關(guān)閉，那么另一個(gè)本來(lái)處于非激活狀態(tài)的窗體也會(huì)自動(dòng)成為活動(dòng)窗體，因而使得利用 ActiveForm 屬性關(guān)閉所有子窗體定額操作成為可能。 循環(huán)只需要判斷是否在 ActiveForm 即可。隱藏/顯示目錄樹的操作：Private Sub mnuWindowShowTree_Click() 39。顯示目錄樹 = True 39。設(shè)置工具欄目錄樹的復(fù)選風(fēng)格按鈕為按下?tīng)顟B(tài) (目錄樹).value = tbrPressedEnd SubPrivate Sub mnuWindowCloseTree_Click() 39。通過(guò)調(diào)用按鈕事件，關(guān)閉目錄樹 cmdCancelTree_Click 39。設(shè)置工具欄上復(fù)選風(fēng)格的“目錄樹”按鈕狀態(tài)為未按下 (目錄樹).value = tbrUnpressedEnd Sub關(guān)閉當(dāng)前窗口和關(guān)閉所有窗口的菜單代碼：Private Sub mnuWindowClose_Click() 39。如果當(dāng)前活動(dòng)窗體非空，則關(guān)閉當(dāng)前活動(dòng)窗體，利用 ActiveForm If Not ( Is Nothing) Then Unload End IfEnd SubPrivate Sub mnuWindowCloseAll_Click() 39。通過(guò)一個(gè)循環(huán)，關(guān)閉所有活動(dòng)子窗體 Do While Not ( Is Nothing) Unload LoopEnd Sub 對(duì)工具欄的編程中，要注意的一點(diǎn)就是：在對(duì) tbrCheck 類型的工具欄按鈕編程時(shí)，一定要搞清楚按鈕狀態(tài)與單擊按鈕事件的邏輯關(guān)系。 在單擊事件前該風(fēng)格按鈕的狀態(tài)值在單擊該按鈕之后馬上發(fā)生了改變，此時(shí)，如果要根據(jù)當(dāng)前按鈕的狀態(tài)對(duì)要執(zhí)行的代碼進(jìn)行分支選擇時(shí)，If 語(yǔ)句需要認(rèn)真的編寫。39。對(duì)工具欄進(jìn)行編程，需要利用到工具欄上按鈕的一些屬性Private Sub tlbMainMdi_ButtonClick(ByVal Button As ) 39。該過(guò)程傳遞的參數(shù)是工具欄按鈕，由于按鈕具有唯一的標(biāo)志 Key，因此可以根據(jù)39。Key 屬性來(lái)對(duì)每個(gè)按鈕進(jìn)行識(shí)別39。由于 Key 屬性是可選項(xiàng)，如果在程序設(shè)計(jì)時(shí)候沒(méi)有為每個(gè)按鈕設(shè)定 Key，那么39。此處的編程將會(huì)比較麻煩 39。也可以通過(guò)按鈕的索引來(lái)進(jìn)行，只是不如 Key 靈活 Select Case Case 水平排列 mnuWindowHorizontal_Click Case 垂直排列 mnuWindowVertical_Click Case 層疊排列 mnuWindowCascade_Click Case 關(guān)閉當(dāng)前窗口 mnuWindowClose_Click Case 關(guān)閉所有窗口 mnuWindowCloseAll_Click Case 目錄樹 39。如果單擊按鈕前的狀態(tài)處于未按下?tīng)顟B(tài)，那么單擊后 39。自動(dòng)設(shè)置其狀態(tài)為按下?tīng)顟B(tài)，同時(shí)顯示出目錄樹 39。這些判斷語(yǔ)句是在單擊完按鈕后才開始判斷的 39。此時(shí)按鈕的狀態(tài)已經(jīng)不是單擊前的狀態(tài)了，因?yàn)閱螕粼摪粹o 39。的同時(shí)就改變了按鈕的“按下/彈起”的狀態(tài) 39。這個(gè)先后關(guān)系不可以搞混淆了 If = tbrPressed Then mnuWindowShowTree_Click 39。如果單擊按鈕前的狀態(tài)未按下?tīng)顟B(tài),即，目錄樹已經(jīng)顯現(xiàn)的時(shí)候，單擊該按鈕 39。那么將自動(dòng)設(shè)置其狀態(tài)為未按下?tīng)顟B(tài)，同時(shí)關(guān)閉目錄樹 ElseIf = tbrUnpressed Then mnuWindowCloseTree_Click End If End SelectEnd Sub單擊數(shù)形控件的節(jié)點(diǎn)，執(zhí)行相應(yīng)的菜單操作命令，代碼如下：39。利用 NodeClick 事件而不是 TreeView 的 Click 事件39。如果利用 CLick 事件，在單擊樹狀控件的左側(cè)的“+”展開控件的時(shí)候也會(huì)激發(fā) Click39。事件，此時(shí)，如果有與菜單對(duì)應(yīng)的結(jié)點(diǎn)被選中，那么就會(huì)重復(fù)該操作39。因此，應(yīng)該避免這種操作，直接利用 NodeC