feat(PageVersionSetup): 替换中文冒号不弹窗提示

2025-08-07 21:20:42 +08:00
parent 490626a293
commit 68483876f3
1 changed files with 1 additions and 6 deletions
@@ -400,12 +400,7 @@ PreFin:
    End Sub
    Private Shared Sub TextServerEnter_Change(sender As MyTextBox, e As Object) Handles TextServerEnter.LostFocus
-        If sender.Text.ContainsF("：") Then
+        sender.Text = sender.Text.Replace("：", ":")
            If MyMsgBox("你似乎将服务器地址中的冒号打成了全角冒号，这可能会导致你无法进入服务器！" & vbCrLf & vbCrLf & "是否要将其替换为半角冒号？",
                     "警告", Button1:="确定", Button2:="取消", IsWarn:=True) = 1 Then
                sender.Text = sender.Text.Replace("：", ":")
            End If
        End If
    End Sub
 #End Region