高校问答星际战甲下载速度几kb:VB问题！请高手进入！
来源：百度文库 编辑：高校问答 时间：2024/04/28 03:24:39
现在有一个FORM1，和一个FORM2。
FORM1有一个CMD.
If (FORM2已经打开) then
msgbox"FORM2已经打开"
Else
msgbox"FORM2关闭"
End if
End sub
－－－－－－－－－
请问（）里面的代码应该怎么写？
请高手解答！！谢谢！
FORM1有一个CMD.
If (FORM2已经打开) then
msgbox"FORM2已经打开"
Else
msgbox"FORM2关闭"
End if
End sub
－－－－－－－－－
请问（）里面的代码应该怎么写？
请高手解答！！谢谢！
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim h As Long
h = FindWindow(vbNullString, "Form2")
If h <> 0 Then
MsgBox "FORM2已经打开"
Else
MsgBox "FORM2关闭"
End If