这是一个新建文件的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

解决方案 »

  1.   

    screen.activeform.caption = "three"
      

  2.   

    子窗体里面有一个sstab控件,使用下面的代码为什么出错,提示对象不支持属性或者方法
     
    Private Sub MnuOpenThree_Click()
        LoadNewFGAFrm
        Screen.ActiveForm.SSTab.SSTabNumber=3
    End Sub
      

  3.   

    我的意思是,对于子窗体上的空间,难道也是用Screen.ActiveForm.control 来控制么?
      

  4.   

    Screen.ActiveForm 是 Form对象 所以它有普通Form应该有的所有属性建议定义数组,把窗体变量放在函数外面定义,这样比较好控制