Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_BeforeDelete(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.BeforeNodesDeletedEventArgs) Handles ultraTree1.BeforeDelete
Dim sb As New System.Text.StringBuilder()
sb.Append("The following nodes are about to be deleted: ")
Dim node As UltraTreeNode
' 削除しようとしているノードをループします
' 注: イベント引数によって公開される Nodes コレクション
' は読み取り専用です
For Each node In e.Nodes
sb.Append(node.Key)
sb.Append(", ")
Next
sb.Append(" Press ''OK'' or ''Cancel''.")
Dim dr As DialogResult
dr = MessageBox.Show(Me, _
sb.ToString(), _
"Deleting Nodes", _
MessageBoxButtons.OKCancel)
If dr = DialogResult.Cancel Then e.Cancel = True
' デフォルトのメッセージ ボックスを表示しない
' ように DisplayPromptMsg フラグを False に設定します
e.DisplayPromptMsg = False
End Sub