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

Question

我在使用eVB时遇到了一些问题。如何将菜单栏放入eVB项目中？我看不到任何组件要这样做，我不知道该怎么做。这里是eVB中的一个菜单栏的例子，但它不是我的程序。我发现在谷歌这个形象：

This is a example of menu bar! http://msdn.microsoft.com/en-us/library/ms838303.aspx

---

谢谢，但我已经RESD本文MSDN的：http://msdn.microsoft.com/en-us/library/ms838303.aspx，但我已经看到，这个组件是从Odyssey Inc.，但是当我尝试访问该网站，我无法找到该组件进行下载。

Answer 1

我问过同样的问题在DevBUZZ foruns，我解决我的问题，这里是链接了解详情：http://forums.devbuzz.com/How_To_Put_a_Menu_Bar_in_an_Aplication/m_41726/tm.htm

这里是代码来做到这一点使用一个命令栏：

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

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

Answer 3

我终于找到并重新安装eVB中。这里是添加从帮助文件中采取的菜单的代码。我先测试一下。有用。首先，添加一个CommandBar。 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" 

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