Privé Sub (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten Button1_Click Button1.Click
Schemerige sortedExtensions als Nieuwe Lijst (van SortedExtension)
sortedExtensions.Sort (Functie (e1 als SortedExtension, e2 als SortedExtension) als Geheel
Als e1.Priority = e2.Priority toen
Terugkeer String.CompareOrdinal (e1.Name, e2.Name)
Anders
Terugkeer e1.Priority.CompareTo (e2.Priority)
Eind als
De Functie van het eind)
Sub van het eind
|