Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button15.Click
' Set the UseLargeGroupHeaderImages property to 'Default', then test UseLargeGroupHeaderImagesResolved
' below for each of the control styles.
Me.ultraExplorerBar1.UseLargeGroupHeaderImages = DefaultableBoolean.Default
' When we set the control style to ExplorerBar, UseLargeGroupHeaderImagesResolved will return true.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.ExplorerBar
Debug.WriteLine("UseLargeGroupHeaderImagesResolved = " + Me.ultraExplorerBar1.UseLargeGroupHeaderImagesResolved.ToString())
' When we set the control style to Listbar, UseLargeGroupHeaderImagesResolved will return false.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Listbar
Debug.WriteLine("UseLargeGroupHeaderImagesResolved = " + Me.ultraExplorerBar1.UseLargeGroupHeaderImagesResolved.ToString())
' When we set the control style to Toolbox, UseLargeGroupHeaderImagesResolved will return false.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Toolbox
Debug.WriteLine("UseLargeGroupHeaderImagesResolved = " + Me.ultraExplorerBar1.UseLargeGroupHeaderImagesResolved.ToString())
' Of course, we can explicitly set the UseLargeGroupHeaderImages property to either true or false for
' any control style to override the default.
Me.ultraExplorerBar1.UseLargeGroupHeaderImages = DefaultableBoolean.True
' When we set the control style to Listbar, UseLargeGroupHeaderImagesResolved now returns true
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Listbar
Debug.WriteLine("UseLargeGroupHeaderImagesResolved = " + Me.ultraExplorerBar1.UseLargeGroupHeaderImagesResolved.ToString())
End Sub