Imports Infragistics.Win
Imports Infragistics.Win.Layout
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterNodeLayoutItemSpanResize(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterNodeLayoutItemSpanResizeEventArgs) Handles ultraTree1.AfterNodeLayoutItemSpanResize
' Output a message to the debug window describing the resize operation
Dim message As String = String.Empty
If (e.IsCell) Then
Message = "Cell '" + e.Cell.Text + "' was successfully span resized."
Else
Message = "The header of column '" + e.Column.TextResolved + "' was successfully span resized."
End If
Debug.WriteLine(Message)
End Sub
Private Sub ultraTree1_BeforeNodeLayoutItemSpanResize(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.BeforeNodeLayoutItemSpanResizeEventArgs) Handles ultraTree1.BeforeNodeLayoutItemSpanResize
' Disallow cell span resizing for non-root level nodes
If Not e.Node Is Nothing AndAlso e.Node.Level > 0 Then
e.Cancel = True
Return
End If
' Output a message to the debug window describing the resize operation
Dim message As String = String.Empty
If (e.IsCell) Then
message = "Cell '" + e.Cell.Text + "' is being resized."
ElseIf (e.IsLabel) Then
message = "The header of column '" + e.Column.TextResolved + "' is being resized."
End If
Debug.WriteLine(message)
End Sub