如何实时生成Form数组？

Question

我想实现鼠标点一下某按钮就生成一个form，并把该form的引用存储到一个动态数组中，该怎样做呢？

Answer 1

在模块中声明 
Public forms() As Form
Public nForm As Integer在窗体中
Private Sub Command1_Click()
    Dim f As New Form1
    ReDim Preserve forms(nForm)
    Set forms(nForm) = f
    nForm = nForm + 1
    f.Caption = nForm
    f.Show
End Sub

Answer 2

'模块中的代码，请将启动对象设为Sub Main
Option Explicit
Public MyForm() As Form
Sub Main()
    ReDim MyForm(0)
    Set MyForm(0) = Form1
    MyForm(0).Show
End Sub'窗体Form1中的代码
Option Explicit
Private Sub Command1_Click()
    Dim i As Long
    i = UBound(MyForm) + 1
    ReDim Preserve MyForm(i)
    Set MyForm(i) = New Form1
    MyForm(i).Show
End SubPrivate Sub Command2_Click()
    Dim i As Long
    i = UBound(MyForm)
    Unload MyForm(i)
    Set MyForm(i) = Nothing
    If i > 0 Then ReDim Preserve MyForm(i - 1)
End Sub

Answer 3

haha
下次回答其它的：）