论坛: 编程破解 标题: 判断窗体是否打开的两种方法 复制本贴地址    
作者: a_one [a_one]    论坛用户   登录
判断窗体是否打开的两种方法
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


地主 发表时间: 04-06-10 14:02

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号