VB在一个文本框中要求只能输入正整数，而且在0到10范围内。超过范围不能输入
发布网友
发布时间：2022-05-14 23:12
共1个回答
热心网友
时间：2023-11-06 17:12
Private Sub Text1_Change()
On Error Resume Next
If IsNumeric(Right(Text1.Text, 1)) = False Or IsNumeric(Left(Text1.Text, 1)) = False Or Val(Text1.Text) > 10 Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
If Text1.Text <> "" Then Text1.Text = Val(Text1.Text) '防止十位数输入为0
Text1.SelStart = Len(Text1.Text)
End Sub
以上代码调试通过
