Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub Button110_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button110.Click
' Setup the appearance for alternate rows. This will make for easy identification
' of alterante rows.
Me.UltraGrid1.DisplayLayout.Override.RowAlternateAppearance.BackColor = Color.LightYellow
' Get the active row.
Dim activeRow As UltraGridRow = Me.UltraGrid1.ActiveRow
' Write out whether the active row is alteranate row or not.
Debug.WriteLine("ActiveRow.IsAlternate = " & activeRow.IsAlternate)
' Odd indexed rows are alternate rows. Write out whether the row's index is odd or even.
If 0 = activeRow.Index Mod 2 Then
Debug.WriteLine("ActiveRow's Index of " & activeRow.Index & " is even.")
Else
Debug.WriteLine("ActiveRow's Index of " & activeRow.Index & " is odd")
End If
End Sub