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

Ceci est un exemple de barre de menu! http://msdn.microsoft.com/en-us/library/ms838303.aspx


Merci, mais j'ai réédité cet article de MSDN : http://msdn. microsoft.com/en-us/library/ms838303.aspx, mais j'ai vu que ce composant provient du Odyssey Inc., mais lorsque j'essaie d'accéder au site, je ne trouve pas ce composant à télécharger.

0
Nathan Campos 10 juil. 2009 à 23:49

3 réponses

Meilleure réponse

J'ai posé la même question dans les forums DevBUZZ, et j'ai 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 à l'aide d'une 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
0
Nathan Campos 11 juil. 2009 à 17:00

J'ai finalement trouvé et réinstallé eVB. Voici le code pour ajouter des menus pris directement du fichier d'aide. Je l'ai testé en premier. Ça marche. Tout d'abord, ajoutez une CommandBar. La CommandBar et la MenuBar ont été combinées 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.

2
jac 13 juil. 2009 à 18:44
Merci, alors vous avez réinstallé l'eVB ?? C'est magnifique !! Très bonne chose que vous faites !!!!!!!! Merci!!!!!
 – 
Nathan Campos
14 juil. 2009 à 22:20
J'adore eVB, parce que j'ai un HP Jornada 720, je l'ai acheté l'année dernière, parce que j'aime les vieilles choses !!!! :)
 – 
Nathan Campos
14 juil. 2009 à 22:21

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

1
RBarryYoung 11 juil. 2009 à 02:11