78 lines
3.7 KiB
VB.net
78 lines
3.7 KiB
VB.net
Imports System.Windows.Forms
|
||
|
||
Public Class PageLoginLegacy
|
||
|
||
Public Sub New()
|
||
InitializeComponent()
|
||
Skin.Loader = PageLaunchLeft.SkinLegacy
|
||
End Sub
|
||
Private Sub PageLoginLegacy_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
||
Skin.Loader.Start()
|
||
End Sub
|
||
|
||
Public IsReloaded As Boolean = False
|
||
''' <summary>
|
||
''' 刷新页面显示的所有信息。
|
||
''' </summary>
|
||
Public Sub Reload(KeepInput As Boolean)
|
||
If KeepInput AndAlso IsReloaded Then '避免第一次就以 KeepInput 的方式加载，导致文本框里没东西
|
||
'保留输入，只刷新下拉框列表
|
||
Dim Input As String = ComboName.Text.Trim
|
||
ComboName.ItemsSource = If(Setup.Get("LoginLegacyName") = "", Nothing, Setup.Get("LoginLegacyName").ToString.Split("¨"))
|
||
ComboName.Text = Input
|
||
Else
|
||
'不保留输入，刷新列表后自动选择第一项
|
||
If Setup.Get("LoginLegacyName") = "" Then
|
||
ComboName.ItemsSource = Nothing
|
||
Else
|
||
ComboName.ItemsSource = Setup.Get("LoginLegacyName").ToString.Split("¨")
|
||
ComboName.Text = Setup.Get("LoginLegacyName").ToString.BeforeFirst("¨").Trim
|
||
End If
|
||
End If
|
||
IsReloaded = True
|
||
End Sub
|
||
''' <summary>
|
||
''' 获取当前页面的登录信息。
|
||
''' </summary>
|
||
Public Shared Function GetLoginData() As McLoginData
|
||
Dim UserName As String = If(FrmLoginLegacy Is Nothing, "", FrmLoginLegacy.ComboName.Text.Replace("¨", "").Trim)
|
||
Return New McLoginLegacy With {.UserName = UserName, .SkinType = Setup.Get("LaunchSkinType"), .SkinName = Setup.Get("LaunchSkinID")}
|
||
End Function
|
||
''' <summary>
|
||
''' 当前页面的登录信息是否有效。
|
||
''' </summary>
|
||
Public Shared Function IsVaild(LoginData As McLoginLegacy) As String
|
||
If LoginData.UserName.Trim = "" Then Return "玩家名不能为空！"
|
||
If LoginData.UserName.Contains("""") Then Return "玩家名不能包含英文引号！"
|
||
If McVersionCurrent IsNot Nothing AndAlso
|
||
(McVersionCurrent.Version.IsStandardVersion AndAlso McVersionCurrent.Version.McVersion >= New Version(1, 20, 3)) AndAlso
|
||
LoginData.UserName.Trim.Length > 16 Then
|
||
Return "自 1.20.3 起，玩家名至多只能包含 16 个字符！"
|
||
End If
|
||
Return ""
|
||
End Function
|
||
Public Function IsVaild() As String
|
||
Return IsVaild(GetLoginData())
|
||
End Function
|
||
|
||
Private Sub ComboName_PreviewKeyDown(sender As Object, e As Input.KeyEventArgs) Handles ComboName.PreviewKeyDown
|
||
If e.Key = Key.Space Then
|
||
Dim Index = CType(ComboName.Template.FindName("PART_EditableTextBox", ComboName), MyTextBox).CaretIndex
|
||
If Index = ComboName.Text.Length OrElse Index = 0 Then e.Handled = True
|
||
End If
|
||
End Sub
|
||
Private Sub ComboLegacy_TextChanged(sender As Object, e As TextChangedEventArgs) Handles ComboName.TextChanged
|
||
If Setup.Get("LaunchSkinType") = 0 Then PageLaunchLeft.SkinLegacy.Start(IsForceRestart:=True)
|
||
HintChinese.Visibility = If(RegexCheck(ComboName.Text, "^[0-9A-Za-z_]*$"), Visibility.Collapsed, Visibility.Visible)
|
||
RunInUi(Sub() PanMain.InvalidateMeasure(), True) '由于 WPF 的 Bug，它不一定会自动更新 HintChinese 的大小（#6627）
|
||
End Sub
|
||
Private Sub Skin_Click() Handles Skin.Click
|
||
If (Setup.Get("UiHiddenPageSetup") OrElse Setup.Get("UiHiddenSetupLaunch")) AndAlso Not PageSetupUI.HiddenForceShow Then
|
||
Hint("启动设置已被禁用！", HintType.Red)
|
||
Else
|
||
FrmMain.PageChange(FormMain.PageType.Setup, FormMain.PageSubType.SetupLaunch) '切换到皮肤设置页面
|
||
End If
|
||
End Sub
|
||
|
||
End Class
|