Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button16.Click
' Set the ViewStyle property to 'Default', then test ViewStyleResolved
' below for each of the control styles.
Me.ultraExplorerBar1.ViewStyle = UltraExplorerBarViewStyle.Default
' When we set the control style to ExplorerBar, ViewStyleResolved will return XPExplorerBar.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.ExplorerBar
Debug.WriteLine("ViewStyleResolved = " & Me.ultraExplorerBar1.ViewStyleResolved.ToString())
' When we set the control style to Listbar, ViewStyleResolved will return XP.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Listbar
Debug.WriteLine("ViewStyleResolved = " & Me.ultraExplorerBar1.ViewStyleResolved.ToString())
' When we set the control style to Toolbox, ViewStyleResolved will return XP.
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Toolbox
Debug.WriteLine("ViewStyleResolved = " & Me.ultraExplorerBar1.ViewStyleResolved.ToString())
' Of course, we can explicitly set the ViewStyle property for any control style to
' override the default.
Me.ultraExplorerBar1.ViewStyle = UltraExplorerBarViewStyle.XPExplorerBar
' When we set the control style to Listbar, ViewStyleResolved now returns XPExplorerBar
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Listbar
Debug.WriteLine("ViewStyleResolved = " & Me.ultraExplorerBar1.ViewStyleResolved.ToString())
End Sub