Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button53_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button53.Click
Dim row As UltraGridRow = Me.UltraGrid1.Rows(0)
' IsActiveRow and Activated properties off the UltraGridRow test if the row is the same as
' the UltraGrid.ActiveRow property. So all three of following should give you the same
' result.
Debug.WriteLine("Before:")
Debug.WriteLine("row.IsActiveRow = " & row.IsActiveRow)
Debug.WriteLine("row.Activated = " & row.Activated)
Debug.WriteLine("row == UltraGrid.ActiveRow = " & (row Is Me.ultraGrid1.ActiveRow))
' Toggle the activation.
row.Activated = Not row.Activated
Debug.WriteLine("After:")
Debug.WriteLine("row.IsActiveRow = " & row.IsActiveRow)
Debug.WriteLine("row.Activated = " & row.Activated)
Debug.WriteLine("row == UltraGrid.ActiveRow = " & (row Is Me.ultraGrid1.ActiveRow))
End Sub