Imports Infragistics.Win
Imports Infragistics.Win.UltraWinListView
Private Sub ultraListView1_ColumnSorting(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.ColumnSortingEventArgs) Handles ultraListView1.ColumnSorting
' If the column's DataType is integer, disallow the sort.
If e.Column.DataType Is GetType(Integer) Then
e.Cancel = True
Else
' If the new value is 'None', change it to 'Ascending'.
If (e.NewValue = Sorting.None) Then e.NewValue = Sorting.Ascending
End If
End Sub
Private Sub ultraListView1_ColumnSorted(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinListView.ColumnSortedEventArgs) Handles ultraListView1.ColumnSorted
Me.lblSortStatus.Text = e.Column.TextResolved
End Sub