这是一个新建文件的sub程序
Private Sub LoadNewFGAFrm()
Static LFGAChildCount As Long
Dim NewFGAFrm As FrmFGAChild
LFGAChildCount = LFGAChildCount + 1
Set NewFGAFrm = New FrmFGAChild
NewFGAFrm.Caption = "优化程序 " & LFGAChildCount
NewFGAFrm.Show
NewFGAFrm.SSTab.Enabled = True
End Sub新建文件可以直接调用
Private Sub MnuNew_Click()
LoadNewFGAFrm
End Sub可是我想在打开一个已存在的文件时,仍然调用LoadNewFGAFrm这个sub程序。
注:新建的与已有的差别的在于后者已经默认给定了许多计算参数,界面完全一样。Private Sub MnuOpenThree_Click()
LoadNewFGAFrm
???
End Sub请问怎么写问号部分的代码,比如给新建的窗口caption设置为Three
Private Sub LoadNewFGAFrm()
Static LFGAChildCount As Long
Dim NewFGAFrm As FrmFGAChild
LFGAChildCount = LFGAChildCount + 1
Set NewFGAFrm = New FrmFGAChild
NewFGAFrm.Caption = "优化程序 " & LFGAChildCount
NewFGAFrm.Show
NewFGAFrm.SSTab.Enabled = True
End Sub新建文件可以直接调用
Private Sub MnuNew_Click()
LoadNewFGAFrm
End Sub可是我想在打开一个已存在的文件时,仍然调用LoadNewFGAFrm这个sub程序。
注:新建的与已有的差别的在于后者已经默认给定了许多计算参数,界面完全一样。Private Sub MnuOpenThree_Click()
LoadNewFGAFrm
???
End Sub请问怎么写问号部分的代码,比如给新建的窗口caption设置为Three
Private Sub MnuOpenThree_Click()
LoadNewFGAFrm
Screen.ActiveForm.SSTab.SSTabNumber=3
End Sub