PageSetupLink.xaml.vb 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. Public Class PageSetupLink
  2. Private Shadows IsLoaded As Boolean = False
  3. Private Sub PageSetupLink_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
  4. '重复加载部分
  5. PanBack.ScrollToHome()
  6. '非重复加载部分
  7. If IsLoaded Then Return
  8. IsLoaded = True
  9. AniControlEnabled += 1
  10. Reload()
  11. AniControlEnabled -= 1
  12. End Sub
  13. Public Sub Reload()
  14. ComboLatencyMode.SelectedIndex = Settings.Get("LinkLatencyMode")
  15. TextCustomPeer.Text = Settings.Get("LinkCustomPeer")
  16. End Sub
  17. '初始化
  18. Public Sub Reset()
  19. Try
  20. Settings.Reset("LinkLatencyMode")
  21. Settings.Reset("LinkCustomPeer")
  22. Log("[Setup] 已初始化联机页设置")
  23. Hint("已初始化联机页设置!", HintType.Green, False)
  24. Catch ex As Exception
  25. Log(ex, "初始化联机页设置失败", LogLevel.Msgbox)
  26. End Try
  27. Reload()
  28. End Sub
  29. '将控件改变路由到设置改变
  30. Private Shared Sub TextBoxChange(sender As MyTextBox, e As Object) Handles TextCustomPeer.ValidatedTextChanged
  31. If AniControlEnabled = 0 Then Settings.Set(sender.Tag, sender.Text)
  32. End Sub
  33. Private Shared Sub ComboChange(sender As MyComboBox, e As Object) Handles ComboLatencyMode.SelectionChanged
  34. If AniControlEnabled = 0 Then Settings.Set(sender.Tag, sender.SelectedIndex)
  35. End Sub
  36. End Class