判斷窗體是否打開(kāi)的兩種方法

判斷窗體是否打開(kāi)的兩種方法
    Function IsLoaded(strName As String, Optional intObjectType As Integer =
    acForm)
    IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
    End Function
    函數(shù)二
    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