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

我和eVB有些问题。如何在eVB项目中放置菜单栏？我看不到任何组件可以做到这一点，我也不知道如何做到这一点。这是一个用eVB制作的菜单栏示例，但它不是我的程序。我在谷歌上找到了这张图片：

---

---

谢谢，但是我重新发布了MSDN的这篇文章，但是我看到这个组件来自，但是当我尝试访问该站点时，我找不到这个组件可供下载。

此处解释：

此处解释：

我终于找到并重新安装了eVB。下面是添加直接从帮助文件中获取的菜单的代码。我先测试了一下。它起作用了。首先，添加一个命令栏。CommandBar和MenuBar已组合到该工具中

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" 专用子表单_加载（） 初始化命令栏 端接头 子InitCommandBar（） Dim mnuMain作为CommandbarLib.CommandBarMenuBar 将mnuFile设置为CommandbarLib.Item 将mnuEdit设置为CommandbarLib.Item Set mnuMain=CommandBar1.Controls.Add（cbrMenuBar，“主菜单”） '添加文件菜单项 设置mnuFile=mnuMain.Items.Add（1，“文件”，“文件”） mnuFile.SubItems.Add，“打开”，“打开” mnuFile.SubItems.Add，“添加”，“添加” mnuFile.SubItems.Add，“更新”，“更新” mnuFile.SubItems.Add，“删除”，“删除” '添加编辑菜单项 设置mnuEdit=mnuMain.Items.Add（2，“编辑”，“编辑”） mnuEdit.SubItems.Add，“排序”，“排序” mnuEdit.SubItems.Add，“查找”，“查找”

---

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

我终于找到并重新安装了eVB。下面是添加直接从帮助文件中获取的菜单的代码。我先测试了一下。它起作用了。首先，添加一个命令栏。CommandBar和MenuBar已组合到该工具中

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" 专用子表单_加载（） 初始化命令栏 端接头 子InitCommandBar（） Dim mnuMain作为CommandbarLib.CommandBarMenuBar 将mnuFile设置为CommandbarLib.Item 将mnuEdit设置为CommandbarLib.Item Set mnuMain=CommandBar1.Controls.Add（cbrMenuBar，“主菜单”） '添加文件菜单项 设置mnuFile=mnuMain.Items.Add（1，“文件”，“文件”） mnuFile.SubItems.Add，“打开”，“打开” mnuFile.SubItems.Add，“添加”，“添加” mnuFile.SubItems.Add，“更新”，“更新” mnuFile.SubItems.Add，“删除”，“删除” '添加编辑菜单项 设置mnuEdit=mnuMain.Items.Add（2，“编辑”，“编辑”） mnuEdit.SubItems.Add，“排序”，“排序” mnuEdit.SubItems.Add，“查找”，“查找”

---

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

我在DevBUZZ foruns中问了同样的问题，我解决了我的问题，下面是链接以了解更多详细信息：

下面是使用命令栏执行此操作的代码：

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

---

我在DevBUZZ foruns中问了同样的问题，我解决了我的问题，以下是链接以了解更多详细信息：

下面是使用命令栏执行此操作的代码：

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

---

谢谢，那么您已经重新安装了eVB？？太棒了！！你做的很好！！！！！！！！谢谢我喜欢eVB，因为我有一台HP Jornada 720，我去年买了它，因为我喜欢旧的东西！！！！：）谢谢，那么您已经重新安装了eVB？？太棒了！！你做的很好！！！！！！！！谢谢我喜欢eVB，因为我有一台HP Jornada 720，我去年买了它，因为我喜欢旧的东西！！！！：）