求助：判断窗体打开的VB语言

abinghome

有两个窗体：销售合同和购进合同，在购进合同窗体里面要添加控件，需要判断销售合同窗体是否已经打开。请教各位DX，怎样编写VB语言？（在《开发答疑200问》里面只有通用的例句，自己还不会用）

tz-chf

northwind里有，isloaded

tmtony

方法一  使用下列函数

'===============================================================================

'-函数名称:         gt_IsLoaded

'-功能描述:         判别窗体是否已经加载

'-输入参数说明:     参数1:rstrFrmName String 窗体名称

'

'-返回参数说明:     Boolean True表示加载 False 表示没有加载

'-使用语法示例:     gt_IsLoaded("窗体名")

'-参考:

'-使用注意:         XP已有替换它的内部函数

'-兼容性:           97,2000,XP compatible

'-作者:             王宇虹，改进：王宇虹

'-更新日期：        2002-08-26

'===============================================================================

Public Function gt_IsLoaded(ByVal rstrFrmName As String) As Boolean

Const conObjStateClosed = 0

Const conDesignView = 0If SysCmd(acSysCmdGetObjectState, acForm, rstrFrmName) <> conObjStateClosed Then

    If Forms(rstrFrmName).CurrentView <> conDesignView Then

        gt_IsLoaded = True

    End If

End IfEnd Function方法二:也可使用下列函数

CurrentProject.AllForms("窗体名").IsLoaded