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
using System.Diagnostics; using Infragistics.Win; using Infragistics.Win.UltraWinToolbars; private void button3_Click(object sender, System.EventArgs e) { // ---------------------------------------------------------------------------- // PopupMenuTool を作成します PopupMenuTool popupMenuTool1 = new PopupMenuTool("PopupMenu1"); // メニューまたはツールバーに追加する前に、常に新しいツールを // UltraToolbarManager のルート ツール コレクションに追加します this.ultraToolbarsManager1.Tools.Add(popupMenuTool1); // Popup メニューのプロパティを設定します popupMenuTool1.AllowTearaway = true; popupMenuTool1.SharedProps.Caption = "Popup Menu 1"; // ---------------------------------------------------------------------------- // ツールを作成し、メニューに追加します ButtonTool menuButton1 = new ButtonTool("MenuButton1"); ButtonTool menuButton2 = new ButtonTool("MenuButton2"); ButtonTool menuButton3 = new ButtonTool("MenuButton3"); MdiWindowListTool mdiWindowListTool = 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 のルート ツール コレクションに追加します this.ultraToolbarsManager1.Tools.AddRange(new ToolBase [] {menuButton1, menuButton2, menuButton3, mdiWindowListTool} ); // ポップアップ メニューにツールを追加します popupMenuTool1.Tools.AddToolRange(new string [] {"MenuButton1", "MenuButton2", "MenuButton3", "WindowList"} ); // ---------------------------------------------------------------------------- // ツールバーを作成し、ポップアップ メニューをツールバーに追加します this.ultraToolbarsManager1.Toolbars.AddToolbar("MyPopupMenuToolbar"); this.ultraToolbarsManager1.Toolbars["MyPopupMenuToolbar"].Tools.AddTool("PopupMenu1"); // ---------------------------------------------------------------------------- // 2 つ目の PopupMenuTool を作成し、最初の PopupMenuTool に追加しますクリックしたときに、2 つ目のメニューは // 最初のメニューからカスケード表示されます PopupMenuTool popupMenuTool2 = new PopupMenuTool("PopupMenu2"); // メニューまたはツールバーに追加する前に、常に新しいツールを // UltraToolbarManager のルート ツール コレクションに追加します this.ultraToolbarsManager1.Tools.Add(popupMenuTool2); // Popup メニューのプロパティを設定します popupMenuTool2.AllowTearaway = true; popupMenuTool2.SharedProps.Caption = "Popup Menu 2"; // ツールを作成し、2 つ目のメニューに追加します ButtonTool menuButton4 = new ButtonTool("MenuButton4"); ButtonTool menuButton5 = new ButtonTool("MenuButton5"); ButtonTool menuButton6 = 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 のルート ツール コレクションに追加します this.ultraToolbarsManager1.Tools.AddRange(new ToolBase [] {menuButton4, menuButton5, menuButton6} ); // 2 つ目のポップアップ メニューにツールを追加します popupMenuTool2.Tools.AddToolRange(new string [] {"MenuButton4", "MenuButton5", "MenuButton6"} ); // 2 つ目のポップアップ メニューを最初のポップアップ メニューに追加します popupMenuTool1.Tools.AddTool("PopupMenu2"); }