Forms對象一個隱含的方法

    今天在回答一個貼子，要求是根據窗口名稱字符串顯示窗口，我新建了一個VB工程，添加了兩個Form，Form的名稱分別爲Form1和Form2，然後寫了以下代碼：

Private Sub Form_Load() ShowForm1 "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form strFormName = LCase(strFormName) For Each f In Forms If LCase(f.Name) = strFormName Then f.Show Exit Sub End If Next End Sub

 

    奇怪的是，Form2居然沒有顯示除來，跟蹤了一下代碼，發現Form2.Count的值爲1，原來，如果窗口只有被Load過，纔會被加入到Forms裏，如果窗口被Unload了，則會從Forms裏移出。而現在要求是根據窗口名稱來加載窗口，那麼，如何根據窗口名稱生成窗口對象呢？Forms集合對象提供了Count屬性，它是否提供了Add方法加入窗口對象？想到這兒，我立馬寫了以下代碼進行驗證：

Private Sub Form_Load() ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form Set f = Forms.Add(strFormName) f.Show End Sub

 

    哈哈，Form2果然被成功加載了，這說明Forms集合對象確實提供了一個隱含的Add方法，該方法可以被多次執行，每執行一次，就會實例一次Form2窗口類，比如以下代碼將會顯示兩個Form2窗口類的實例：

Private Sub Form_Load() ShowForm "form2" ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form Set f = Forms.Add(strFormName) f.Show End Sub

 

    爲了防止窗口類Form2被重複實例化，因此將代碼修改如下：
Private Sub Form_Load() ShowForm "form2" ShowForm "form2" End Sub Private Sub ShowForm(ByVal strFormName As String) Dim f As Form strFormName = LCase(strFormName) '顯示已Load的窗口 For Each f In Forms If LCase(f.Name) = strFormName Then f.Show Exit Sub End If Next '顯示未Load的窗口 On Error Resume Next Set f = Forms.Add(strFormName) f.Show End Sub

 

    這樣就完整地實現了根據窗口名稱來生成窗口類的對象了。有了Add方法，我又試了一下Remove方法，結果失敗了，可能該方法只能由VB內部自己調用吧。
    這個隱含的Add方法非常有意思，當和菜單結合，我們就可以像Set objControl=Me.Controls.Add("控件名稱")動態加載控件一樣來動態加載窗口了。