制 作 带 图 标 菜 单

湖 北 省 丹 江 口 职 工 大 学
机 电 科 　 杨 勇

---- 安 装ActiveBar 控 件 后， 启 动VB 建 立 一 个 新 的 工 程 文 件。 选 择 工 程  部 件 → 控 件→ActiveBar Control, 调 出 工 具 箱 窗 口， 在 窗 口 的 最 下 方 可 以 看 到ActiveBar 控 件。 点 击 此 控 件， 在 窗 体 中 画 出 它， 大 小 位 置 随 意。 在 窗 体 中 的 控 件 上 右 击 鼠 标， 选 择Designer 选 项， 弹 出 控 件 设 计 程 序。

----点 取Tools 窗 口 中 的 按 钮， 在 弹 出 的 Manage Categories 对 话 框 中 增 加 两 个 新 的category， 分 别 为File 和Main。 在 Tools 窗 口 中 选 择File, 点 取Insert→Tools, 在 弹 出 的 对 话 框 中 输 入Caption 为 ＆New，Name 为 变 量 名miNew，Shortcut Key 为Ctrl ＋N， 最 关 键 的 是 点 取 Description 中 的Image 按 钮， 自 己 创 作 或 从 剪 贴 板 上 粘 贴 一 副 图 片， 单 击Apply 应 用 按 钮。 同 时 建 立Open、Save、Print 等 菜 单 项。 点Bands 窗 口， 选Insert→Band→Popub Menu。 在PopupBand1 上 右 击 鼠 标， 选 择Edit Properties， 输 入Caption 为File， 按OK。 双 击Bands 窗 口 中 的PopupBand1， 选 取Tools 中 的 File 选 项， 将 刚 才 建 立 的 图 标 按 钮 依 次 拖 动 到File 窗 口 中。

----在Tools 窗 口 中 选 取Main 选 项， 选Insert  Tools, 输 入Caption 为 ＆File，Name 为miName，Shortcut Key 为Ctrl ＋F，SubBand 为 PopubBand1。 选 择Insert→Band→Menu Bar， 双 击Bands 中 的MnuBand1， 将Tools 窗 口 中 的Main 选 项 下 的File 图 标 按 钮 拖 入MnuBand1 窗 口 中。 结 果 如 下 所 示， 可 以 将 这 个 过 程 保 存 起 来。

----回 到VB 工 程 窗 口 中， 右 击 鼠 标 右 键， 查 看ActiveBar1 的 代 码 并 加 入 如 下 内 容： 

Private Sub ActiveBar1_Click(ByVal 
  Tool As ActiveBarLibraryCtl.Tool)
  Select Case Tool.Name
  Case "miNew"
  NewFile ' Create a new document
  Case "miOpen"
  OpenFile  ' Open an existing file
  Case "miSave"
  SaveFile  ' Save File
  Case "miPrint"
    PrintFile   ' Print current open file
  End Select
End Sub

----编 译， 运 行， 大 功 告 成 了， 我 终 于 看 到 了 那 具 有 图 标 的 下 拉 菜 单 了。

返回