判断窗体是否打开的两种方法 |
判断窗体是否打开的两种方法 Function IsLoaded(strName As String, Optional intObjectType As Integer = acForm) IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0) End Function 函数二 Function IsFormLoaded(strFrmName As String) As Boolean Const conFormDesign = 0 Dim intX As Integer IsFormLoaded= False For intX = 0 To Forms.Count - 1 If Forms(intX).FormName = strFrmName Then If Forms(intX).CurrentView <> conFormDesign Then IsFormLoaded= True Exit Function ' Quit function once form has been found. End If End If Next End Function |
联系客服