如何知道工程中有多少个窗体.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 13 行

VB有 一 个 Forms 集 合 ， 它 的 元 素 代 表 每 一 个 在 应 用 程 序 中 加 载 的 窗 体 （ 不 包 括 未 加 载 的 窗 体 ） 。 集 合 包 括 应 用 程 序 的 MDI 窗 体 ,MDI 子 窗 体 和 非 MDI 窗 体 。 Forms 集 合 只 有 一 个 属 性 Count， 指 定 集 合 中 元 素 的 数 目 。 
    下 面 这 个 示 例 把 当 前 所 有 已 加 载 的 窗 体 的 标 题 填 入 列 表 框 。 
    Private Sub Form_Activate () 
     Dim I ' Declare variable. 
     ' Refill list (in case an instance was added or removed). 
     lstForms.Clear ' Clear list box. 
     For I = 0 To Forms.Count - 1 
     lstForms.AddItem Forms(I).Caption 
     Next I 
    End Sub 
    不 过 没 有 加 载 的 窗 体 是 无 法 使 用 这 个 方 法 访 问 的 。 
<END>