Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button47.Click
' All the code below operates on the first Item in the first Group so make sure we have at
' least one group.
If (Me.ultraExplorerBar1.Groups.Count < 1) Then
Return
End If
If (Me.ultraExplorerBar1.Groups(0).Items.Count < 1) Then
Return
End If
' Get the fully resolved appearance for the first Item in the first Group
' and display the setting for forecolor, backcolor, and font bold.
Dim appearanceData As AppearanceData = New AppearanceData()
Dim requestedProperties As AppearancePropFlags = AppearancePropFlags.ForeColor Or AppearancePropFlags.BackColor Or AppearancePropFlags.FontBold
Me.ultraExplorerBar1.Groups(0).Items(0).ResolveAppearance(AppearanceData, requestedProperties)
Debug.WriteLine("The backcolor for first group's first item is '" + appearanceData.BackColor.ToString())
Debug.WriteLine("The forecolor for first group's first item is '" + appearanceData.ForeColor.ToString())
Debug.WriteLine("The fontbold setting for first group's first item is '" + appearanceData.FontData.Bold.ToString())
End Sub