Error in listview sorting vb.net 2005 enterprise edition

[rajtalent]

hi all,
I want to sort the colum when clicks the columnheader using vb.net 2005 .But i receive the following error
"Error 1 Overload resolution failed because no accessible 'New' accepts this number of arguments. "

and my code is

 
Private Sub ListView1_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
If e.Column <> sortColumn Then 
sortColumn = e.Column
ListView1.Sorting = SortOrder.Ascending ' asc by default 
 
If ListView1.Sorting = SortOrder.Ascending Then
ListView1.Sorting = SortOrder.Descending
Else
ListView1.Sorting = SortOrder.Ascending
End If
 
ListView1.Sort()
Dim sorted As New classSorter(e.Column, ListView1.Sorting)
ListView1.ListViewItemSorter = sorted
 
End If
 
End Sub
 
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
 
End Sub
End Class
 
Public Class classSorter
Implements IComparer
 
Private col As Integer ' column to sort 
Private order As SortOrder ' asc or desc 
 
Public Sub New()
col = 0 ' sort first col by default in ascending order 
order = SortOrder.Ascending
End Sub
 
' c-tor that receives column to sort and in which order 
Public Sub New(ByVal aColumn As Integer, ByVal order As SortOrder, ByVal aForm As Form)
col = aColumn
Me.order = order
End Sub
 
' method to compare two objects (list view items) 
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
 
Dim returnVal As Integer = -1
 
Dim xItem As System.Windows.Forms.ListViewItem = x
Dim yItem As System.Windows.Forms.ListViewItem = y
 
Select Case col
Case 0 ' in this case 0th column holds numerics 
' sort numeric values 
Dim blnCompare As Boolean
 
blnCompare = Val(xItem.SubItems(col).Text) > Val(yItem.SubItems(col).Text)
 
If blnCompare Then
returnVal = 1
Else
returnVal = -1
End If
 
Case 1 ' in this case 1th column holds strings 
' sort strings 
returnVal = [String].Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
 
Case 2 '' in this case 2nd column holds datetime vals 
' sort date time values 
returnVal = DateTime.Compare(CDate(xItem.SubItems(col).Text), CDate(yItem.SubItems(col).Text))
 
Case 3
returnVal = DateTime.Compare(CDate(xItem.SubItems(col).Text), CDate(yItem.SubItems(col).Text))
 
Case 4 '' in this case 0th column holds numerics 
' sort numeric values 
Dim blnCompare As Boolean
 
blnCompare = Val(xItem.SubItems(col).Text) > Val(yItem.SubItems(col).Text)
 
If blnCompare Then
returnVal = 1
Else
returnVal = -1
End If
 
Case Else
 
End Select
 
' is sort order descending 
If order = SortOrder.Descending Then
' ivert the value returned by string.compare. 
returnVal *= -1
End If
 
Return returnVal
End Function
 

please help me...i need the solution very urgent.....

[DrBunchman]

Hi rajtalent,

I've editied your post above to surround your code with [code] tags - please use the # button in the edit window to do so in future.

Which line are you receiving the error on?

Dr B

[rajtalent]

Hi rajtalent,

I've editied your post above to surround your code with [code] tags - please use the # button in the edit window to do so in future.

Which line are you receiving the error on?

Dr B

Hi Dr B
Sorry for inconvenience...I got an error in line no.13..."sorted" highlighted as error..please give me solution

[DrBunchman]

Hi rajtalent,

Have you been able to fix your problem yet?

Dr B

[Curtis Rutland]

Well, you've defined two constructors (the "New" subs): one with no arguments, and one with three. On line thirteen, you are trying to instantiate a new object with only two arguments:

line 31 constructor with no arguments

Public Sub New()
    col = 0 ' sort first col by default in ascending order
    order = SortOrder.Ascending
End Sub
 

' line 37 constructor with three arguments

Public Sub New(ByVal aColumn As Integer, ByVal order As SortOrder, ByVal aForm As Form)
    col = aColumn
    Me.order = order
End Sub
 

'line 13, where you instantiate with only two arguments:

Dim sorted As New classSorter(e.Column, ListView1.Sorting)
 

So either you made a mistake in your constructor, or in your declaration.