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

Posted by 纪文和 on June 17, 1998 at 09:16:44:

In Reply to: Re: 在一个textbox中, 如何判断输入的是字元或数字呢? posted by meteor on June 17, 1998 at 07:51:35:

不好意思, 我从VB编辑环境中将程式 COPY 出来时, 出了一点错, 因为在讨
论区中 '大于' 放在 '小于' 之后,其间之文字被吃掉了 (可能被当成注解了),
在以下之程式中, '大于' 以 ']' 表示, '小于' 以 '[' 表示,
正确程式如下:

: : 假设该栏位是 Text1,则

: : Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
: : __If Len(Text1) = 1 Then
: : ____If Asc(UCase$(Text1)) ] 90 or Asc(UCase$(Text1)) [ 65 Then 'A的 asc码为65, Z为90
: : ______MsgBox "只能输入 A.B.C.D...Z"
: : ____Text1 = ""
: : ____End If
: : __End If
: : __If Len(Text1) > 1 Then '0的 asc码为48, 9的 asc码为57
: : ____If Asc(Mid(Text1, Len(Text1), 1)) ] 57 or Asc(Mid(Text1, Len(Text1), 1)) [ 48 Then
: : ______MsgBox "只能输入数字"
: : ______Text1 = Left(Text1, Len(Text1) - 1) '移除错误字元,可是游标会跑到最前面
: : ______Text1.SelStart = Len(Text1) '将游标移到最后面,以方便 user 继续输入
: : ____End If
: : __End If
: : End Sub

Follow Ups: