生成窗体问题
我使用下面的代码:
sub AddForm()
static i as integer
dim frm as new form1
frm.show
frm.caption = "子窗体 " & i
end sub
生成窗体,但是当多次生成窗体后,如何确定其中任意的其中一个窗体?谢谢大家

[解决办法]
可以给窗体添加属性


Private m_ID As Long

Public Property Get Id() As Long
Id = m_ID
End Property

Public Property Let Id(ByVal vData As Long)
m_ID = vData
End Property


使用的时候就...
Private Sub Command1_Click()
AddForm
End Sub

Sub AddForm()
Static i As Integer
Dim frm As New Form1 'form2
frm.Show
frm.Caption = "子窗体 " & i
frm.Id = i
i = i + 1
End Sub


[解决办法]
Public i As Integer '一定要在模块中
Private Sub Command1_Click()
AddForm
End Sub

Private Sub Command2_Click()
Dim objF As Object
For Each objF In Forms
If objF.Caption = "子窗体 " & 1 Then Unload objF
Next
End Sub


Sub AddForm()


Dim frm As New Form1
frm.Show
frm.Caption = "子窗体 " & i
i = i + 1
End Sub
[解决办法]
Dim frm() As Form1

Sub AddForm()
Static i As Integer
ReDim Preserve frm(0 To i) As Form1
Set frm(i) = New Form1
frm(i).Caption = "子窗体 " & i
frm(i).Show
i = i + 1
End Sub

Private Sub Command2_Click()
Unload frm(1)
End Sub