2010-11-22 331 views
0

有人可以給我一些代碼來動態創建菜單嗎?以編程方式創建菜單DevExpress

具體我想:

  • 創建新的色帶頁面(選項卡上,我認爲這就是所謂的帶狀頁)
  • 接下來,創建一個頁面標題
  • 接下來,加入2個區組和添加標題給他們
  • 下一個加3個欄按鈕項目第一功能區組

有人可以給我一些代碼來完成ŧ他?

+0

絲帶頁面?你可以給組件名稱? – 2010-11-22 22:10:34

回答

0
Dim menu As New RibbonControl 


    Dim aPage As New RibbonPage("Nicks Page") 

    'groups 
    Dim aGroup1 As New RibbonPageGroup("1st Group") 


    'ADD BUTTONS TO RIBBON GROUP HERE 
    Dim i As New DevExpress.XtraBars.BarButtonItem() 

    i.Caption = "Nicks Button" 

    aGroup1.ItemLinks.Add(i) 




    Dim i2 As New DevExpress.XtraBars.BarButtonItem() 
    i2.Caption = "Nicks Other Button" 

    aGroup1.ItemLinks.Add(i2) 




    aPage.Groups.Add(aGroup1) 

    menu.Pages.Add(aPage) 

    Me.Controls.Add(menu) 
相關問題