VB 限制文本框只能输入字母和数字

Question

如题 ，在网上的找的方法 都不行！ 
请支招如上图，用什么事件？
请详细说下！  在此深深感谢！ 着急啊！

Answer 1

Public Function Alphabet_Digit_Only(ByVal KeyAscii As Integer) As Integer
    Select Case KeyAscii
        Case 8, 9, 13, &H30 To &H39, Asc("A") To Asc("Z"), Asc("a") To Asc("z")
            Alphabet_Digit_Only = KeyAscii        Case Else
            Alphabet_Digit_Only = 0
    End Select
End FunctionPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Alphabet_Digit_Only(KeyAscii)
End Sub写一个这样的函数，可以放在标准模块中。你在所有需要做此限制的 TextBox 的 KeyPress 事件中，复制一句
KeyAscii = Alphabet_Digit_Only(KeyAscii)
即可。功能键 Tab、回车、向前删除仍然有效，方便操作。