怎样得到工程中的所有form

Question

dim frm as form
for each frm in forms
    debug.print frm.name
next

Answer 1

dim frm as form
for each frm in forms()
    debug.print frm.name
next

Answer 2

for i=0 to forms.count -1
  debug.print forms(i).name
next i

Answer 3

这要看你要做什么用了，以上的方法只能得到运行时的Form，所以并不准确。

Answer 4

我想只能可能去分析vbp文件了:)

Answer 5

y1g1y1(袁飞☆曾经沧海难为水，除却VB不是云☆)   的方法只能获得已加载的窗体，没有加载的则不能显示

Answer 6

vbp文件中Form=xxxxxxxxxx的所有行