vb6 - 如何在应用程序中放置菜单栏

Question

我在使用 eVB 时遇到了一些问题。如何在 eVB 项目中放置菜单栏？我看不到任何组件可以做到这一点，我也不知道该怎么做。这是一个用 eVB 制作的菜单栏的例子，但这不是我的程序。我在 Google 中找到了这张图片：

这是一个菜单栏的例子！http://msdn.microsoft.com/en-us/library/ms838303.aspx

---

谢谢，但我已经回复了 MSDN 的这篇文章：http: //msdn.microsoft.com/en-us/library/ms838303.aspx，但我看到这个组件来自Odyssey Inc.，但是当我尝试访问该站点，我找不到此组件以供下载。

Answer 1

我终于找到并重新安装了 eVB。这是直接从帮助文件中添加菜单的代码。我先测试了一下。有用。首先，添加一个 CommandBar。CommandBar 和 MenuBar 已合并到此工具中。

私有子 Form_Load()
    初始化命令栏
结束子

子初始化命令栏（）
  将 mnuMain 调暗为 CommandbarLib.CommandBarMenuBar
  将 mnuFile 调暗为 CommandbarLib.Item
  Dim mnuEdit As CommandbarLib.Item

  设置 mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "MainMenu")
  '添加文件菜单项
  设置 mnuFile = mnuMain.Items.Add(1, "File", "File")
  mnuFile.SubItems.Add , "打开", "打开"
  mnuFile.SubItems.Add ，“添加”，“添加”
  mnuFile.SubItems.Add , "更新", "更新"
  mnuFile.SubItems.Add ，“删除”，“删除”

  '添加编辑菜单项
  设置 mnuEdit = mnuMain.Items.Add(2, "Edit", "Edit")
                mnuEdit.SubItems.Add , "排序", "排序"
                mnuEdit.SubItems.Add , "查找", "查找"

顺便说一句 - 我没有找到菜单编辑器。

Answer 2

在这里解释：http: //www.devbuzz.com/Archived/zinc_eVB_MenuBar_pg1.aspx

Answer 3

我在 DevBUZZ 论坛中问过同样的问题，我解决了我的问题，这里是更多详细信息的链接：http ://forums.devbuzz.com/How_To_Put_a_Menu_Bar_in_an_Aplication/m_41726/tm.htm

这是使用 CommandBar 执行此操作的代码：

Option Explicit

Private Sub Form_Load()
    InitCommandBar
End Sub

Sub InitCommandBar()
  Dim mnuMain As CommandbarLib.CommandBarMenuBar
  Dim mnuFile As CommandbarLib.Item
  Dim mnuEdit As CommandbarLib.Item

  Set mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "MainMenu")
  'add File menu items
  Set mnuFile = mnuMain.Items.Add(1, "File", "File")
  mnuFile.SubItems.Add , "Open", "Open"
  mnuFile.SubItems.Add , "Add", "Add"
  mnuFile.SubItems.Add , "Update", "Update"
  mnuFile.SubItems.Add , "Delete", "Delete"

  'add Edit menu items
  Set mnuEdit = mnuMain.Items.Add(2, "Edit", "Edit")
                mnuEdit.SubItems.Add , "Sort", "Sort"
                mnuEdit.SubItems.Add , "Find", "Find"
End Sub