如何限制文本框只能输入汉字或数字、字母
'只能输入字母
Private Sub txtWord_KeyPress(KeyAscii As Integer)If KeyAscii < 65 Or KeyAscii > 122 Then KeyAscii = 0End IfEnd Sub
'只能输入汉字
Private Sub txt汉字_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) Like "[!一-龥]" ThenIf KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 ThenKeyAscii = 0End IfEn...