Visual Basic

Imports System.Windows.Forms
Public Class C_ListviewComparer
             Implements IComparer
#Region " Members "
    Private _columnNumber As Integer
    Private _sortOrder As SortOrder
#End Region
#Region " Constructors "
    Public Sub New(ByVal ColumnNumber As Integer, _
                   Optional ByVal SortOrder As SortOrder = SortOrder.Ascending)
        _columnNumber = ColumnNumber
        _sortOrder = SortOrder
    End Sub
#End Region
#Region " Methods "
#Region " ... Compare "
    Public Function Compare( _
                    ByVal Lvi1 As Object, _
                    ByVal Lvi2 As Object) As Integer _
                    Implements System.Collections.IComparer.Compare
        '-----------------------------------------------------
        ' Compare two subitem values in the same listview
        ' column       
        '-----------------------------------------------------
        Select Case _sortOrder
            Case SortOrder.Ascending            ' Ascending sort order
                Return CompareResult(SubitemValue(DirectCast(Lvi1, ListViewItem)), _
                                     SubitemValue(DirectCast(Lvi2, ListViewItem)))
            Case Else                           ' Descending sort order
                Return CompareResult(SubitemValue(DirectCast(Lvi2, ListViewItem)), _
                                     SubitemValue(DirectCast(Lvi1, ListViewItem)))
        End Select
    End Function
#End Region
#End Region
#Region " Procedures "
#Region " ... CompareResult "
    Private Function CompareResult( _
                     ByVal FirstString As String, _
                     ByVal SecondString As String) As Integer
        '-----------------------------------------------------        
        ' Compare the subitem values to determine their sort
        ' order. For ascending sorts, the FirstString is the X
        ' value and SecondString the Y value. The values are
        ' reversed for a Descending sort.
        '-----------------------------------------------------
        If IsNumeric(FirstString) _
        AndAlso IsNumeric(SecondString) Then
            '** Numeric values
            Return Val(FirstString).CompareTo(Val(SecondString))
        ElseIf IsDate(FirstString) _
        AndAlso IsDate(SecondString) Then
            '** Date values
            Return _
                DateTime.Parse(FirstString).CompareTo(DateTime.Parse(SecondString))
        Else
            '** String values
            Return String.Compare(FirstString, SecondString)
        End If
    End Function
#End Region
#Region " ... SubitemValue "
    Private Function SubitemValue( _
            ByVal Item As ListViewItem) As String
        '-----------------------------------------------------
        ' Get the subitem text upon which the compare is based
        '-----------------------------------------------------
        Select Case Item.SubItems.Count
            Case Is <= _columnNumber
                Return ""
            Case Else
                Return Item.SubItems(_columnNumber).Text
        End Select
    End Function
#End Region
#End Region
End Class

Listview1.ListViewItemSorter = New C_ListviewComparer(3)
Listview1.Sort()

Listview1.ListViewItemSorter = New C_ListviewComparer(6, SortOrder.Descending)
Listview1.Sort()

Listview1.ListViewItemSorter = New C_ListviewComparer(4)
Listview1.Sort()
Listview1.ListViewItemSorter = New C_ListviewComparer(3)
Listview1.Sort()

If Me.WindowState <> FormWindowState.Minimized Then Me.Refresh()

dBrong wrote:

restart it again?

David Mujica wrote:

What about making the task self submit itself to the task scheduler at midnight, then exit ?

Public Const cnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=../data/sample.mdb"