VB show问题

来源：百度知道 编辑：UC知道 时间：2024/06/28 04:26:07
例如我现在 form2.show 做成一个按钮 只弹出form2
我连续按几次按钮都只是一个form2的窗体
可以我按几次就弹出几个form2的窗体吗

呵呵，当然可以了。

这是最基本的复用了，看好代码：

form1中：

Private Sub Command1_Click()
Dim obj
Set obj = New Form2
obj.Show
End Sub

Private Sub Command1_Click()
Dim a() As New Form1
Static n As Integer
n = n + 1
ReDim Preserve a(n)
a(n).Show
Me.SetFocus
End Sub