Private Sub Text1_Change()
Dim str As String
str = Right(Text1, 1)
If StrComp("0", str) = 1 And StrComp(str, "9") Then
MsgBox "对不起,您输入了非法字符,请重新输入!", vbOKOnly + vbExclamation, "温馨提示"
End If
End Sub


只要我输入ASCLL码中大于零的字符都可以,后面的一句And StrComp(str, "9") 好像没有作用,这是怎么回事?

你是只能用户输入0-9是吧?..
用这个..

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'如何让文本框只接受数字？
'答：使用如下代码，在文本框的按键事件中加入：

If KeyAscii >= 33 Then '33是主键盘的"1"和"!"号,句意为,从ASCII码的33开始
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then 'vbKey,在VB中的键位常数,语法vbKey键位,例如vbKey0就是键盘的"0"键位
Else ': 注释: 把KeyAscii设为0就是取消输 入?
KeyAscii = 0 'ASCII码中的0代表空操作,所以不满足以上条件的进行空操作,就是什么也不做,你可以取消这句看看效果
MsgBox "请输入数字！"
End If
End If

'注意：KeyAscii键值与KeyCode 相同，我们可以查看KeyCode值，
'不 过有些KeyCode键值必须在 KeyDown和KeyUp中才有效，在 KeyPress的KeyAscii中没用。
'利用 KeyAscii=0的方式在KeyPress中有 用，但在KeyDown中让KeyCode=0 就不行了。

End Sub

那个也可以,只是我搞错了,我要的是为了输入字母,数字,其它的都不行
可能是昨天晚上没睡觉,头脑不清醒,这点小问题都搞混了,谢了版主,后面的我自己解决吧!

二楼的说得挺详细的,不错,谢了
这是我改的

Private Sub Text1_Change()
Dim str As String
str = Right(Text1, 1)
If Not (StrComp(str, "0") <> -1 And StrComp("9", str) <> -1) Then
MsgBox "对不起,您输入了非法字符,请重新输入!", vbOKOnly + vbExclamation, "温馨提示"
End If
End Sub

我也会用一下 Keyascii 的

[此贴子已经被作者于2006-12-30 20:51:53编辑过]

应该是三楼吧!

对,是三楼,谢了