Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_BeforeActivate(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.CancelableNodeEventArgs) Handles ultraTree1.BeforeActivate
Dim sb As New System.Text.StringBuilder()
If e.TreeNode Is Nothing Then
sb.Append("No node is being activated.")
Else
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" is being activated.")
End If
Debug.WriteLine(sb.ToString())
' 注: この操作が以下のコード行によってキャンセルできます
'e.Cancel = True
End Sub