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

1、VB應(yīng)用程序的啟動與退出設(shè)計在缺省情況下，應(yīng)用程序中的第一個窗體被指定為啟動窗體。如果想在應(yīng)用程序啟動時顯示別的窗體，就得改變啟動窗體，其方法如下：1。2。3在缺省情況下，應(yīng)用程序中的第一個窗體被指定為啟動窗體。J應(yīng)用程序開始運行時，此窗體就被顯示出來（因而最先執(zhí)仃的代碼是該窗體Formnitialize事件中的代碼）。如果想在應(yīng)用程序啟動時顯示別的窗體，就得改變啟動窗體，其方法如下：1沒有啟動窗體時的啟動有時候需要在應(yīng)用程序啟動時不加載任何窗體。例如想先運行裝入數(shù)據(jù)文件的代碼，然后再根據(jù)數(shù)據(jù)文件的內(nèi)容決定顯示幾個不同窗體中的哪一個。為此，可在標準模塊中創(chuàng)建一個名為Main的子過程，并將其設(shè)為

2、啟動對象。SubMai n()Dimi ntStatusAsI nteger'調(diào)用一個函數(shù)過程來檢驗用戶狀態(tài)in tStatus=GetUserStatus'根據(jù)狀態(tài)顯示某個啟動窗體Ifin tStatus=1ThenfrmMai n ShowElse frmPassword ShowEnd If注意：這個過程必須是一個子過程，且不能在窗體模塊內(nèi)。結(jié)束應(yīng)用程序當所有窗體都已關(guān)閉并且沒有代碼正在執(zhí)行時，事件驅(qū)動的應(yīng)用程序就停止運行。如果最后一個可見窗體關(guān)閉時仍有隱藏窗體存在，那么，應(yīng)用程序表現(xiàn)為已經(jīng)結(jié)束了（因為沒有可見的窗體），可實際上卻仍在繼續(xù)運行， 直至所有隱藏窗體都關(guān)閉為止

3、。之所以出現(xiàn)這種情況，是因為對已卸載窗體的屬性或控件的任何訪問，都將導(dǎo)致隱含地、不予顯示地加載那個窗-體。為了避免出現(xiàn)這類問題，最好的辦法是確保所有的窗體都已卸載，可以使用Forms集合和Un load語句。例如在主窗體上可以用一個名為cmdQuit的命令按鈕來退出程序，如果應(yīng)用程序只有一個窗體，則Click事件過程可簡單為：PrivateSubcmdQuit_Click()U nloadMeE ndSub如果應(yīng)用程序使用多窗體，通常把代碼放入主窗體的Unioad事件過程可以卸載這些窗體?？梢允褂肍orms集合確保找到并關(guān)閉所有窗體。HPrivateSubForm Uni oadDimias

4、In teger'在窗體集合中循環(huán)并卸載每個窗體Fori=OtoForms Count 1Uni oadForms(l)NextEnd Sub相關(guān)閱讀：應(yīng)用MFC開發(fā)高級應(yīng)用程序用戶學(xué)習(xí)并使用 vb來開發(fā) Windows應(yīng)用的時間是最短的。摘要:目前在 Windows下開發(fā) 應(yīng)用程序的工具雖然很多，但是C/C+乍為一種非常成熟和高效的開發(fā)語言在大型復(fù)雜項目的開發(fā)中仍然得到了廣泛應(yīng)用。如果在各個視口中指明具體的窗口名字。VB程序退出按鈕我編了一個程序(是可執(zhí)行文件)。我現(xiàn)在想加一個Comma nd Butt on，使得點了它之后這個程序可以自動退出。請問怎么弄？我VB才上了 2節(jié)課，所以

5、講簡單一點謝謝啦！不過我又想到一個問題，我想讓Command1這個按鈕點一下后使得 Timer1停止，同時讓 Command1的Caption變成繼續(xù)，而點擊繼續(xù)后，Comam nd1可以變成暫停，且同時Timer1.E nabled=True請問怎么辦到？謝謝啦提問者采納2010-10-10 19:40在窗體上添加一個按鈕，編輯代碼：Private Sub Command1_Click()Un load MeEnd Sub這是正常退出，會執(zhí)行 Private Sub Form_Unload(Cancel As Integer)內(nèi)容， 例如退出確認之類(如果你寫了的話)如果你有多個窗體，那么P

