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