Imports Infragistics.Win.UltraWinTree
Private Sub button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button14.Click
Dim node As UltraTreeNode
node = Me.ultraTree1.ActiveNode
If node Is Nothing Then Return
If node.LeftImages.Count > 0 Then Return
' 注: 以下のコードでは画像プロパティを
' 整数に設定します整数はツリー コントロールのプロパティ
' として設定された ImageList のインデックスを
' 表します以下に設定する画像プロパティは
' 直接に画像オブジェクトにも
' 設定できます
' ノードのオーバーライドで画像プロパティを設定すると、
' ノードの左側に画像を追加します
node.Override.NodeAppearance.Image = 6
' ノードのテキストの左側および右側に
' 画像を追加しますこれはインジケーター フラグとして使用すると便利です
node.LeftImages.Add(0)
node.LeftImages.Add(1)
node.LeftImages.Add(2)
node.RightImages.Add(3)
node.RightImages.Add(4)
node.LeftImagesAlignment = Infragistics.Win.VAlign.Top
node.RightImagesAlignment = Infragistics.Win.VAlign.Bottom
End Sub