上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,32 @@
+Public Class PageDownloadFabric
+
+    Private Sub LoaderInit() Handles Me.Initialized
+        PageLoaderInit(Load, PanLoad, CardVersions, CardTip, DlFabricListLoader, AddressOf Load_OnFinish)
+    End Sub
+    Private Sub Init() Handles Me.Loaded
+        PanBack.ScrollToHome()
+    End Sub
+
+    Private Sub Load_OnFinish()
+        '结果数据化
+        Try
+            Dim Versions As JArray = DlFabricListLoader.Output.Value("installer")
+            PanVersions.Children.Clear()
+            For Each Version In Versions
+                PanVersions.Children.Add(FabricDownloadListItem(Version, AddressOf Fabric_Selected))
+            Next
+            CardVersions.Title = "版本列表 (" & Versions.Count & ")"
+        Catch ex As Exception
+            Log(ex, "可视化 Fabric 版本列表出错", LogLevel.Feedback)
+        End Try
+    End Sub
+
+    Private Sub Fabric_Selected(sender As MyListItem, e As EventArgs)
+        McDownloadFabricLoaderSave(sender.Tag)
+    End Sub
+
+    Private Sub BtnWeb_Click(sender As Object, e As EventArgs) Handles BtnWeb.Click
+        OpenWebsite("https://www.fabricmc.net")
+    End Sub
+
+End Class