アプリケーションにメニューバーを挿入する方法

Question

eVBに問題があります。 eVBプロジェクトにメニューバーを配置するにはどうすればいいですか？私はそれを行うためのコンポーネントを見ることができません、そして、私はこれを行う方法を知らない。ここにeVBで作られたメニューバーの例がありますが、私のプログラムではありません。

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

---

おかげで、しかし、私は、MSDNのRESDこの記事ました：私はグーグルで、この画像を見つけた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

は、ここで説明：eVBのをhttp://www.devbuzz.com/Archived/zinc_eVB_MenuBar_pg1.aspx

Answer 3

私は最終的に発見し、再インストール。ここでは、ヘルプファイルからstrightされたメニューを追加するコードです。私はまずそれをテストしました。できます。まず、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" 

私はメニューエディタを見つけませんでした。