Imports Infragistics.Win
Imports Infragistics.Win.Layout
Imports Infragistics.Win.UltraWinTree
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cell As UltraTreeNodeCell = Me.ultraTree1.ActiveNode.Cells("CompanyName")
' If the cell's node is selected, use the appearance
' to make the cell more visually apparent.
If cell.Node.Selected = False Then
cell.Appearance.BackColor = Color.Red
cell.Appearance.ForeColor = Color.White
End If
' Assign an EditorWithText with a custom EmbeddableEditorOwnerBase
' derived implementation.
cell.Editor = New EditorWithText(New CustomOwner(cell))
' Output the cell's displayed value to the debug window
If cell.Column.NullText.Length = 0 AndAlso Not cell.Value Is Nothing Then
Debug.WriteLine(cell.Text)
Else
Debug.WriteLine(cell.Column.NullText)
End If
' Determine whether the cell is currently in view.
Dim isInView As Boolean = (cell.UIElement Is Nothing = False)
End Sub