Office中国论坛/Access中国论坛

标题: 不论窗体是最大化还是最小化,检测窗体是否打开? [打印本页]

作者: fatmingli    时间: 2003-3-12 01:18
标题: 不论窗体是最大化还是最小化,检测窗体是否打开?
Function IsLoaded(strName As String, Optional intObjectType As Integer =
acForm)
IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)
End Function
这是我找到的模块,对吗?怎么用?
if 窗体1 已经打开 then
......
end if

作者: marco2    时间: 2003-3-12 18:52
用法为:
If IsLoaded("你的窗体名") Then
   MsgBox "已经打开了"
End If




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3