Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button80.Click
' Display information about the settings on the first item in the first group.
If (Me.ultraExplorerBar1.Groups.Count < 1) Then
Return
End If
If (Me.ultraExplorerBar1.Groups(0).Items.Count < 1) Then
Return
End If
' Get a reference to the first item in the first group.
Dim firstItem As UltraExplorerBarItem = Me.ultraExplorerBar1.Groups(0).Items(0)
' UseDefaultImage
If (firstItem.Settings.UseDefaultImage = DefaultableBoolean.Default) Then
Debug.WriteLine("The first group's UseDefaultImage setting is 'Default'. Its resolved setting is: " + firstItem.SettingsResolved.UseDefaultImage.ToString())
Else
Debug.WriteLine("The first group's UseDefaultImage setting is: " + firstItem.Settings.UseDefaultImage.ToString())
End If
End Sub