Comment mettre une barre de menu dans une application

Question

J'ai des problèmes avec eVB. Comment puis-je mettre une barre de menu dans un projet eVB? Je ne vois aucun composant pour le faire, et je ne sais pas comment faire. Voici un exemple de barre de menu faite en eVB, mais ce n'est pas mon programme. J'ai trouvé cette image dans Google:

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

---

Merci, mais j'ai resd cet article de MSDN: http://msdn.microsoft.com/en-us/library/ms838303.aspx, mais je l'ai vu que ce composant est de la Odyssey Inc., mais lorsque je tente Pour accéder au site, je ne trouve pas ce composant à télécharger.

Answer 1

J'ai posé la même question dans les foruns de DevBUZZ, et je résolu mon problème, voici le lien pour plus de détails: http://forums.devbuzz.com/How_To_Put_a_Menu_Bar_in_an_Aplication/m_41726/tm.htm

Et voici le code pour le faire en utilisant un 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

explicités ici: http://www.devbuzz.com/Archived/zinc_eVB_MenuBar_pg1.aspx

Answer 3

j'ai finalement trouvé et ré-installé eVB. Voici le code pour ajouter des menus pris dans le fichier d'aide. Je l'ai testé en premier. Ça marche. D'abord, ajoutez un CommandBar. Le CommandBar et MenuBar ont été combinés dans cet outil.

 
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" 

BTW - Je n'ai pas trouvé d'éditeur de menu.