在vb中如何动态产生菜单.txt

VB技巧问答10000例 VB技巧问答10000例

如 果 你 说 的 “ 动 态 产 生 菜 单 ” 指 的 是 动 态 弹 出 菜 单 ， 应 该 使 用 PopupMenu语 句 。 如 果 你 指 是 动 态 地 增 加 菜 单 项 ， 可 以 使 用 下 面 的 办 法 。 首 先 假 定 你 的 菜 单 中 有 一 项 mnuItems， 要 在 它 的 下 面 增 加 新 的 菜 单 项 。 你 可 以 在 菜 单 设 计 窗 口 中 设 定 Index属 性 为 0。 然 后 ， 在 程 序 中 使 用 下 面 的 代 码 就 可 以 增 加 菜 单 项 了 ： 
    Load mnuItems(1) 
    mnuItems(1).Caption = "Item 1" 
    mnuItems(1).Visible = True 
    理 论 上 ， 也 可 以 使 用 Windows API中 的 InsertMenu等 函 数 添 加 菜 单 ， 但 由 于 当 用 户 选 择 菜 单 时 ， 难 以 获 得 相 应 的 消 息 (可 以 使 用 Message Blaster、 MsgHook等 控 件 或 子 类 技 术 )， 所 以 很 少 使 用 。 你 可 以 参 考  “vb6中动态建立带子菜单的菜单”以 获 得 这 方 面 的 例 子 。 
<END>