Forms對象一個隱含的方法

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

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

 

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

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

 

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

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

 

    為了防止視窗類別Form2被重複執行個體化，因此將代碼修改如下：
Private Sub Form_Load()<br /> ShowForm "form2"<br /> ShowForm "form2"<br />End Sub</p><p>Private Sub ShowForm(ByVal strFormName As String)<br /> Dim f As Form</p><p> strFormName = LCase(strFormName)<br /> '顯示已Load的視窗<br /> For Each f In Forms<br /> If LCase(f.Name) = strFormName Then<br /> f.Show<br /> Exit Sub<br /> End If<br /> Next</p><p> '顯示未Load的視窗<br /> On Error Resume Next<br /> Set f = Forms.Add(strFormName)<br /> f.Show<br />End Sub

 

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