第10章多重窗體程序設(shè)計.doc

第10章 多重窗體程序設(shè)計前面所接觸的程序大多比較簡單，每個程序大多只包含一個窗體，程序的所有代碼都包含在該窗體模塊中。在實際應(yīng)用中，特別是對于較復(fù)雜的應(yīng)用程序，單一窗體往往無法滿足需要，只有將多個窗體配合使用，才能使Visual Basic的強大功能得以發(fā)揮。故當(dāng)應(yīng)用程序龐大復(fù)雜時，需要進行多重窗體程序設(shè)計。在多重窗體程序設(shè)計中，每個窗體可以有自己的用戶界面和程序代碼，完成不同的操作。多重窗體程序可以包含若干不同的窗體，每個窗體的設(shè)計方法與單窗體程序沒有什么不同，關(guān)鍵是要解決不同窗體之間的銜接和窗體的顯示、關(guān)閉等問題。本章主要介紹關(guān)于多重窗體程序設(shè)計的一些基本語句和基本操作。101 多重窗體的基本操作1011 添加窗體創(chuàng)建多重窗體程序的工程和第一個窗體的方法與單窗體程序相同，其他窗體需要一個一個地“添加”到工程中，方法是執(zhí)行“工程”菜單下的“添加窗體”命令，或單擊“標(biāo)準(zhǔn)”工具欄的“添加窗體”工具按鈕?，彈出如圖10-1所示的對話框，用戶即可在當(dāng)前工程中新建或添加一個事先已存在的窗體。圖10-1添加窗體對話框每個窗體都有自己的名稱，默認(rèn)為FormX(X為1，2，3，)。對于多重窗體程序，窗體名稱是一個常用的屬性，為便于理解和記憶，最好將窗體名稱改為有意義的名字，如frmLogin代表用戶登錄窗體，frmMain是主窗體等。在窗體的代碼中，可以使用Me關(guān)鍵字代表當(dāng)前窗體的名稱，例如：Private Sub Form_Load()Me.BackColor=RGB(127,234,111)End Sub1012 設(shè)置啟動對象在程序運行過程中，首先執(zhí)行的對象稱為啟動對象。缺省情況下，第一個創(chuàng)建的窗體被指定為啟動對象，即啟動窗體。Visual Basic工程的啟動窗體可以在啟動程序后自動打開并顯示在屏幕上，但每個工程最多只能有一個啟動窗體。對于多重窗體程序，缺省情況下，創(chuàng)建的第一個窗體被指定為啟動窗體。要指定其他窗體作為啟動窗體，可以單擊“工程”菜單下的“工程屬性”命令，顯示如圖10-2所示的對話框，在“啟動對象”列表框中選擇。圖10-2設(shè)置啟動窗體除了啟動窗體外的其他窗體可以在程序代碼中使用窗體的方法來打開。1013 有關(guān)窗體的語句和方法1窗體的加載和卸載(1)Load語句語法格式：Load 窗體名稱如：Load Form2功能：Load語句用來加載指定窗體，即把一個窗體裝入內(nèi)存。執(zhí)行Load語句后，可以引用窗體中的控件及各種屬性，但此時窗體沒有顯示出來。加載窗體后，窗體的Load事件已被觸發(fā)。(2)Unload語句語法格式：Unload窗體名稱功能：Unload語句用于卸載指定的窗體，即釋放窗體所占內(nèi)存。與Load語句相反，不論指定的窗體是顯示在屏幕上還是被隱藏了，Unload語句都將從內(nèi)存中清除指定的窗體。例如，單擊命令按鈕cmdQuit時關(guān)閉當(dāng)前窗體的程序代碼為：Private Sub cmdQuit_Click()Unload MeEnd Sub說明：在Visual Basic程序設(shè)計中常用關(guān)鍵字Me宋代替當(dāng)前的窗體名。2窗體的常用方法(1)Show方法語法格式：窗體名稱Show模式功能：對于一個未裝入內(nèi)存的窗體，通過Show方法，可以將該窗體裝入內(nèi)存并顯示出來；若窗體己通過Load語句裝入內(nèi)存，則通過Show方法可以顯示該窗體。說明：“窗體名稱”為要顯示的窗體名，缺省時表示將顯示當(dāng)前窗體。“模式”參數(shù)為可選項，其取值只能是0或1，它的含義是：0表示非模態(tài)窗體 (vbModaless)：1表示模態(tài)窗體(vbModal)。默認(rèn)值為0。模態(tài)窗體和非模態(tài)窗體的區(qū)別：模態(tài)窗體占用整個應(yīng)用程序的控制權(quán)，在模態(tài)窗體顯示的狀態(tài)下，只有關(guān)閉該模態(tài)窗體，用戶才能與其他窗體進行交互：而對于非模態(tài)窗體，用戶在與該窗體交互的同時，還可以與其他窗體進行交互。因此，對于模態(tài)窗體，必須有能關(guān)閉該窗體的選項。調(diào)用Show方法與將窗體的Visible屬性值設(shè)置為True具有相同效果。(2)Hide方法語法格式：窗體名稱Hide功能：Hide方法將窗體隱藏，即不在窗體上顯示，其作用與將Visible屬性設(shè)置為False等效。窗體被隱藏后并沒有從內(nèi)存中消失，它與Unload語句的作用是不一樣的。102 Sub Main過程在一個含有多個窗體或多個工程的應(yīng)用程序中，有時候需要在顯示多個窗體之前對一些條件進行初始化，這就需要在啟動程序時執(zhí)行一個特定的過程。在Visual Basic中，這樣的過程稱為啟動過程，并命名為Sub Main，它類似于C語言中的Main函數(shù)。如前所述，在一般情況下，整個應(yīng)用程序從設(shè)計時的第一個窗體開始執(zhí)行，需要首先執(zhí)行的程序代碼放在Form_Load事件過程中。如果需要從其他窗體開始執(zhí)行應(yīng)用程序，則可通過“工程”菜單中的“工程屬性”命令(“通用”選項卡)指定啟動窗體。但是，如果有Sub Main過程，則可首先執(zhí)行Sub Main過程。Sub Main過程必須在標(biāo)準(zhǔn)模塊中建立，而不能包含在窗體模塊中。創(chuàng)建Sub Main過程的方法是：(1)單擊“工程”菜單下的“添加模塊”命令，為當(dāng)前工程添加一個標(biāo)準(zhǔn)模塊。VisualBasic為標(biāo)準(zhǔn)模塊提供的缺省名稱是ModuleX(X為1，2，3，)。(2)打開標(biāo)準(zhǔn)模塊的代碼編輯窗口，在所有過程的外部輸入“Sub Main”后按回車鍵，則產(chǎn)生對Sub Main過程的聲明(如圖10-3所示)。圖10-3 Sub Main過程建立窗口Sub Main()End Sub(3)為Sub Main過程編寫代碼。每個工程可以包含若干標(biāo)準(zhǔn)模塊，但最多只能有一個Sub Main過程。除了窗體模塊，工程的“啟動對象”還可以是Sub Main過程，但不能是一個標(biāo)準(zhǔn)模塊或其他過程。在Sub Main過程中，通常包含程序的初始化代碼，如全局變量的初始化等，還可以用于在啟動程序的主窗體前顯示一個快速提示窗體。Sub Main過程位于標(biāo)準(zhǔn)模塊中。一個工程可以含有多個標(biāo)準(zhǔn)模塊，但Sub Main過程只能有一個。Sub Main過程通常是作為啟動過程編寫的，也就是說，程序員編寫Sub Main過程，總是希望作為第一個過程首先執(zhí)行。但是與C語言中的Main()函數(shù)不同，Sub Main過程不能自動被識別。也就是說，Visual Basic并不把它自動作為啟動過程，必須通過與設(shè)置啟動窗體類似的方法把它指定為啟動過程。若要設(shè)置Sub Main子過程為啟動對象，則應(yīng)在工程屬性對話框(如圖102所示)的“啟動對象”下拉列表中選擇“Sub Main”。一般來說，窗體模塊中的通用過程和標(biāo)準(zhǔn)模塊中的過程只能通過按名稱調(diào)用執(zhí)行，Sub Main也不例外。但如果把Sub Main指定為啟動過程，則可以在運行程序時自動執(zhí)行。Sub Main過程先于窗體模塊執(zhí)行，因此常用來設(shè)定初始化條件。例如：Sub Main()初始化Form2.showEnd Sub該過程先進行所需要的初始化處理，然后顯示一個窗體。有時候，也可以在Sub Main過程中指定其他過程的執(zhí)行順序。例如：Sub Main()DoLoad Records()GetInput()SaveData()LoopEnd Sub此例按順序調(diào)用標(biāo)準(zhǔn)模塊中的3個過程，直到程序結(jié)束。103 閑置循環(huán)與DoEvents語句Visual Basic是事件驅(qū)動型的語言。在一般情況下，只有發(fā)生事件時才執(zhí)行相應(yīng)的程序。也就是說，如果沒有事件發(fā)生，則應(yīng)用程序?qū)⑻幱凇伴e置”(Idle)狀態(tài)。另一方面，當(dāng)Visual Basic執(zhí)行一個過程時，將停止對其他事件(如鼠標(biāo)事件)的處理，直至執(zhí)行完End Sub或End Function指令為止。也就是說，如果Visual Basic處于“忙碌”狀態(tài)，則事件過程只能在過程中等待，直到當(dāng)前過程結(jié)束。為了改變這種執(zhí)行順序，Visual Basic提供了閑置循環(huán)(1dieLoop)和DoEvents語句。所謂閑置循環(huán)，就是當(dāng)前應(yīng)用程序處于閑置狀態(tài)時，用一個循環(huán)來執(zhí)行其他操作。簡言之，閑置循環(huán)就是在閑置狀態(tài)下執(zhí)行的循環(huán)。但是，在執(zhí)行閑置循環(huán)時，將占用全部CPU時間，不允許執(zhí)行其他事件過程，使系統(tǒng)處于無限循環(huán)中，可以用它把控制權(quán)交給周圍環(huán)境使用，然后回到原來程序繼續(xù)執(zhí)行。DoEvents既可以作為語句，也可以作為函數(shù)使用，一般格式為：窗體號=DoEvents()當(dāng)作為函數(shù)使用時，DoEvents返回當(dāng)前裝入Visual Basic應(yīng)用程序工作區(qū)的窗體號。如果不想使用這個返回值，則可以隨便用一個變量接受返回值。例如：Dummy=DoEvents()作為語句使用時，可省略前后的選擇項。在窗體上畫一個命令按鈕，然后編寫如下的事件過程：Private Sub Command1_Click()For i=1 To 2000000000X=DoEventsFor j=1 To 1000Next jClsPrint iNext iEnd Sub運行上面的程序，單擊命令按鈕，將在窗體左上角顯示循環(huán)控制變量(i&)的值。由于加了延時循環(huán)，該程序的運行需要較長的時間。加入“x=DoEvents”后，可以在執(zhí)行循環(huán)的過程中進行其他操作，如重設(shè)窗口大小、把窗體縮為圖標(biāo)、結(jié)束程序或運行其他應(yīng)用程序等。如果沒有DoEvents，則在程序運行期間不能進行其他任何操作?？梢钥闯觯珼oEvents給程序執(zhí)行帶來一定方便，但不能不分場合的使用。有時候應(yīng)用程序的某些關(guān)鍵部分可能需要獨占計算機的時間，以防止被鍵盤、鼠標(biāo)或其他程序中斷，在這種情況下，不能使用DoEvents語句。例如，當(dāng)程序從調(diào)制解調(diào)器接受信息時，就不應(yīng)使用DoEvents。例如，編寫程序，試驗閑置循環(huán)和DoEvents語句。(1)在窗體上建立3個命令按鈕，設(shè)計如圖10-4所示的界面。圖10-4 試驗閑置循環(huán)(2)執(zhí)行“工程”菜單中的“添加模塊”命令，打開標(biāo)準(zhǔn)模塊窗口，編寫如下程序：Sub main()Form1.ShowDo While DoEvents()Form1.Command2.Left=Form1.Command2.Left+1BeepLoopEnd Sub(3)對Form1窗體編寫如下程序：Private Sub Command1_Click()FontSize=12Print 執(zhí)行Command1_Click事件過程For i=l To 100000X=i*2Next iEnd SubPrivate Sub Command3_Click()EndEnd Sub(4)把Sub Main設(shè)置為啟動過程。程序運行后，沒有事件發(fā)生，進入閑置循環(huán)，使標(biāo)有“閑置循環(huán)”的命令按鈕右移，并發(fā)出聲響。如果單擊標(biāo)有“單擊此按鈕”的命令按鈕，則有事件發(fā)生，“閑置循環(huán)”按鈕暫停移動，在窗體上顯示相應(yīng)的信息。然后“閑置循環(huán)”按鈕接著移動。如果單擊“退出”命令按鈕，則退出程序，運行情況如圖10-5所示。圖10-5試驗閑置循環(huán)運行界面注意：在高檔微機上，當(dāng)單擊命令按鈕1時，命令按鈕2暫停移動的時間很短。104 Visual Basic工程管理以上介紹了多窗體程序設(shè)計的方法?，F(xiàn)在，對以前所學(xué)內(nèi)容進行簡單回顧，了解Visual Basic的工程結(jié)構(gòu)，對Visual Basic應(yīng)用程序有一個總體印象。在傳統(tǒng)的程序設(shè)計中，編程者對程序的“執(zhí)行順序”是比較明確的。但是，在Visual Basic中，程序的執(zhí)行順序不太容易確定，也就是說，很難勾畫出程序的執(zhí)行“軌跡”。不過，從大的方面來說，還是“有序可循的”。模塊(Module)是相對獨立的程序單元。在Visual Basic中主要有3種模塊，即窗體模塊、標(biāo)準(zhǔn)模塊和類模塊。類模塊主要用來定義和建立ActiveX組件，本書不涉及與類模塊有關(guān)的內(nèi)容。下面主要介紹標(biāo)準(zhǔn)模塊和窗體模塊。1041 標(biāo)準(zhǔn)模塊標(biāo)準(zhǔn)模塊也稱全局模塊或總模塊，由全局變量聲明、模塊層聲明通用過程等幾部分組成。其中全局聲明放在標(biāo)準(zhǔn)模塊的首部，因為每個模塊都可能有它自己的具有唯一名字的全局變量。全局變量聲明總是在啟動時執(zhí)行。模塊層聲明包括在標(biāo)準(zhǔn)模塊中使用的變量和常量。當(dāng)需要聲明全局變量或常量較多時，可以把全局聲明放在一個單獨的標(biāo)準(zhǔn)模塊中。這樣的標(biāo)準(zhǔn)模塊只含有全局聲明而不含任何過程，因此Visual Basic解釋程序不對它進行任何指令解釋。這樣的標(biāo)準(zhǔn)模塊在所有基本指令開始之前處理。在標(biāo)準(zhǔn)模塊中，全局變量用Public聲明，模塊層變量用Dim或Private聲明。在大型模塊中，主要操作在標(biāo)準(zhǔn)模塊中執(zhí)行，窗體模塊用來實現(xiàn)與用戶之間的通信。但在只使用一個窗體的應(yīng)用程序中，全部操作通常用窗體模塊就能實現(xiàn)。在這種情況下，標(biāo)準(zhǔn)模塊不是必需的。標(biāo)準(zhǔn)模塊通過“工程”菜單中的“添加模塊”命令來建立或打開。執(zhí)行該命令后，顯示“添加模塊”對話框，如圖106所示。利用這個對話框可以建立新模塊(選擇“新建”選項卡)，也可以把已有模塊添加到當(dāng)前工程中(選擇“現(xiàn)存”選項卡，打開文件對話框)。單擊“打開”按鈕，即可打開標(biāo)準(zhǔn)模塊代碼窗口，可在該窗口內(nèi)鍵入或修改代碼。在編輯完代碼之后，可以用“文件”菜單中的“保存文件”命令存盤。標(biāo)準(zhǔn)模塊作為獨立的文件存盤，其擴展名為：bas。圖10-6添加模塊對話框一個工程文件可以有多個標(biāo)準(zhǔn)模塊，也可以把原有的標(biāo)準(zhǔn)模塊加入工程中。當(dāng)一個工程中含有多個標(biāo)準(zhǔn)模塊時，各模塊中的過程不能重名。當(dāng)然，一個標(biāo)準(zhǔn)模塊內(nèi)的過程也不能重名。Visual Basic通常從啟動窗體指令開始執(zhí)行。在執(zhí)行啟動窗體的指令前，不會執(zhí)行標(biāo)準(zhǔn)模塊中的Sub或者說Function過程，只能在窗體指令(窗體或控件事件過程)中調(diào)用。1042 窗體模塊窗體模塊包括3部分內(nèi)容，即聲明部分、通用過程部分和事件過程部分。在聲明部分中，用Dim語句聲明窗體模塊需要的變量，因而其作用于整個窗體模塊，包括該模塊內(nèi)的每個過程。注意，在窗體模塊代碼中，聲明部分一般放在最前面，而通用過程和事件過程的位置沒有嚴(yán)格限制。在聲明部分執(zhí)行之后，Visual Basic在事件過程部分查找啟動窗體中的Sub Form_Load過程之后，將暫停指令執(zhí)行，然后等待用戶觸發(fā)下一個事件。從表面上看，此時程序似乎什么事也沒做，但應(yīng)用程序仍處于運行(Run)狀態(tài)，而不是中斷(Break)狀態(tài)。在Visual Basic中，可以運行一個不含任何源代碼的應(yīng)用程序。程序運行后，在屏幕上顯示一個空窗體(通常為Form1)。這樣的程序稱為零指令程序。窗體模塊中的通用過程可以被本模塊或其他模塊中的事件過程調(diào)用。一個Visual Basic應(yīng)用程序有多種存盤文件，這些文件通過不同的擴展名來區(qū)別，包括bas文件(標(biāo)準(zhǔn)模塊)、frm文件(窗體模塊)、cls(類模塊)、vbp(工程)、bvg文件(上程組)等。在存盤時，這些文件分別保存，而在裝入時，則只要裝入vbp(單工程)或vbg文件(多工程)即可。裝入vbp或vpg文件后，與該工程或工程組有關(guān)的所有bas文件、cls文件和frm文件等都在工程資源管理器窗口中顯示出來。1043 工程的組成VB中的工程是組成一個應(yīng)用程序的文件集合，因此Visual Basic程序的開發(fā)總是從創(chuàng)建工程開始。新建工程時，默認(rèn)的工程名是“工程1”。一個VB工程通常包括多種類型的文件，如圖10-7所示。其中最通常的文件是工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件。(1)工程文件工程文件包含與該工程有關(guān)的全部文件、對象以及所設(shè)置的環(huán)境選項的信息。整個工程對應(yīng)一個工程文件，擴展名為vbp。圖10-7 工程文件的組成(2)窗體文件工程中的每一個窗體對應(yīng)個窗體文件，擴展名為frm。窗體文件包含窗體及其控件有關(guān)屬性的文本描述、常量或變量的聲明以及窗體內(nèi)的工程代碼等。說明：窗體中對象的數(shù)據(jù)(例如圖片或圖標(biāo))含有二進制屬性，保存該窗體時將自動生成同名的窗體二進制數(shù)據(jù)文件，擴展名為frx。(3)標(biāo)準(zhǔn)模塊文件工程中的標(biāo)準(zhǔn)模塊通常用來定義供其他窗體或模塊引用的全局變量、變量、過程等。標(biāo)準(zhǔn)模塊文件的擴展名為bas。1044 工程的基本操作工程的基本操作主要包括新建、打開和保存工程，在工程中添加、刪除和保存文件，以及在工程中添加控件等。這些操作在前面的章節(jié)中已或多或少有所涉及，這里進行歸納與總結(jié)。1新建、打開和保存工程(1)新建工程每次啟動Visual Basic時，系統(tǒng)都將打開一個“新建工程”對話框，通過“新建”選項卡可創(chuàng)建所選類型的工程。此外，在Visual Basic中執(zhí)行“文件”菜單中的“新建工程”命令，也可新建工程。不過，后者在新建工程前會關(guān)閉當(dāng)前系統(tǒng)。(2)打開工程啟動Visual Basic時，通過“新建工程”對話框的“現(xiàn)存”和“最新”選項卡可打開已經(jīng)保存的工程，如圖10-8所示。其中，“最新”選項卡列出的是最近訪問過的文件。此外，在Visual Basic中執(zhí)行“文件”菜單中的“打開工程”命令，也可打開工程。同樣，后者在打開工程前會關(guān)閉當(dāng)前工程。圖10-8打開工程對話框(3)保存工程單擊工具欄上的“保存工程”按鈕或執(zhí)行“文件”菜單中的“保存工程”命令，可保存當(dāng)前工程及其所有模塊，包括工程文件、窗體文件和標(biāo)準(zhǔn)模塊文件等。執(zhí)行“文件”菜單中的“工程另存為”命令，是用指定文件名保存當(dāng)前工程的工程文件。2在工程中添加、刪除和保存文件(1)添加文件執(zhí)行“工程”菜單中的“添加”命令，可在當(dāng)前工程中添加指定類型的文件。例如，選擇“添加窗體”命令，可添加一個新建窗體或現(xiàn)存窗體。說明：在當(dāng)前工程中添加現(xiàn)存的文件時(例如，添加其他工程中的窗體)，并不是添加該文件的副本，而只是簡單的在工程中包含對該文件的引用。如果改變并保存了所添加的文件，則將對包含該文件的所有工程造成影響。為避免添加的文件影響該文件原來的工程，最好在文件添加后執(zhí)行“另存為”操作，以新文件名保存所添加的文件。(2)移除文件在工程資源管理器中選定待移除的文件，執(zhí)行快捷菜單中的“移除”命令(如圖10-9所示)或執(zhí)行“工程”菜單中的“移除”命令，可從工程中移除該文件。這里需要指出，如果從該工程中移除的是已經(jīng)保存過的文件，則該文件并沒有被刪除，仍存在于磁盤上，需要時還可以添加。圖10-9 移除文件(3)保存文件執(zhí)行“文件”菜單中的“另存為”命令或如圖10 9所示的快捷菜單中的“保存”命令，可保存工程所選定的文件，執(zhí)行上述菜單中的“另存為”命令，則用指定文件名保存在工程中。習(xí)題十一、選擇題1下列操作中不能向工程中添加窗體的命令是 。(A)執(zhí)行“工程”菜單中的添加窗體命令(B)單擊工具欄上的“添加窗體”(C)右擊窗體，在彈出的菜單中選擇“添加窗體”命令(D)右擊工程資源管理器，在彈出的菜單中選擇“添加”命令，然后在下一級菜單中選擇“添加窗體”命令2當(dāng)一個工程含有多個窗體時，其中的啟動窗體是 。(A)啟動Visual Basic時建立的窗體(B)第一個添加的窗體(C)最后一個添加的窗體(D)在“工程屬性”對話框中指定的窗體3設(shè)有一個工程文件，包含F(xiàn)orm1、Model1、Model2等模塊。在Form1的通用部分聲明一個變量Public X as Integer，F(xiàn)orm1中包含若干事件過程和一個通用過程GetFile。以下關(guān)于X作用域的描述中正確的是 。(A)在Model1中可以使