VB應(yīng)用程序的啟動與退出設(shè)計

領(lǐng)測軟件測試網(wǎng)

　　 
　　在缺省情況下，應(yīng)用程序中的第一個窗體被指定為啟動窗體。應(yīng)用程序開始運行時，此窗體就被顯示出來(因而最先執(zhí)行的代碼是該窗體Form_Initialize事件中的代碼)。如果想在應(yīng)用程序啟動時顯示別的窗體，就得改變啟動窗體，其方法如下：

1從“工程”菜單中，選勸工程屬性”。
2選勸通用”。
3在“啟動對象”下拉列表中，選取要作為新啟動窗體的窗體。
4選勸確定”。

沒有啟動窗體時的啟動

有時候需要在應(yīng)用程序啟動時不加載任何窗體。例如想先運行裝入數(shù)據(jù)文件的代碼，然后再根據(jù)數(shù)據(jù)文件的內(nèi)容決定顯示幾個不同窗體中的哪一個。為此，可在標準模塊中創(chuàng)建一個名為Main的子過程，并將其設(shè)為啟動對象。
SubMain()
DimintStatusAsInteger
′調(diào)用一個函數(shù)過程來檢驗用戶狀態(tài)
intStatus=GetUserStatus
′根據(jù)狀態(tài)顯示某個啟動窗體
IfintStatus=1Then
frmMainShow
Else
frmPasswordShow
End If
注意：這個過程必須是一個子過程，且不能在窗體模塊內(nèi)。

結(jié)束應(yīng)用程序

當所有窗體都已關(guān)閉并且沒有代碼正在執(zhí)行時，事件驅(qū)動的應(yīng)用程序就停止運行。如果最后一個可見窗體關(guān)閉時仍有隱藏窗體存在，那么，應(yīng)用程序表現(xiàn)為已經(jīng)結(jié)束了(因為沒有可見的窗體)，可實際上卻仍在繼續(xù)運行，直至所有隱藏窗體都關(guān)閉為止。之所以出現(xiàn)這種情況，是因為對已卸載窗體的屬性或控件的任何訪問，都將導(dǎo)致隱含地、不予顯示地加載那個窗體。
為了避免出現(xiàn)這類問題，最好的辦法是確保所有的窗體都已卸載，可以使用Forms集合和Unload語句。例如在主窗體上可以用一個名為cmdQuit的命令按鈕來退出程序，如果應(yīng)用程序只有一個窗體，則Click事件過程可簡單為：PrivateSubcmdQuit_Click()UnloadMeEndSub如果應(yīng)用程序使用多窗體，通常把代碼放入主窗體的Unload事件過程可以卸載這些窗體?？梢允褂?SPAN lang=EN-US>Forms集合確保找到并關(guān)閉所有窗體。
PrivateSubForm_Unload
DimiasInteger
′在窗體集合中循環(huán)并卸載每個窗體
Fori=0toFormsCount－1
UnloadForms(I)
Next
End Sub

文章來源于領(lǐng)測軟件測試網(wǎng) http://www./