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") 好像没有作用,这是怎么回事?

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

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

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编辑过]

对,是三楼,谢了