Merge pull request #7427 from PCL-Community/#7422

fix(validate): 超过 Int 存储范围
This commit is contained in:
龙腾猫跃
2025-12-16 00:42:37 +08:00
committed by GitHub
@@ -113,9 +113,9 @@ Public Class ValidateInteger
Me.Max = Max Me.Max = Max
End Sub End Sub
Public Overrides Function Validate(Str As String) As String Public Overrides Function Validate(Str As String) As String
If Str.Length > 9 Then Return "请输入一个大小合理的数字!"
Dim Valed As Integer Dim Valed As Integer
If Not Integer.TryParse(Str, Valed) Then Return "请输入一个整数!" If Not Integer.TryParse(Str, Valed) Then Return "请输入一个整数!"
If Str.Length > 9 Then Return "请输入一个大小合理的数字!"
If Valed > Max Then Return "不可超过 " & Max & "!" If Valed > Max Then Return "不可超过 " & Max & "!"
If Valed < Min Then Return "不可低于 " & Min & "!" If Valed < Min Then Return "不可低于 " & Min & "!"
Return "" Return ""