Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_BeforeSelect(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.BeforeSelectEventArgs) Handles ultraTree1.BeforeSelect
Dim sb As New System.Text.StringBuilder()
sb.Append("The SelectedNodes collection is about to change to the nodes ")
Dim node As UltraTreeNode
' 新しい SelectedNodes コレクションでノードをループします
' 注: イベント引数によって公開される Nodes コレクション
' は読み取り専用です
For Each node In e.NewSelections
sb.Append(node.Key)
sb.Append(", ")
Next
sb.Append(" Press ''OK'' or ''Cancel''.")
Dim dr As DialogResult
dr = MessageBox.Show(Me, _
sb.ToString(), _
"Selected nodes changing", _
MessageBoxButtons.OKCancel)
If dr = DialogResult.Cancel Then e.Cancel = True
End Sub