ArrayList.Sort(...)

[newonline]

Я внимательно просмотрел все ресурсы сайта vbstreets, а так же yandex, но не нашел однозначного ответа. А посему посмел вынести вопрос в отдельную тему.
Прошу помочь разобраться:
например, я создаю структуру

Код: Выделить всё

    Structure Cell
        Dim CellValue As Object
        Dim CellFormula As String
      .. .
        Dim CellColor As String
    End Structure

и далее экземплярами этой структуры наполняю экземпляр класса ArrayList.

Выполнить сортировку ArrayList.Sort - это просто, если ArrayList наполнен, например, строками или числами (точнее - их экземплярами).
А как мне выполнить сортировку экземпляров вышеуказанной структуры, чтобы они были упорядочены например по CellValue или CellColor, т.е по какому либо полю?
А так же если ArrayList наполнен экземплярами какого либо класса – как их сортировать по какому-либо свойству?
По-моему, здесь применяют как-то IComparer.

[GSerg]

просмотрел все ресурсы сайта vbstreets, а так же yandex, но не нашел однозначного ответа

Странно, странно...
http://msdn.microsoft.com/library/rus/d ... topic2.asp

[newonline]

oops...
sorry

[newonline]

Я извиняюсь, но не могу понять как же задать поле-критерий для сортировки???:

Код: Выделить всё

Public Class myReverserClass
    Implements IComparer

    ' Calls CaseInsensitiveComparer.Compare with the parameters reversed.
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
       Implements IComparer.Compare
        Return New CaseInsensitiveComparer().Compare(x, y)
    End Function 'IComparer.Compare

End Class 'myReverserClass

Код: Выделить всё

Public Class Form1
    Inherits System.Windows.Forms.Form
    Structure Cell
        Dim CellValue As Object
        Dim CellFormula As String
        Dim CellColor As String
    End Structure


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyArray As New Collections.ArrayList
        Dim myComparer = New myReverserClass
        Dim MyCell As Cell
        Dim i As Long
        For i = 1 To 5000
            MyCell = New Cell
            MyCell.CellValue = 100 * Rnd()
            MyCell.CellFormula = "(a1+b2)/3"
            MyArray.Add(MyCell)
        Next
        MyArray.Sort(myComparer)
    End Sub
End Class

[GSerg]

Код: Выделить всё

Public Class myReverserClass
    Implements IComparer

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
       Implements IComparer.Compare
        select case true
        case ctype(x, cell).CellValue < ctype(y, cell).CellValue
          return -1
        case ctype(x, cell).CellValue > ctype(y, cell).CellValue
          return 1
        case else
          return 0
        end select
       
    End Function

End Class

Разумеется, условие проверки можно свернуть и оптимизировать.
Но тогда будет опять вопрос - а как это работает
А документацию в виде MSDN, причём на русском языке и с примерами, читать будет за тебя кто?

[newonline]

sorry
down...down...