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

Question

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

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

谢谢，但是我重新阅读了MSDN：http://msdn.microsoft.com/en-us/library/ms838303.aspx的这篇文章，但是我看到这个组件来自奥德赛公司，但是当我尝试访问站点时，我找不到这个组件供下载。

Answer 1

我在DevBUZZ foruns中提出了同样的问题，并且解决了我的问题，下面是更多细节的链接：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

Answer 2

在这里解释：pg1.aspx