# Re: 在一个textbox中, 如何判断输入的是字元或数字呢?

Posted by meteor on June 17, 1998 at 07:51:35:

In Reply to: Re: 在一个textbox中, 如何判断输入的是字元或数字呢? posted by 纪文和 on June 17, 1998 at 05:46:33:

: 假设该栏位是 Text1,则

: Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
: __If Len(Text1) = 1 Then
: ____If Asc(UCase$(Text1)) 90 Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这边该用什么判断式呢?因如不用则会错误

: ______MsgBox "只能输入 A.B.C.D..."
: ____Text1 = ""
: ____End If
: __End If
: __If Len(Text1) > 1 Then
: ____If Asc(Mid(Text1, Len(Text1), 1)) 57 Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
这边也一样说!

: ______MsgBox "只能输入数字"
: ______Text1 = Left(Text1, Len(Text1) - 1) '移除错误字元,可是游标会跑到最前面
: ______Text1.SelStart = Len(Text1) '将游标移到最后面,以方便 user 继续输入
: ____End If
: __End If
: End Sub

Follow Ups:

- Re: 在一个textbox中, 如何判断输入的是字元或数字呢? .....正确 纪文和 09:16:44 6/17/98 (0)