判断窗体是否打开的两种方法
判断窗体是否打开的两种方法
Function is loaded(strName As string,可选into object type As Integer =
AC form)
is loaded =(sys cmd(acSysCmdGetObjectState,into object type,strName) 0)
End Function
两个函数
function is form loaded(strffmname as string)为布尔值
const conform design = 0
Dim intX为整数
对于intX = 0的表单,is form loaded = False
。Count - 1
If Forms(intX)。FormName = str fromname Then
If Forms(intX)。一旦找到表单,current view conform design Then
is form loaded = True
Exit Function '退出函数。
End If
End If
Next
结束功能
位律师回复
0条评论