Question

vb6.0请问怎么判断Form2是否打开?

我用 If Form2.Visible = True Then.....来判断form2是否已经显示，后来用调试发现执行这一句以后，程序会跳去执行form2的Form_Load，导致程序错乱。请问有没有办法判断Form2是否打开？
多谢

Answer 1

判断窗体有没打开有个集合可以，但在列表中没有提示：forms，这个集合包含的是被载入的窗体，包括未被显示的。

Private Sub Command1_Click() '添个按钮试验一下
    'Load Form2
    MsgBox isOpen("Form2")
End Sub
Function isOpen(fName As String) As Boolean
Dim f As Form
For Each f In Forms
    If f.Name = fName Then
        isOpen = True
        Exit For
    End If
Next
End Function

追问

最后需不需要 Set f = Nothing?

追答

最后加一句也没关系，这是私有变量，理论上来说它会自动取消了。

Answer 2

暂时想到了一个比较笨的方法,不介意的话试下
Dim WithEvents frmTest As Form
Private Sub Command1_Click()
MsgBox IIf(frmTest Is Nothing, "form2没打开", "form2已打开")
End Sub
Private Sub Command2_Click()

Set frmTest = Form2
frmTest.Show
End Sub
Private Sub frmTest_Unload(Cancel As Integer)

Set frmTest = Nothing
End Sub

Answer 3

设置一个全局变量，记录form2是否显示。form2显示的时候赋值true，不显示的时候false。然后根据这个变量的值进行判断

追问

太麻烦了

追答

跟别人的比这是最方便的了。

Answer 4

用一个TImer控件设置时间1000毫秒。用这个HWND SetFocus（HWND hWnd）函数判断是否获取焦点。