2.11.1

2025-11-01 11:51:54 +08:00
parent a067271995
commit efd480f06c
24 changed files with 1031 additions and 431 deletions
@@ -114,12 +114,7 @@ Public Class ValidateInteger
    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 Not Integer.TryParse(Str, Valed) Then Return "请输入一个整数！"
        If Str.Length > 9 Then Return "请输入一个大小合理的数字！"
        If Valed > Max Then Return "不可超过 " & Max & "！"
        If Valed < Min Then Return "不可低于 " & Min & "！"