您现在的位置： > 技术沙龙 > 数据库 > Access > 判断窗体是否打开的两种方法
- 相关软件
>判断窗体是否打开的两种方法 创建者：webmaster 更新时间：2005-05-17 23:43
判断窗体是否打开的两种方法
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相关文章- 前一则: 在窗体间传递参数的几种常用办法
- 后一则: 打印再添一例，自动分页