[VB.net] 리스트뷰에서 제목열 클릭 시 오름/내림차순 정렬

상용 도구툴에는 아마 기본으로 있을 법한 기능.

리스트뷰에서 제목열을 클릭하면 정렬해준다.

    Private Sub lvview_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles lvView.ColumnClick

        '리스트뷰에서 제목열 클릭 시 정렬

        If lvView.Columns(e.Column).ListView.Sorting = SortOrder.Descending Then

            lvView.Columns(e.Column).ListView.Sorting = SortOrder.Ascending

        ElseIf lvView.Columns(e.Column).ListView.Sorting = SortOrder.Ascending Then

            lvView.Columns(e.Column).ListView.Sorting = SortOrder.Descending

        Else

            lvView.Columns(e.Column).ListView.Sorting = SortOrder.Ascending

        End If

    End Sub