Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button36.Click
' All the code below operates on the first Group so make sure we have at
' least one group.
If (Me.ultraExplorerBar1.Groups.Count < 1) Then
Return
End If
' Get the fully resolved appearance for the Item Area of the first Group and display
' the setting for backcolor.
Dim appearanceData As AppearanceData = New AppearanceData()
Dim requestedProperties As AppearancePropFlags = AppearancePropFlags.BackColor
Me.ultraExplorerBar1.Groups(0).ResolveItemAreaAppearance(appearanceData, requestedProperties)
Debug.WriteLine("The backcolor for first group's item area is '" + AppearanceData.BackColor.ToString())
' Get the fully resolved appearance for the Header of the first Group and display
' the setting for ForeColor.
appearanceData = New AppearanceData()
requestedProperties = AppearancePropFlags.ForeColor
Me.ultraExplorerBar1.Groups(0).ResolveHeaderAppearance(appearanceData, requestedProperties)
Debug.WriteLine("The forecolor for first group's header is '" + AppearanceData.ForeColor.ToString())
' Get the fully resolved appearance for the scroll buttons in the first Group and display
' the settings for BackColor, ForeColor and BorderColor.
appearanceData = New AppearanceData()
requestedProperties = AppearancePropFlags.BackColor Or AppearancePropFlags.ForeColor Or AppearancePropFlags.BorderColor
Me.ultraExplorerBar1.Groups(0).ResolveHeaderAppearance(appearanceData, requestedProperties)
Debug.WriteLine("The forecolor for first group's scrollbuttons is '" + AppearanceData.ForeColor.ToString())
Debug.WriteLine("The backcolor for first group's scrollbuttons is '" + AppearanceData.BackColor.ToString())
Debug.WriteLine("The border color for first group's scrollbuttons is '" + appearanceData.BorderColor.ToString())
End Sub