Как поставить строку меню в приложении - PullRequest
Новая
       34

Как поставить строку меню в приложении

0 голосов
/ 10 июля 2009

У меня проблемы с eVB. Как поместить строку меню в проект eVB? Я не вижу никаких компонентов, чтобы сделать это, и я не знаю, как это сделать. Вот пример строки меню, созданной в eVB, но это не моя программа. Я нашел это изображение в Google:

Это пример строки меню! http://msdn.microsoft.com/en-us/library/ms838303.aspx

Спасибо, но я переделал эту статью MSDN: http://msdn.microsoft.com/en-us/library/ms838303.aspx,, но я вижу, что этот компонент из Odyssey Inc. , но когда я пытаюсь получить доступ к сайту я не могу найти этот компонент для загрузки.

Ответы [ 3 ]

2 голосов
/ 11 июля 2009

Я наконец нашел и переустановил 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"

Кстати - я не нашел редактора меню.

1 голос
/ 11 июля 2009
0 голосов
/ 11 июля 2009

Я задавал тот же вопрос в форумах DevBUZZ, и я решил свою проблему, вот ссылка для более подробной информации: http://forums.devbuzz.com/How_To_Put_a_Menu_Bar_in_an_Aplication/m_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
...