判断窗体是否打开的两种方法

概要：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 <> conFormDesig

判断窗体是否打开的两种方法,标签：电脑技巧大全,电脑技术,http://www.laixuea.com

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