关于textbox的小问题

Question

我现在希望在textbox里只能输入0-9,a-z,A-Z这些字符,
一旦输入非上面的字符,自动早lable中报错,请问如何解决
是用textbox 的change事件吗?

Answer 1

private sub text1_keypress(keyascii as integer)
  select case keyascii
    case asc("a") to asc("z")
    case asc("A") to asc("Z")
    case 48 to 57 '0-9
    case 8 '退格键
    case else
      keyascii=0
      label1.caption="非法输入!"
  end select
end sub