_An alternate list view sort for Vb.Net

				
//**************************************
// Name: _An alternate list view sort for Vb.Net
// Description:To provide an alternative to the Microsoft recommended sorting in the list view control.
// By: Duane Warsham
//
// Inputs:ListView object, column number, and type of sort (date, string, integer)
//
// Returns:returns sorted list view
//
// Side Effects:The ListView Sorting property needs to be set to None for this sub to work correctly.
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=1634&lngWId=10//for details.//**************************************

Public Sub ListViewSort(ByRef lv As ListView, ByVal col As Integer, ByVal compareType As VariantType)
 'This will sort a list view by any passed column number, you will pass the listview object, the
 'column number, and the type of compare you want in the variant type, if you need more than the 
 '3 comparisons belowm just copy the sort code, add to the case statement, and change the Cxxx function
 'to use the correct one of choice.
 Dim lvTempItem As ListViewItem
 Dim i As Integer
 Select Case compareType
'sort by a date column
Case VariantType.Date
For i = 0 To lv.Items.Count - 2 'only need to check up to the next to last in list
 'compare current item to the next one
 If CDate(lv.Items(i).SubItems(col).Text) > CDate(lv.Items(i + 1).SubItems(col).Text) Then
 'save the current item
 lvTempItem = lv.Items(i)
 'remove the current item, has to be removed from collection before reinserting it
 lv.Items(i).Remove()
 'now add the item back in at its new location
 lv.Items.Insert((i + 1), lvTempItem)
 'start at first again to find next item needing moving
 i = -1
 End If
Next i
' sort by a whole number
Case VariantType.Integer
For i = 0 To lv.Items.Count - 2 'only need to check up to the next to last in list
 'compare current item to the next one
 If CInt(lv.Items(i).SubItems(col).Text) > CInt(lv.Items(i + 1).SubItems(col).Text) Then
 'save the current item
 lvTempItem = lv.Items(i)
 'remove the current item, has to be removed from collection before reinserting it
 lv.Items(i).Remove()
 'now add the item back in at its new location
 lv.Items.Insert((i + 1), lvTempItem)
 'start at first again to find next item needing moving
 i = -1
 End If
Next i
'string sort
Case VariantType.String
For i = 0 To lv.Items.Count - 2 'only need to check up to the next to last in list
 'compare current item to the next one
 If CStr(lv.Items(i).SubItems(col).Text) > CStr(lv.Items(i + 1).SubItems(col).Text) Then
 'save the current item
 lvTempItem = lv.Items(i)
 'remove the current item, has to be removed from collection before reinserting it
 lv.Items(i).Remove()
 'now add the item back in at its new location
 lv.Items.Insert((i + 1), lvTempItem)
 'start at first again to find next item needing moving
 i = -1
 End If
Next i
 End Select
 'if you are calling this sort sub from another class other than where this sub resides, you will need to 
 'put the refresh in the calling sub after the sort call, otherwise you can uncomment the refresh, and
 'leave it here.
 'Me.lvEvents.Refresh()
 End Sub