응용 프로그램에 메뉴 모음 넣는 방법

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

는 여기에 설명 : http://www.devbuzz.com/Archived/zinc_eVB_MenuBar_pg1.aspx

Answer 3

드디어 발견을 eVB을 재설치. 다음은 도움말 파일에서 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" 

BTW - 메뉴 편집기를 찾지 못했습니다.