帮帮我啊 ！

Question

在vb中我想通过一个函数来检测窗体是否被打开（show）是用什么函数的？急

Answer 1

dim obj as form
for each obj on forms
...
if obj.name=要检测的窗体.name then msgbox "窗体已经showed"
...
next
set obj=nothing

Answer 2

private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Function IsShow(FormName As String) As Boolean
    Dim lR As Long
    lR = FindWindow(vbNullString, FormName)
    If lR <> 0 Then
        IsShow = True 
    Else
        IsShow = False 
    End If
End Function
Private Sub Command1_Click()
if IsShow("C窗体的标题")=False then
    c.show
else
    msgbox "c窗体已经打开"
end if
End Sub

Answer 3

这样不行啊！for each obj on forms说什么语法错误

Answer 4

for each obj in forms

Answer 5

... 写错了.是用"in"... sorry 一下...

Answer 6

检测子窗体是否被打开（show）是用什么函数的

Answer 7

用sinom(毛毛.小狮子.小白MOU) 的方法。