如何知道哪几个Form已经被Load?

Question

dim f as form
for each f in forms    select case typename(f)
    case "form1"
         'form1 has been loaded
    case "form2"
         'form2 has been loaded
    case ...
    end select
next

Answer 1

可以读formname.hWnd，如果大于0则该form以被打开。

Answer 2

如果是MDI窗体，Forms(0)为MDIForm
Forms.Count为个数
Forms(i).Name为为窗体的名称

Answer 3

同意ghoststudio和un1的看法。另外，如果窗体总数较少，可以用一些标志变量来判断(如按钮的按下与否等)。

Answer 4

dim frm as form
for each frm in forms
  list1.additem frm.name
next