Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinGrid
Imports System.Diagnostics
Private Sub UltraGrid1_AfterSortChange(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.BandEventArgs) Handles ultraGrid1.AfterSortChange
' ユーザーが行を並べ替えまたはグループ化した後に
' AfterSortChange を発生しますユーザーが並べ替えた列の並べ替え方向を変更した
' 後にも発生します
' 以下のコードは並べ替えた列コレクションの列を出力します
Debug.WriteLine("AfterSortChange: ")
Dim i As Integer
For i = 0 To e.Band.SortedColumns.Count - 1
Dim sortColumn As UltraGridColumn = e.Band.SortedColumns(i)
If sortColumn.IsGroupByColumn Then
Debug.WriteLine(" Grouped by " & sortColumn.Key & " sorted " & sortColumn.SortIndicator.ToString())
Else
Debug.WriteLine(" " & sortColumn.Key & " sorted " & sortColumn.SortIndicator.ToString())
End If
Next
End Sub