Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' ----------------------------------------------------------------------------
' 2 つのツールバーを作成し、UltraToolbarManager のツールバー コレクションに追加します
Me.UltraToolbarsManager1.Toolbars.AddToolbarRange(New String() {"MyToolbar1", "MyToolbar2"})
' ----------------------------------------------------------------------------
' ボタン ツールを作成し、'MyToolbar1' および 'MyToolbar2' に追加します
Dim buttonTool As New ButtonTool("MyButton")
' メニューまたはツールバーに追加する前に、常に新しいツールを
' UltraToolbarManager のルート ツール コレクションに追加します
Me.UltraToolbarsManager1.Tools.Add(buttonTool)
' ツールの 1 つのインスタンスを 'MyToolbar1' に追加し、他のインスタンスを 'MyToolbar2' に追加します
Me.UltraToolbarsManager1.Toolbars("MyToolbar1").Tools.AddTool("MyButton")
Me.UltraToolbarsManager1.Toolbars("MyToolbar2").Tools.AddTool("MyButton")
' ----------------------------------------------------------------------------
' ツールの 2 つのインスタンスに影響する 'MyButton' のプロパティを変更
' しますそのためには、ツールの SharedProps オブジェクトにアクセスします
Me.UltraToolbarsManager1.Tools("MyButton").SharedProps.DisplayStyle = ToolDisplayStyle.ImageAndText
Me.UltraToolbarsManager1.Tools("MyButton").SharedProps.Caption = "Basic Caption"
Me.UltraToolbarsManager1.Tools("MyButton").SharedProps.AppearancesSmall.Appearance.Image = Bitmap.FromHicon(SystemIcons.Information.Handle)
' ----------------------------------------------------------------------------
' 'MyToolbar1' 上にある 'MyButton' インスタンスのプロパティを変更します
' そのためには、'MyToolbar1' の Tools コレクションにあるツールのインスタンスを取得して、
' その InstancedProps オブジェクトにアクセスします
Me.UltraToolbarsManager1.Toolbars("MyToolbar1").Tools("MyButton").InstanceProps.Caption = "Special Caption"
Me.UltraToolbarsManager1.Toolbars("MyToolbar1").Tools("MyButton").InstanceProps.IsFirstInGroup = True
End Sub