Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_ToolClick(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.ToolClickEventArgs) Handles UltraToolbarsManager1.ToolClick
Debug.WriteLine("The Tool with key '" + e.Tool.Key + "' has been clicked. It is of type: '" + e.Tool.GetType().ToString() + "'")
' クリックされたツールのプロパティ情報を表示します
Debug.IndentLevel += 1
Debug.WriteLine("AllowMultipleInstancesResolved: " + e.Tool.AllowMultipleInstancesResolved.ToString())
Debug.WriteLine("CaptionResolved: '" + e.Tool.CaptionResolved + "', SharedProps.Caption: '" + e.Tool.SharedProps.Caption)
Debug.WriteLine("CustomizerCaptionResolved: '" + e.Tool.CustomizerCaptionResolved + "', SharedProps.CustomizerCaption: '" + e.Tool.SharedProps.CustomizerCaption)
Debug.WriteLine("CustomizerDescriptionResolved: '" + e.Tool.CustomizerDescriptionResolved + "', SharedProps.CustomizerDescription: '" + e.Tool.SharedProps.CustomizerDescription)
Debug.WriteLine("DisplayStyleResolved: '" + e.Tool.DisplayStyleResolved.ToString() + "', SharedProps.DisplayStyle: '" + e.Tool.SharedProps.DisplayStyle.ToString())
Debug.WriteLine("DefaultSize: '" + e.Tool.DefaultSize.ToString() + ", Actual Width: " + e.Tool.WidthResolved.ToString() + ", Actual Height: " + e.Tool.Height.ToString())
Debug.WriteLine("EnabledResolved: '" + e.Tool.EnabledResolved.ToString())
Debug.WriteLine("Tool '" + e.Tool.Key + "' has an Index in its parent collection of: " + e.Tool.Index.ToString())
Debug.WriteLine("IsActiveTool: " + e.Tool.IsActiveTool.ToString())
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("IsFirstInGroupResolved: '" + e.Tool.IsFirstInGroupResolved.ToString() + "', InstanceProps.IsFirstInGroup: '" + e.Tool.InstanceProps.IsFirstInGroup.ToString())
End If
Debug.WriteLine("IsRootTool: " + e.Tool.IsRootTool.ToString())
Debug.WriteLine("MaxWidthResolved: " + e.Tool.MaxWidthResolved.ToString())
Debug.WriteLine("MinWidthResolved: " + e.Tool.MinWidthResolved.ToString())
Debug.WriteLine("MinimumSize: " + e.Tool.MinimumSize.ToString())
Debug.WriteLine("OwnerIsNull: " + e.Tool.OwnerIsNull.ToString())
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("RecentlyUsedResolved: '" + e.Tool.RecentlyUsedResolved.ToString() + "', InstanceProps.RecentlyUsed: '" + e.Tool.InstanceProps.RecentlyUsed.ToString())
End If
Debug.WriteLine("ShortcutResolved: '" + e.Tool.ShortcutResolved.ToString() + "', SharedProps.Shortcut: '" + e.Tool.SharedProps.Shortcut.ToString())
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("SpringResolved: '" + e.Tool.SpringResolved.ToString() + "', InstanceProps.Spring: '" + e.Tool.InstanceProps.Spring.ToString())
End If
Debug.WriteLine("The toolbar manager's Name property is set to: '" + e.Tool.ToolbarsManager.Site.Name)
Debug.WriteLine("TooltipTextResolved: '" + e.Tool.ToolTipTextResolved + "', SharedProps.TooltipText: '" + e.Tool.SharedProps.ToolTipText)
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("VisibleResolved: '" + e.Tool.VisibleResolved.ToString() + "', InstanceProps.Visible: '" + e.Tool.InstanceProps.Visible.ToString())
End If
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("WidthResolved: '" + e.Tool.WidthResolved.ToString() + "', InstanceProps.Width: '" + e.Tool.InstanceProps.Width.ToString())
End If
Debug.IndentLevel -= 1
End Sub