请问怎么判断一个FORM是否SHOW在桌面上?

Question

判断visible属性或判断form的状态。

Answer 1

Private Sub Command1_Click()
Dim objFrm As Form
For Each objFrm In VB.Forms
    If objFrm.Name = "Form1" Then
        MsgBox "Show"
        Exit For
    End If
Next
End Sub

Answer 2

判断visible属性没有用,它还没有show出来时它的visible也是true,怎样判的状态呢?

Answer 3

Dim frmTemp As Form
    For Each frmTemp In Forms
      If frmTemp.Name = yourform.Name Then
        msgbox "yourform 已经show"
      End If
    Next

Answer 4

楼上的那种方法只能说明窗体已经加载，要说明窗体已经显示还要判断visible属性！