上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,60 @@
+Public Class PageDownloadOptiFine
+
+    Private Sub LoaderInit() Handles Me.Initialized
+        PageLoaderInit(Load, PanLoad, PanMain, CardTip, DlOptiFineListLoader, AddressOf Load_OnFinish)
+    End Sub
+    Private Sub Init() Handles Me.Loaded
+        PanBack.ScrollToHome()
+    End Sub
+
+    Private Sub Load_OnFinish()
+        '结果数据化
+        Try
+            '归类
+            Dim Dict As New Dictionary(Of String, List(Of DlOptiFineListEntry))
+            Dict.Add("快照版本", New List(Of DlOptiFineListEntry))
+            For VersionCode As Integer = 30 To 0 Step -1
+                Dict.Add("1." & VersionCode, New List(Of DlOptiFineListEntry))
+            Next
+            For Each Version As DlOptiFineListEntry In DlOptiFineListLoader.Output.Value
+                If Version.Inherit.StartsWith("1.") Then
+                    Dim MainVersion As String = "1." & Version.NameDisplay.Split(".")(1).Split(" ")(0)
+                    If Dict.ContainsKey(MainVersion) Then
+                        Dict(MainVersion).Add(Version)
+                    Else
+                        Dict("快照版本").Add(Version)
+                    End If
+                Else
+                    Dict("快照版本").Add(Version)
+                End If
+            Next
+            '清空当前
+            PanMain.Children.Clear()
+            '转化为 UI
+            For Each Pair As KeyValuePair(Of String, List(Of DlOptiFineListEntry)) In Dict
+                If Pair.Value.Count = 0 Then Continue For
+                '增加卡片
+                Dim NewCard As New MyCard With {.Title = Pair.Key & " (" & Pair.Value.Count & ")", .Margin = New Thickness(0, 0, 0, 15), .SwapType = 3}
+                Dim NewStack As New StackPanel With {.Margin = New Thickness(20, MyCard.SwapedHeight, 18, 0), .VerticalAlignment = VerticalAlignment.Top, .RenderTransform = New TranslateTransform(0, 0), .Tag = Pair.Value}
+                NewCard.Children.Add(NewStack)
+                NewCard.SwapControl = NewStack
+                NewCard.IsSwaped = True
+                PanMain.Children.Add(NewCard)
+            Next
+        Catch ex As Exception
+            Log(ex, "可视化版本列表出错", LogLevel.Feedback)
+        End Try
+    End Sub
+
+    Public Sub DownloadStart(sender As MyListItem, e As Object)
+        McDownloadOptiFine(sender.Tag)
+    End Sub
+
+    Private Sub BtnWeb_Click(sender As Object, e As EventArgs) Handles BtnWeb.Click
+        OpenWebsite("https://www.optifine.net/")
+    End Sub
+    Private Sub BtnChina_Click(sender As Object, e As EventArgs) Handles BtnChina.Click
+        OpenWebsite("https://optifine.cn/home")
+    End Sub
+
+End Class