上传公开代码

2022-07-27 18:48:13 +08:00
parent 6a3f4d35d4
commit b0b02291cc
208 changed files with 38567 additions and 0 deletions
@@ -0,0 +1,47 @@
+Class PageSetupLink
+
+    Private Shadows IsLoaded As Boolean = False
+
+    Private Sub PageSetupLink_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+
+        '重复加载部分
+        PanBack.ScrollToHome()
+
+        '非重复加载部分
+        If IsLoaded Then Exit Sub
+        IsLoaded = True
+
+        AniControlEnabled += 1
+        Reload()
+        AniControlEnabled -= 1
+
+    End Sub
+    Public Sub Reload()
+        CheckLinkAuto.Checked = Setup.Get("LinkAuto")
+        TextLinkName.Text = Setup.Get("LinkName")
+    End Sub
+
+    '初始化
+    Public Sub Reset()
+        Try
+            Setup.Reset("LinkAuto")
+            Setup.Reset("LinkName")
+
+            Log("[Setup] 已初始化联机页设置")
+            Hint("已初始化联机页设置！", HintType.Finish, False)
+        Catch ex As Exception
+            Log(ex, "初始化联机页设置失败", LogLevel.Msgbox)
+        End Try
+
+        Reload()
+    End Sub
+
+    '将控件改变路由到设置改变
+    Private Shared Sub CheckBoxChange(sender As MyCheckBox, e As Object) Handles CheckLinkAuto.Change
+        If AniControlEnabled = 0 Then Setup.Set(sender.Tag, sender.Checked)
+    End Sub
+    Private Shared Sub TextBoxChange(sender As MyTextBox, e As Object) Handles TextLinkName.ValidatedTextChanged
+        If AniControlEnabled = 0 Then Setup.Set(sender.Tag, sender.Text)
+    End Sub
+
+End Class