[求助]怎样让textBox只能输入英文跟数字？

[tanghuawei]

如题，谢谢个位！

[lurenfu]

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

[yurilin]

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

[yurilin]

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 码表，我记不一定对

[yurilin]

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

[tanghuawei]

谢谢各位！