0

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.からのものであることを確認しました、しかし私がダウンロードするこのコンポーネントが見つからないサイトにアクセスしてみてください。

4

3 に答える 3

1

ここで説明: http://www.devbuzz.com/Archived/zinc_eVB_MenuBar_pg1.aspx

于 2009-07-10T22:11:51.263 に答える
0

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
于 2009-07-11T13:00:19.463 に答える