请问::TEXT如何限制用户输入数的范围!!

Question

如果限定用户只可以在TEXT1中输入0至10 的数
    如果超出或输入非数字的内容~~提示出错!!
  应该怎样写呢?
  请教请教!!

Answer 1

Option ExplicitPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
        MsgBox "ERR"
        KeyAscii = 0
    End If
End Sub

Answer 2

Private Sub Text1_LostFocus()
If IsNumeric(Text1.Text) = False Or Val(Text1.Text) > 10 Or Val(Text1.Text) < 0 Then
    MsgBox "数据非法"
    Text1.SetFocus
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Exit Sub
End If
End Sub

Answer 3

Private Sub txtTimeout_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
        KeyAscii = 0
        Msgbox "错误，只能输入0~9的整数。",vbokonly,"发生错误"
    End If
End Sub

Answer 4

可以找以前的帖子，有用api的方法，比较官方一点
上面的几位的代码都可以，不过，条件里面应该把 
vbKeyBack 0x8 BACKSPACE 键 
vbKeyDelete 0x2E DELETE 键 
和 小数点 考虑进去，方便输入
另外，放在KeyPress(KeyAscii As Integer)事件里面检查，仍然可以用鼠标右键粘贴非数字进去
如果你和我一样不喜欢用api的话
就在Validate(Cancel As Boolean)事件里面加相关代码来检查
呵呵

Answer 5

Validate(Cancel As Boolean)事件是什么事件~~
我没用过~~请说说有什么用???

Answer 6

Validate，检查有效性的事件！

Answer 7

Validate事件在焦点转换到一个（第二个）控件之前发生，此时该控件的 CausesValidation 属性值设置为True。语法Private Sub object_Validate(KeepFocus As Boolean)Validate事件语法包含下面几部分：部分 描述 
object 一个对象表达式，其值为“应用于”列表中的一个对象。 
KeepFocus 确定控件是否失去焦点的值。KeepFocus设置为True时，控件保持焦点。 
说明Validate 事件和CausesValidation 属性协同工怍，防止控件失去焦点直到满足确定的准则

Answer 8

另一个建议：把text控件lock掉，然后绑定一个updown控件```

Answer 9

//另一个建议：把text控件lock掉，然后绑定一个updown控件```我见过flexcell的网站上下载flexcell的演示代码里面，就有一个页面设置的窗体，里面有文本框输入数字的方法，不是使用了updown，但也类似于updown的功能，可以去下载参考一下。地址：http://www.grid2000.com/cn/

Answer 10

Validate 事件真的不错哦~~
    现在才知道它有什么用~~
谢 fulcrumtian教了我~~