vb中如何判断一个窗体是否已加载？

Question

如果你是用Shell调用程序那就不一样了

Answer 1

难道在FORM_LOAD中加个MSGBOX不更简单？？

Answer 2

在窗体集合中进行查找for each form in forms
 if form.name="要查找的窗体名" then
   msgbox "加载！"
 end if
next

Answer 3

同意楼上. 定义一个该窗体的public变量比较好!

Answer 4

dim mfrmname as frmnameif not fromName is nothing then
  set mfrmname=new frmName
end if

Answer 5

Forms 集合示例
这个示例把当前所有已加载的窗体的标题填入列表框。Private Sub Form_Activate ()
   Dim I   ' Declare variable.
   ' 重新填充列表(当添加或删除一个实例时)。
   lstForms.Clear   ' Clear list box.
   For I = 0 To Forms.Count - 1
      lstForms.AddItem Forms(I).Caption
   Next I
End Sub

Answer 6

private function FormExists(formName as string) as boolean
dim i as integer
for i=0 to forms.count-1
    if forms(i).name=formname
        formExists=true
        exit sub
    end if
next i
formExists=false
end function调用if formExists("form1") then
       msgbox "aa"
    end if

Answer 7

啊，错了。 exit sub 改成exit function

Answer 8

判断别的（SHELL调用）程序怎么办？

Answer 9

呵呵
判断别的（SHELL调用）程序怎么办？
用
GetWindowThreadProcessId 
OpenProcess 进行判断