1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
Private Sub lvwIdent_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles lvwIdent.ColumnClick
' Variables
Static iIndex As Integer
Static iOrder As Integer
' Inutile aucun item !
If 0 = Me.lvwIdent.Items.Count Then Exit Sub
' Verifier si l'on change de colonne
If iIndex = e.Column Then 'ColumnHeader.Index - 1 Then
' Non, inverse le tri
If iOrder = SortOrder.Ascending Then
iOrder = SortOrder.Descending
Else
iOrder = SortOrder.Ascending
End If
Else
' Oui, le tri est toujours ascendant
iIndex = e.Column
iOrder = SortOrder.Ascending
End If
' Trier
'lvwIdent.SortKey = iIndex
Me.lvwIdent.Sorting = iOrder
End Sub |
Partager