From 4a5cc3f95b2739f72f508db3eef7159d871cc11a Mon Sep 17 00:00:00 2001 From: wyc-26 Date: Thu, 30 Oct 2025 22:01:08 +0800 Subject: [PATCH] =?UTF-8?q?fix(validate):=20=E6=B2=A1=E6=9C=89=E5=88=A4?= =?UTF-8?q?=E6=96=AD=E5=89=8D=E5=AF=BC=E9=9B=B6?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Plain Craft Launcher 2/Modules/Base/ModValidate.vb | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Plain Craft Launcher 2/Modules/Base/ModValidate.vb b/Plain Craft Launcher 2/Modules/Base/ModValidate.vb index 54e9859..d973481 100644 --- a/Plain Craft Launcher 2/Modules/Base/ModValidate.vb +++ b/Plain Craft Launcher 2/Modules/Base/ModValidate.vb @@ -113,11 +113,16 @@ Public Class ValidateInteger Me.Max = Max End Sub Public Overrides Function Validate(Str As String) As String + Dim Valed As Integer + If Not Integer.TryParse(Str, Valed) Then + Return "请输入一个整数！" + End If + If Not RegexCheck(Str, "^(-?0|-?[1-9]\d*)$") Then + Return "请输入一个不带有前导零的整数！" + End If If Str.Length > 9 Then Return "请输入一个大小合理的数字！" - Dim Valed As Integer = Val(Str) - If Valed.ToString <> Str Then Return "请输入一个整数！" - If Val(Str) > Max Then Return "不可超过 " & Max & "！" - If Val(Str) < Min Then Return "不可低于 " & Min & "！" + If Valed > Max Then Return "不可超过 " & Max & "！" + If Valed < Min Then Return "不可低于 " & Min & "！" Return "" End Function End Class