Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
' すべてのツールバーの外観にデフォルトの背景色および前景色を設定します
Me.UltraToolbarsManager1.ToolbarSettings.Appearance.BackColor = Color.LightBlue
Me.UltraToolbarsManager1.ToolbarSettings.Appearance.ForeColor = Color.DarkBlue
Me.UltraToolbarsManager1.ToolbarSettings.DockedAppearance.BackColor = Color.LightGray
Me.UltraToolbarsManager1.ToolbarSettings.DockedAppearance.ForeColor = Color.DarkGray
Me.UltraToolbarsManager1.ToolbarSettings.EditAppearance.BackColor = Color.White
Me.UltraToolbarsManager1.ToolbarSettings.EditAppearance.ForeColor = Color.Red
Me.UltraToolbarsManager1.ToolbarSettings.FloatingAppearance.BackColor = Color.Yellow
Me.UltraToolbarsManager1.ToolbarSettings.FloatingAppearance.ForeColor = Color.Blue
Me.UltraToolbarsManager1.ToolbarSettings.HotTrackAppearance.BackColor = Color.Black
Me.UltraToolbarsManager1.ToolbarSettings.HotTrackAppearance.ForeColor = Color.Green
Me.UltraToolbarsManager1.ToolbarSettings.PressedAppearance.BackColor = Color.White
Me.UltraToolbarsManager1.ToolbarSettings.PressedAppearance.ForeColor = Color.Black
Me.UltraToolbarsManager1.ToolbarSettings.ToolAppearance.BackColor = Color.Aqua
Me.UltraToolbarsManager1.ToolbarSettings.ToolAppearance.ForeColor = Color.Chocolate
' 特定のツールバーのデフォルト外観の前景色設定をオーバーライドします
If Me.UltraToolbarsManager1.Toolbars.Count > 0 Then
Dim toolBar As UltraToolbar = Me.UltraToolbarsManager1.Toolbars(0)
toolBar.Settings.Appearance.ForeColor = Color.DarkBlue
toolBar.Settings.DockedAppearance.ForeColor = Color.DarkGray
toolBar.Settings.EditAppearance.ForeColor = Color.Red
toolBar.Settings.FloatingAppearance.ForeColor = Color.Blue
toolBar.Settings.HotTrackAppearance.ForeColor = Color.Green
toolBar.Settings.PressedAppearance.ForeColor = Color.Black
toolBar.Settings.ToolAppearance.ForeColor = Color.Chocolate
End If
End Sub