如题,谢谢个位!

解决方案 »

  1.   

    自己处理事件,OnChange,如果输入的不是英文和数字,就去掉
      

  2.   

    Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End Sub 
      

  3.   

    Private Sub Text1_KeyPress(KeyAscii As Integer)
     If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) Then KeyAscii = 0
     End Sub自己看ASCii 码表,我记不一定对
      

  4.   

    如果需要 backspace加 and keyascii=8
    否则只能用鼠标修改