mahmadifar
یک شنبه 10 مهر 1390, 23:04 عصر
با سلام.
لطفا یک توضیحی در مورد این بدهید که زیر برنامه زیر چگونه با استفاده از دو کلاس تعریف شده ستون های یک لیست را به صورت صعودی مرتب می کند و سوال دیگه اینکه دستور implements چه کاری انجام می دهد؟
Private Sub listview1_columnclick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
Select Case e.column
Case 0
ListView1.ListViewItemSorter = New listcompanysorter()
ListView1.Sorting = SortOrder.Ascending
Case 1
ListView1.ListViewItemSorter = New listcontactsorter()
ListView1.Sorting = SortOrder.Ascending
End Select
End Sub
--------------------------------------------------------------------------------------------------------
Class listcompanysorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class
-------------------------------------------------------------------------------------------
Class listcontactsorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class
End Class
لطفا یک توضیحی در مورد این بدهید که زیر برنامه زیر چگونه با استفاده از دو کلاس تعریف شده ستون های یک لیست را به صورت صعودی مرتب می کند و سوال دیگه اینکه دستور implements چه کاری انجام می دهد؟
Private Sub listview1_columnclick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListView1.ColumnClick
Select Case e.column
Case 0
ListView1.ListViewItemSorter = New listcompanysorter()
ListView1.Sorting = SortOrder.Ascending
Case 1
ListView1.ListViewItemSorter = New listcontactsorter()
ListView1.Sorting = SortOrder.Ascending
End Select
End Sub
--------------------------------------------------------------------------------------------------------
Class listcompanysorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class
-------------------------------------------------------------------------------------------
Class listcontactsorter
Implements IComparer
Public Function Compare(ByVal o1 As Object, ByVal o2 As Object) As Integer Implements System.Collections.IComparer.Compare
Dim item1, item2 As ListViewItem
item1 = CType(o1, ListViewItem)
item2 = CType(o2, ListViewItem)
If item1.ToString.ToUpper > item2.ToString.ToUpper Then
Return 1
Else
If item1.ToString.ToUpper < item2.ToString.ToUpper Then
Return -1
Else : Return 0
End If
End If
End Function
End Class
End Class