怎么获取vb程序自身所有窗体的caption?窗体的个数和名称不固定的情况下

怎么获取程序自身所有窗体的caption?窗体的个数和名称不固定的情况下


--------------------编程问答-------------------- for each…… --------------------编程问答-------------------- 不行啊,只能获得当前单个啊

Dim chuangti As String

Dim fr As Form

  For Each fr In Forms

    chuangti = chuangti + fr.Caption

  Next

    MsgBox chuangti

--------------------编程问答-------------------- 用API枚举所有子窗口 --------------------编程问答-------------------- 到这个里面下载EnumWindows --------------------编程问答--------------------

引用 3 楼  的回复:

用API枚举所有子窗口

引用 4 楼  的回复:

到这个里面下载EnumWindows

你的代码没有问题：

Dim chuangti As String

Dim fr As Form

  For Each fr In Forms

    chuangti = chuangti + fr.Caption

  Next

    MsgBox chuangti

上面两位都在胡说！ 真正的原因是：
一个窗体在没激活之前，根本不会载入内存！
它平躺在硬盘里，用EnumWindows能找到？
只有窗体被激活后，才会出现在Forms集合中。
也只有在Forms集合里的 被激活了的窗体，你才可以获取到Caption属性！
--------------------编程问答--------------------

引用 5 楼  的回复:

引用 3 楼 的回复:

用API枚举所有子窗口



引用 4 楼 的回复:

到这个里面下载EnumWindows


你的代码没有问题：

VB code


Dim chuangti As String
Dim fr As Form
  For Each fr In Forms
    chuangti = chuangti + fr.Caption
……

看情况，窗体标题可变的情况下，就没有好的办法取得。固定的标题就好处理了，方式多。

补充：VB ,  基础类