Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' ----------------------------------------------------------------------------
' PopupMenuTool を作成します
Dim popupMenuTool1 As New PopupMenuTool("PopupMenu1")
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.Add(popupMenuTool1)
' Popup メニューのプロパティを設定します
popupMenuTool1.AllowTearaway = True
popupMenuTool1.SharedProps.Caption = "Popup Menu 1"
' ----------------------------------------------------------------------------
' ツールを作成し、メニューに追加します
Dim menuButton1 As New ButtonTool("MenuButton1")
Dim menuButton2 As New ButtonTool("MenuButton2")
Dim menuButton3 As New ButtonTool("MenuButton3")
Dim mdiWindowListTool As New MdiWindowListTool("WindowList")
' ツールのプロパティを設定します
menuButton1.SharedProps.Caption = "Button1"
menuButton1.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Warning.Handle)
menuButton2.SharedProps.Caption = "Button2"
menuButton2.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Application.Handle)
menuButton3.SharedProps.Caption = "Button3"
menuButton3.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Information.Handle)
' 表示するウィンドウ リストのコマンドを指定します
mdiWindowListTool.DisplayArrangeIconsCommand = MdiWindowListCommandDisplayStyle.Hide
mdiWindowListTool.DisplayCascadeCommand = MdiWindowListCommandDisplayStyle.DisplayOnMenu
mdiWindowListTool.DisplayCloseWindowsCommand = MdiWindowListCommandDisplayStyle.DisplayOnMenuAndDialog
mdiWindowListTool.DisplayMinimizeCommand = MdiWindowListCommandDisplayStyle.DisplayOnMenuAndDialog
mdiWindowListTool.DisplayTileHorizontalCommand = MdiWindowListCommandDisplayStyle.DisplayOnDialog
mdiWindowListTool.DisplayTileVerticalCommand = MdiWindowListCommandDisplayStyle.Hide
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.AddRange(New ToolBase() {menuButton1, menuButton2, menuButton3, mdiWindowListTool})
' ポップアップ メニューにツールを追加します
popupMenuTool1.Tools.AddToolRange(New String() {"MenuButton1", "MenuButton2", "MenuButton3", "WindowList"})
' ----------------------------------------------------------------------------
' ツールバーを作成し、ポップアップ メニューをツールバーに追加します
Me.UltraToolbarsManager1.Toolbars.AddToolbar("MyPopupMenuToolbar")
Me.UltraToolbarsManager1.Toolbars("MyPopupMenuToolbar").Tools.AddTool("PopupMenu1")
' ----------------------------------------------------------------------------
' 2 つ目の PopupMenuTool を作成し、最初の PopupMenuTool に追加しますクリックしたときに、2 つ目のメニューは
' 最初のメニューからカスケード表示されます
Dim popupMenuTool2 As New PopupMenuTool("PopupMenu2")
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.Add(popupMenuTool2)
' Popup メニューのプロパティを設定します
popupMenuTool2.AllowTearaway = True
popupMenuTool2.SharedProps.Caption = "Popup Menu 2"
' ツールを作成し、2 つ目のメニューに追加します
Dim menuButton4 As New ButtonTool("MenuButton4")
Dim menuButton5 As New ButtonTool("MenuButton5")
Dim menuButton6 As New ButtonTool("MenuButton6")
' ツールのプロパティを設定します
menuButton4.SharedProps.Caption = "Button4"
menuButton4.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Hand.Handle)
menuButton5.SharedProps.Caption = "Button5"
menuButton5.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Question.Handle)
menuButton6.SharedProps.Caption = "Button6"
menuButton6.SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.WinLogo.Handle)
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.AddRange(New ToolBase() {menuButton4, menuButton5, menuButton6})
' 2 つ目のポップアップ メニューにツールを追加します
popupMenuTool2.Tools.AddToolRange(New String() {"MenuButton4", "MenuButton5", "MenuButton6"})
' 2 つ目のポップアップ メニューを最初のポップアップ メニューに追加します
popupMenuTool1.Tools.AddTool("PopupMenu2")
End Sub