Question

VB在一个文本框中要求只能输入正整数，而且在0到10范围内。超过范围不能输入

求详细代码！高手们，谢谢啊!

Answer 1

注意首先要把text1的MaxLength属性设置为2(最大长度)

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

以上代码调试通过