Control Property (ControlContainerTool)

Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars

	Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click

		Debug.WriteLine("Tool property values")

		Debug.IndentLevel += 1
		Dim toolbar As UltraToolbar
		For Each toolbar In Me.UltraToolbarsManager1.Toolbars
			Debug.WriteLine("Toolbar '" + toolbar.Key + "' tool info -----------------------")

			Debug.IndentLevel += 1

			Me.ProcessToolsCollection(toolbar.Tools)

			Debug.IndentLevel -= 1
		Next

		Debug.IndentLevel -= 1

	End Sub

	Private Sub ProcessToolsCollection(ByVal tools As ToolsCollection)

		Dim tool As ToolBase

		For Each tool In tools
			Debug.IndentLevel += 1

			' Display properties common to all tools (inherited from ToolBase).
			Debug.WriteLine("Tool #" + tool.Index.ToString() + " (Key: " + tool.Key + ") is a " + tool.GetType().Name.ToString())
			Debug.IndentLevel += 1

			Debug.WriteLine("Its default size is: " + tool.DefaultSize.ToString())
			Debug.WriteLine("Its minimum size is: " + tool.MinimumSize.ToString())

			If tool.IsControlContainer = True Then
				Debug.WriteLine("It IS a control container")
			Else
				Debug.WriteLine("It is NOT a control container")
			End If

			If tool.CanActivate = True Then
				Debug.WriteLine("It CAN be activated")
			Else
				Debug.WriteLine("It CANNOT be activated")
			End If

			If tool.ShouldDisplayToolTip = True Then
				Debug.WriteLine("It WILL display a tooltip if available")
			Else
				Debug.WriteLine("It will NOT display a tooltip")
			End If

			If Not tool.Control Is Nothing Then
				Debug.WriteLine("Its associated control is of type: " + tool.Control.GetType().Name)
			End If

			If Not tool.AttachedParentTool Is Nothing Then
				Debug.WriteLine("Its AttachedParentTool has a key of: " + tool.AttachedParentTool.Key)
			End If

			If tool.InstanceDisplaysImage = True Then
				Debug.WriteLine("It WILL display an image if one has been assigned")
			Else
				Debug.WriteLine("It will NOT display an image")
			End If

			If tool.InstanceDisplaysText = True Then
				Debug.WriteLine("It WILL display text if assigned")
			Else
				Debug.WriteLine("It will NOT display text")
			End If

			Debug.WriteLine("Its Height is: " + tool.Height.ToString())

			Debug.IndentLevel -= 1
			Debug.IndentLevel -= 1
		Next

	End Sub