[转帖]判断窗体是否打开的两种方法

tiangxc

判断窗体是否打开的两种方法

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

zyp

方法三：if currentProject.Allfores("formName").IsLoaded=true then

heqing3000

顶上来，大家学习！

tz-chf

northwind里有了，照抄就行。拿来主义。

lirong

原帖由 zyp 于 2005-10-6 22:16 发表
方法三：if currentProject.Allfores("formName").IsLoaded=true then

你的方法好像行不通,用的那个版本??

andymark

原帖由 zyp 于 2005-10-6 22:16 发表
方法三：if currentProject.Allfores("formName").IsLoaded=true then

应该是AllForms
If CurrentProject.AllForms("formName").IsLoaded = True Then

xryacc

谢谢了，谢谢分享给菜鸟们。

zxp

谢谢奉献,拿了就该谢一声

apsfxc1

学习