fix: NeoForge 版本列表排序,但是抽象实现
This commit is contained in:
@@ -2241,11 +2241,10 @@ Retry:
|
||||
'获取最新版本
|
||||
Dim FreshVersion As DlNeoForgeVersionEntry = Nothing
|
||||
If Entrys.Any Then
|
||||
FreshVersion = Entrys(0)
|
||||
FreshVersion = Entrys.Last()
|
||||
Else
|
||||
Log("[System] 未找到可用的 NeoForge 版本", LogLevel.Debug)
|
||||
End If
|
||||
Dim RecommendedVersion As DlNeoForgeVersionEntry = Nothing
|
||||
'显示各个版本
|
||||
If FreshVersion IsNot Nothing Then
|
||||
Dim Fresh = NeoForgeDownloadListItem(FreshVersion, OnClick, IsSaveOnly)
|
||||
|
||||
@@ -974,9 +974,11 @@
|
||||
If Not Loader.Output.Any() Then Exit Sub
|
||||
PanNeoForge.Children.Clear()
|
||||
|
||||
Dim VersionsArray As Array = Versions.ToArray()
|
||||
VersionsArray.Reverse(VersionsArray)
|
||||
'Versions = Sort(Versions, Function(a, b) New Version(a.Version) > New Version(b.Version)).ToList
|
||||
NeoForgeDownloadListItemPreload(PanNeoForge, Versions, AddressOf NeoForge_Selected, False)
|
||||
For Each Version In Versions
|
||||
For Each Version In VersionsArray
|
||||
PanNeoForge.Children.Add(NeoForgeDownloadListItem(Version, AddressOf NeoForge_Selected, False))
|
||||
Next
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user