6、rivate Sub Command1_Click()EndEnd Sub此乃強制結(jié)束，跳過一切步驟，直接結(jié)束。類似結(jié)束進程VB 查找文件 ( 文件夾 )VB 查找文件 (文件夾 )2007-02-09 05:10以查找 "D:" 下所有文件夾為例：在窗體上添加一個 CommandButton ，它的單擊代碼如下：Private Sub Command1_Click()mypath = "D:" ' 將要查找的目錄賦值給 mypathMyName = Dir(mypath, vbDirectory Or vbHidden Or vbNormal

7、Or vbReadOnly Or vbSystem) '找到第一個入口， DIR 返回找到的第一個文件(文件夾)Do While MyName <> ""'開始循環(huán)If MyName <> "." And MyName <> "." Then '忽略當前目錄和子目錄' 確保變量 MyName 取得的值是文件夾名If (GetAttr(mypath & MyName) And vbDirectory) = vbDirectory ThenPrint MyName

8、 ' 在窗體上打印出找到的文件夾End IfEnd IfMyName = Dir' 得到下一個文件名LoopEnd Sub 運行后單擊命令按鈕就可在窗體上顯示出 所有的文件夾Dir 函數(shù)返回一個 String ，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤 卷標相匹配。語法Dir ( pathname , attributes )Dir 函數(shù)的語法具有以下幾個部分：部分 描述 pathname 可選參數(shù)。用來指定文件名的字符串表達式，可能包含目錄或文件夾、以及驅(qū)動器。 如果沒有找到 pathname ，則會返回零長度字符串 ("&quo

9、t;) 。 attributes 可選參數(shù)。 常數(shù)或數(shù)值表達式，其總和 用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。設(shè)置值attributes 參數(shù)的設(shè)置可為：常數(shù) 值 描述 vbNormal 0 ( 缺省) 指定沒有屬性的文件。 vbReadOnly 1 指定無屬性的只讀文件 vbHidden 2 指定無屬性的隱藏文件 VbSystem 4 指定無屬性的系統(tǒng)文件 vbVolume 8 指定卷標文 件；如果指定了其它屬性，則忽略 vbVolume vbDirectory 16 指定無屬性文件及其路徑和文件夾。注意 這些常數(shù)是由 VBA 所指定的，在程序代碼中

