怎么判断某个窗体有没有显示？

Question

RT

Answer 1

用visible属性?在delphi中有个showing属性,vb中好象没有....

Answer 2

谁说没有？
在工程中加一个窗体form2,在form1中的按钮中加以下代码试试：
Private Sub Command1_Click()
If Form2.Visible = False Then
   Form2.Show
   Else
   Form2.Hide
   End If
End Sub

Answer 3

'判断窗体是否已经加载 strName窗体名
Public Function IsLoad(strName) As Boolean
    Dim intI As Integer
    For intI = 0 To Forms.Count - 1
        If Forms(intI).Name = strName Then
            IsLoad = True
            Exit Function
        End If
    Next intI
End Function
'

Answer 4

后一种方法可以，我也想过，不过放在timer的代码里太耗资源，所以不想采用
visible比较好，谢了~~~~~~