fix(validate): 超过 Int 存储范围
This commit is contained in:
@@ -113,9 +113,9 @@ Public Class ValidateInteger
|
||||
Me.Max = Max
|
||||
End Sub
|
||||
Public Overrides Function Validate(Str As String) As String
|
||||
If Str.Length > 9 Then Return "请输入一个大小合理的数字!"
|
||||
Dim Valed As Integer
|
||||
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 & "!"
|
||||
Return ""
|
||||
|
||||
Reference in New Issue
Block a user