Сортировать группу классов по свойству по умолчанию

Речь идет не об операторах сравнения VBA, ArrayList — это класс .NET, поэтому при его использовании вы находитесь в мире .NET.

arr.Add v 'no problem here

Вы добавляете экземпляры класса defaultProp; не имеет значения, что у вас есть свойство по умолчанию для типа, .NET не заботится о свойствах по умолчанию. Если вы хотите отсортировать значения DefaultValue, то сделайте arr.Add v.DefaultValue или arr.Add (v) - тогда ваш ArrayList будет содержать элементы типа Single, которые он умеет сортировать.

Чтобы ArrayList.Sort работал с экземплярами вашего пользовательского класса, его элементы должны реализовывать интерфейс IComparable, что имеет место для System.Int32 (т.е. Long в VBA), System.String и всех других примитивных типов .NET, и я думаю примитивные типы VBA действительно правильно маршалируются через взаимодействие .NET, но не пользовательские классы.

Попробуйте добавить ссылку на mscorlib.tlb, а затем в модуле класса defaultProp укажите это (вы не можете реализовать интерфейс, определенный в библиотеке с поздним связыванием):

Implements IComparable

Затем реализуйте интерфейс — он должен выглядеть примерно так (используйте раскрывающиеся списки кодовой панели, чтобы убедиться, что подпись правильная — не просто скопируйте и вставьте этот фрагмент):

Private Function IComparable_CompareTo(ByVal obj As Variant) As Long
    Dim other As defaultProp
    Set other = obj
    ' return Less than zero (-1) if this object 
    ' is less than the object specified by the CompareTo method.

    ' return Zero (0) if this object is equal to the object 
    ' specified by the CompareTo method.

    ' return Greater than zero (1) if this object is greater than 
    ' the object specified by the CompareTo method.
End Function

Теперь, когда ваш пользовательский класс реализует интерфейс, который ArrayList.Sort использует для определения того, как ваши defaultProp элементы соотносятся друг с другом, я не вижу причин для его отказа.

ИМО, вы злоупотребляете вещами, смешивая вещи, выходящие за границы. Вы используете свойства VBA по умолчанию (что я обычно считаю плохой практикой), затем вы используете .NET ArrayList и пытаетесь Sort его.

Я думаю, было бы гораздо логичнее посмотреть, сможете ли вы реализовать IComparable в классе VBA, а затем позволить ArrayList использовать интерфейс IComparable для сравнения объекта с другим, как вы хотите, чтобы он сравнивался, без использования каких-либо взломанных свойств по умолчанию.

Если вы добавите DefaultValue к arr, это сработает:

Sub testArrayList()
    '... code
    For i = 1 To 5
        Set v = New defaultProp
        arr.Add v.DefaultValue 
    Next i
    arr.Sort         
End Sub

Очевидно, что реализация .Sort из ArrayList немного странная и не любит сравнивать объекты и их значения по умолчанию (не удалось найти реализацию метода Sort()). Хотя это будет работать безупречно:

For i = 1 To 5
    Set v = New defaultProp
    arr.Add v
Next i    
Debug.Print arr(1) > arr(2)

Это возможная реализация сортировки, которая будет работать для объекта arr, как и ожидалось. Однако он не является частью библиотеки ArrayList:

Public Function varBubbleSort(varTempArray As Object) As Object

    Dim varTemp                 As Object
    Dim lngCounter              As Long
    Dim blnNoExchanges          As Boolean

    Do
        blnNoExchanges = True
        For lngCounter = 0 To varTempArray.Count - 2
            If varTempArray(lngCounter) > varTempArray(lngCounter + 1) Then
                blnNoExchanges = False
                Set varTemp = varTempArray(lngCounter)
                varTempArray(lngCounter) = varTempArray(lngCounter + 1)
                varTempArray(lngCounter + 1) = varTemp
            End If
        Next lngCounter

    Loop While Not (blnNoExchanges)
    Set varBubbleSort = varTempArray

   On Error GoTo 0
   Exit Function

End Function

Но сортировка в порядке: