SortIndirect

betrifft

Die Attributfunktion SortIndirect sortiert die Liste über eine Hilfsfunktion.

 

Syntax

SortIndirect(SortMethodName)

Rückgabewert

Kein

Parameter

Verwendung

Name

Typ

Übergabe

Beschreibung

Erforderlich

SortMethodName

String

ByVal

Name einer Hilfsfunktion zur Sortierung. Die Funktion muss sich in derselben Klasse befinden.

 

Die SortIndirect-Funktion erlaubt u.a. die Sortierung von Objektlisten. Legen Sie hierzu eine Hilfsfunktion zur Sortierung an:

 

Function SortFunc(ByVal P1 As "Auto", ByVal P2 As "Auto") As Long

   If P1.Modellname > P2.Modellname Then

      SortFunc := 1

   ElseIf P1.Modellname = P2.Modellname Then

      SortFunc := 0

   Else

      SortFunc := -1

   End If

End Function

 

Die Funktion muss über zwei Parameter verfügen. Der Typ der Parameter kann frei gewählt werden, muss jedoch bei beiden Parametern gleich sein. Der Rückgabetyp muss Long sein.

Die Funktion muss

1.  Einen Wert 1 oder -1 liefern, wenn die zu überprüfenden Parameter verschieden sind

2.  Einen Wert 0 liefern, wenn beide zu überprüfenden Parameter identisch sind

Wird der Wert 1 zurückgegeben, wenn P1 > P2 ist, wird die Liste aufsteigend sortiert

Wird der Wert -1 zurückgegeben, wenn P1 > P2 ist, wird die Liste absteigend sortiert

 

Die Sortierung wird aufgerufen über:

 

Auto.SortIndirect("SortFunc")