如何判断窗体是否已经存在？

[guoke888]

如何判断窗体是否已经存在？

[lihonggen0]

Dim frm As Form
For Each frm In Forms
Debug.Print frm.Name & "已存在"
Next

[lihonggen0]

以上代码得先在内存中加载窗体

用load 窗体名


------
如果要遍历一个工程中的所有窗体
请分析工程文件.vbp的Forms行
Forms=frmMail.frm

[lihonggen0]

用记事本打开 工程文件.vbp

e.g

Form=Form\W_Sys_Dmwh_ClientY.frm
Form=Form\W_tj_shhhy.frm
Form=Form\W_Sys_Dmwh_Spdm.frm
Form=Form\W_Sys_Dmwh_Level.frm
Form=Form\W_tj_ywjdybb.frm
Form=Form\W_Sys_Dmwh.frm
Form=Form\W_Sq.frm
Form=Form\W_Rymm.frm
Form=Form\W_Jc_Xsfp_PrintEdit.frm
Form=Form\W_Jc_Xsfp_Print.frm
Form=Form\W_Jc_Xsfp_Find.frm
Form=Form\W_Jc_Xsfp_Copy.frm
Form=Form\W_Jc_Xsfp.frm
Form=Form\W_Jc_Shhy_Shjl.frm
Form=Form\w_Jc_Shhy_Sh_Cwts.frm
Form=Form\W_Jc_Shhy_Sh_Brow.frm
Form=Form\W_Jb_Shhy_Cx.frm

[guoke888]

我的意思是：如何判断一个窗体是否已经显示？如果显示则提示：该窗体已经打开

[lihonggen0]

就用这个就可以

Dim frm As Form
For Each frm In Forms
Debug.Print frm.Name & "已存在"
Next


你还可加上判断visible=true
if frm.visible then

[lihonggen0]

Private Sub Command1_Click()
Dim frm As Form
For Each frm In Forms
If frm.Visible Then
Debug.Print frm.Name & "已存在"
End If
Next

End Sub

[strongfisher]

Private Sub Command1_Click()
Dim frm As Form
For Each frm In Forms
If frm.Visible Then
Debug.Print frm.Name & "已存在"
End If
Next

End Sub

[guoke888]

测试成功，待会给分