Imports Infragistics.Win.UltraWinToolbars ... Private Sub CreateandAddToolsatRunTime_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load ' ツールを作成します。 Dim button1 As New ButtonTool("button1") Dim textbox1 As New TextBoxTool("textbox1") Dim color1 As New PopupColorPickerTool("color1") Dim label1 As New LabelTool("label1") ' これらをツール コレクションに追加します。 Me.UltraToolbarsManager1.Tools.Add(button1) Me.UltraToolbarsManager1.Tools.Add(textbox1) Me.UltraToolbarsManager1.Tools.Add(color1) Me.UltraToolbarsManager1.Tools.Add(label1) Dim objToolbar As New UltraToolbar("toolbar1") Me.UltraToolbarsManager1.Toolbars.AddToolbar("toolbar1") label1.SharedProps.Caption = "Label" ' ツールを指定されたツールバーに追加します。 Me.UltraToolbarsManager1.Toolbars("toolbar1").Tools.AddTool("button1") Me.UltraToolbarsManager1.Toolbars("toolbar1").Tools.AddTool("textbox1") Me.UltraToolbarsManager1.Toolbars("toolbar1").Tools.AddTool("color1") Me.UltraToolbarsManager1.Toolbars("toolbar1").Tools.AddTool("label1") '** ツールを作成してメニューバーに追加します ** ' ツールを作成します。 Dim menu1 As New PopupMenuTool("menu1") Dim submenu1 As New PopupMenuTool("submenu1") Dim button2 As New ButtonTool("button2") Dim button3 As New ButtonTool("button3") Dim button4 As New ButtonTool("button4") Dim objMenuBar As New UltraToolbar("menubar") Me.UltraToolbarsManager1.Toolbars.AddToolbar("menubar") ' これらをツール コレクションに追加します。 Me.UltraToolbarsManager1.Tools.Add(menu1) Me.UltraToolbarsManager1.Tools.Add(submenu1) Me.UltraToolbarsManager1.Tools.Add(button2) Me.UltraToolbarsManager1.Tools.Add(button3) Me.UltraToolbarsManager1.Tools.Add(button4) ' メニューに表示される各ツールのキャプションを設定します。 menu1.SharedProps.Caption = "Menu1" submenu1.SharedProps.Caption = "Submenu1" button2.SharedProps.Caption = "button2" button3.SharedProps.Caption = "button3" button4.SharedProps.Caption = "button4" ' ツールをメニューに追加します。 menu1.Tools.AddTool("submenu1") menu1.Tools.AddTool("button2") menu1.Tools.AddTool("button3") ' サブメニューとなるメニュー ツールを追加します。 submenu1.Tools.AddTool("button4") ' メニュー ツールをメニューバーに追加します。 Me.UltraToolbarsManager1.Toolbars("menubar").Tools.AddTool("menu1") End Sub