生成窗体有关问题
生成窗体问题
我使用下面的代码:
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
我使用下面的代码:
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