feat(PageVersionSetup): 替换中文冒号不弹窗提示
This commit is contained in:
@@ -400,12 +400,7 @@ PreFin:
|
|||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Private Shared Sub TextServerEnter_Change(sender As MyTextBox, e As Object) Handles TextServerEnter.LostFocus
|
Private Shared Sub TextServerEnter_Change(sender As MyTextBox, e As Object) Handles TextServerEnter.LostFocus
|
||||||
If sender.Text.ContainsF(":") Then
|
|
||||||
If MyMsgBox("你似乎将服务器地址中的冒号打成了全角冒号,这可能会导致你无法进入服务器!" & vbCrLf & vbCrLf & "是否要将其替换为半角冒号?",
|
|
||||||
"警告", Button1:="确定", Button2:="取消", IsWarn:=True) = 1 Then
|
|
||||||
sender.Text = sender.Text.Replace(":", ":")
|
sender.Text = sender.Text.Replace(":", ":")
|
||||||
End If
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user