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

Posted by 纪文和 on June 17, 1998 at 05:46:33:

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

: 因要做check动作, 所以要判断输入的是字元或数字,
: 如: "A0001", 要判断第一个输入的是字元, 后四个为数字,
: 那我该如何下判断式呢?

假设该栏位是 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中, 如何判断输入的是字元或数字呢? meteor 07:51:35 6/17/98 (1)
  - Re: 在一个textbox中, 如何判断输入的是字元或数字呢? .....正确 纪文和 09:16:44 6/17/98 (0)