ui: 添加 NeoForge 手动安装 Tab

feat: NeoForge 自动安装 Stage 1 fix: StdVersion 可能错误地包含了 "neoforge-" 前缀 fix: 自动安装选择 NeoForge 时自动生成的核心名称存在重复字符串
2024-06-16 08:52:45 +08:00
parent d8fe599739
commit 0e0335e688
10 changed files with 125 additions and 43 deletions
@@ -0,0 +1,32 @@
+Public Class PageDownloadNeoForge
+
+    Private Sub LoaderInit() Handles Me.Initialized
+        PageLoaderInit(Load, PanLoad, CardVersions, CardTip, DlNeoForgeListLoader, AddressOf Load_OnFinish)
+    End Sub
+    Private Sub Init() Handles Me.Loaded
+        PanBack.ScrollToHome()
+    End Sub
+
+    Private Sub Load_OnFinish()
+        '结果数据化
+        Try
+            Dim Versions As List(Of DlNeoForgeVersionEntry) = DlNeoForgeListLoader.Output
+            PanVersions.Children.Clear()
+            For Each Version In Versions
+                PanVersions.Children.Add(NeoForgeDownloadListItem(Version, AddressOf NeoForge_Selected, True))
+            Next
+            CardVersions.Title = "版本列表 (" & Versions.Count & ")"
+        Catch ex As Exception
+            Log(ex, "可视化 NeoForge 版本列表出错", LogLevel.Feedback)
+        End Try
+    End Sub
+
+    Private Sub NeoForge_Selected(sender As MyListItem, e As EventArgs)
+        McDownloadNeoForgeSave(sender.Tag)
+    End Sub
+
+    Private Sub BtnWeb_Click(sender As Object, e As EventArgs) Handles BtnWeb.Click
+        OpenWebsite("https://neoforged.net/")
+    End Sub
+
+End Class