10、的任何位置，可以使用這些常數(shù)來替換真正的數(shù)值。 說明Dir 支持多字符 (*) 和單字符 (?) 的通配符來指定多重文件。由于 Macintosh 不支持通配符，使用文件類型指定文件組?？梢允褂?MacID 函數(shù)指定文件類型而不用文 件名。比如，下列語句返回當前文件夾中第一個TEXT 文件的名稱 :Dir("SomePath", MacID("TEXT")為選中文件夾中所有文件，指定一空串 :Dir("")在 Microsoft Windows 中，如果在 Dir 函數(shù)中使用 MacID 函數(shù)，將產(chǎn)生錯誤。任何大于 256 的 att

11、ribute 值都被認為是 MacID 函數(shù)的值。 在第一次調(diào)用 Dir 函數(shù)時，必須指定 pathname ，否則會產(chǎn)生錯誤。如果也指定了文件屬性，那么就必須 包括 pathname 。Dir 會返回匹配 pathname 的第一個文件名。若想得到其它匹配 pathname 的文件名，再一次調(diào)用 Dir ， 且不要使用參數(shù)。如果已沒有合乎條件的文件，則 Dir 會返回一個零長度字符串 ("") 。一旦返回值為零長 度字符串，并要再次調(diào)用 Dir 時，就必須指定 pathname ，否則會產(chǎn)生錯誤。不必訪問到所有匹配當 前 pathname 的文件名，就可以改變到一個新的

12、pathname 上。但是，不能以遞歸方式來調(diào)用 Dir 函數(shù)。 以 vbDirectory 屬性來調(diào)用 Dir 不能連續(xù)地返回子目錄。提示： 由于文件名并不會以特別的次序來返回，所以可以將文件名存儲在一個數(shù)組中，然后再對這個數(shù)組排序。GetAttr 函數(shù)返回一個 Integer ，此為一個文件、目錄、或文件夾的屬性。語法GetAttr( pathname )必要的 pathname 參數(shù)是用來指定一個文件名的字符串表達式。 pathname 可以包含目錄或文件夾、以及 驅(qū)動器。返回值由 GetAttr 返回的值，是下面這些屬性值的總和：常數(shù) 值 描述 vbNormal 0 常規(guī) vbRead

13、Only 1 只讀 vbHidden 2 隱藏 vbSystem 4 系統(tǒng)文件 vbDirectory 16 目錄或文件夾 vbArchive 32 上次備份以后，文件已經(jīng)改變 vbalias 64 指定的文件 名是別名。注意 這些常數(shù)是由 VBA 指定的，在程序代碼中的任何位置，可以使用這些常數(shù)來替換真正的值。說明若要判斷是否設(shè)置了某個屬性，在 GetAttr 函數(shù)與想要得知的屬性值之間使用 And 運算符與逐位比較。 如果所得的結(jié)果不為零， 則表示設(shè)置了這個屬性值。 例如，在下面的 And 表達式中， 如果檔案 (Archive) 屬 性沒有設(shè)置，則返回值為零：Result = GetAt

14、tr(FName) And vbArchive如果文件的檔案屬性已設(shè)置，則返回非零的數(shù)值vb 查找文件2011-04-16 09:09 gsplhtlxg | 分類： VB | 該問題已經(jīng)合并到 >>我想設(shè)計一個程序，里面有一個 command1 ，點擊這個按鈕后查找一個目錄的文件，如果 沒有，繼續(xù)執(zhí)行代碼，如果有，就打開一個窗體。誰會？謝謝問者采納2011-04-16 12:40if dir("d:1.txt")="" then執(zhí)行代碼elseform2.showend if用VB實現(xiàn)文件查找功能在VB中要實現(xiàn)查找文件功能，我們可以利用VB

15、的DIR函數(shù)進行遞歸來實現(xiàn)。每次使用DIR函數(shù)后，比較是否有要查找的文件，再檢查是否有子目錄，若有，利用遞歸繼續(xù)查找， 這樣可對整個盤進行查找。下面是一個例子，查找DOS目錄下的所有EXE文件，統(tǒng)計EXE文件的數(shù)目并列出文件名。本程序會查找當前路徑下的所有文件和子目錄，與WIN95的包含子文件夾”的查找功能類似。程序與注釋如下：1. 在窗體中加一命令按鈕Comma nd1,C aptio n= 查找示例，雙擊此按鈕，寫如下代碼：Private Sub Comma nd1 Click()Dim ff() As Stri ng定義一個字符串數(shù)組用來保存找到的文件名稱Dim fn As Long &

16、#39;保存找到的文件數(shù)目fn=TreeSearch( " C:% dos", "* .exe ”，ff()Print找到文件數(shù)目為"fnFor I=1 To fnPrint ff(I)NextEnd Sub2. 插入一模塊 Modulel.bas，寫如下代碼：Opti on ExplicitPublic Fun ction TreeSearch(ByVal sPath As Stri ng,ByVal sFileSpec As Strin g,sFiles() As Stri ng)As LongStatic 1Files As Lo ng 文件數(shù)目D

17、im sDirAs Stri ngDim sSubDirs() As Stri ng存放子目錄名稱Dim 1ln dex As LongIf Right(sPath,1)$#60;$#62;" % "he n sPath=sPath & "% "sDir=Dir(sPath & sFileSpec)獲得當前目錄下文件名和數(shù)目Do While Len (sDir)1Files=1Files + 1ReDim Preserve sFiles(1 To 1Files) sFiles(1Files)=sPath & sDir sDir=DirLoop獲得當前目錄下的子目錄名稱1In dex=0sDir=Dir(sPath &*,16)Do While Len (sDir)If Left(sDir,1)$#60;$#62;” . ” Then ' skip.and.找出子目錄名If GetAttr(sPath & sDir)And vbDirectory Then11 ndex=ll ndex+ 1保存子目錄名Redim Preserve sSubDirs