Public PublicIndex As Long Sub XXFunction() Dim NewWindow As Object PublicIndex=PublicIndex+1 Set NewWindow=New Form2 NewWindow.Move 0,0 NewWindow.Caption="新窗口" & PublicIndex NewWindow.Text1.Text="文本内容" NewWindow.Show End Sub看看吧,主要就是把窗口作为一个新的对象(可以理解成类)来操作就可以了。
Sub XXFunction()
Dim NewWindow As Object
PublicIndex=PublicIndex+1
Set NewWindow=New Form2
NewWindow.Move 0,0
NewWindow.Caption="新窗口" & PublicIndex
NewWindow.Text1.Text="文本内容"
NewWindow.Show
End Sub看看吧,主要就是把窗口作为一个新的对象(可以理解成类)来操作就可以了。
在Button时判断一下.