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
' ツールの InstanceProps オブジェクトのすべてのプロパティを表示します
Debug.WriteLine("InstanceProps properties ------------------------------------------")
If Not e.Tool.InstanceProps Is Nothing Then
Debug.WriteLine("Caption: '" + e.Tool.InstanceProps.Caption)
Debug.WriteLine("DisplayStyle: '" + e.Tool.InstanceProps.DisplayStyle.ToString())
Debug.WriteLine("MaxWidth: '" + e.Tool.InstanceProps.MaxWidth.ToString())
Debug.WriteLine("MinWidth: '" + e.Tool.InstanceProps.MinWidth.ToString())
Debug.WriteLine("Width: '" + e.Tool.InstanceProps.Width.ToString())
' InstanceProps.IsFirstInGroup
If e.Tool.InstanceProps.IsFirstInGroup Then
Debug.WriteLine("Tool has been marked as first in group (i.e., preceded by a tool separator). This setting may have been customized by the end user. Use the tool's IsFirstInGroupResolved property to get its effective setting.")
Else
Debug.WriteLine("Tool has NOT been marked as first in group (i.e., preceded by a tool separator). This setting may have been customized by the end user. Use the tool's IsFirstInGroupResolved property to get its effective setting.")
End If
' InstanceProps.RecentlyUsed
If e.Tool.InstanceProps.RecentlyUsed = True Then
Debug.WriteLine("Tool will appear when menus are first displayed even if AlwaysShowFullMenus is set to false. This setting may have been customized by the end user. Use the tool's RecentlyUsedResolved property to get its effective setting.")
Else
Debug.WriteLine("Tool will NOT appear when menus are first displayed if AlwaysShowFullMenus is set to false. This setting may have been customized by the end user. Use the tool's RecentlyUsedResolved property to get its effective setting.")
End If
' InstanceProps.Spring
If e.Tool.InstanceProps.Spring = DefaultableBoolean.True Then
If e.Tool.OwnerIsToolbar And e.Tool.OwningToolbar.SettingsResolved.FillEntireRowResolved = True Then
Debug.WriteLine("Tool will adjust its width if there is unused space on its parent toolbar.")
Else
Debug.WriteLine("Tool will NOT adjust its width since it is not on a toolbar that has its FillEntireRow property set to true.")
End If
Else
Debug.WriteLine("Tool will NOT automatically adjust its width when placed on toolbars with unused space available.")
End If
' InstanceProps.Visible
If e.Tool.InstanceProps.Visible = DefaultableBoolean.True Then
Debug.WriteLine("Tool has been marked as Visible. Use the tool's VisibleResolved property to get its effective setting since the tool may not be visible for other reaosns.")
Else
Debug.WriteLine("Tool has NOT been marked as Visible.")
End If
End If
Debug.IndentLevel -= 1
End Sub