VB_如何使文本框只能录入汉字?

Question

如题。

Answer 1

过滤字母,数字,标点符号......在KeyPress里判断KEYCODE吧.

Answer 2

老马。请问具体怎样过滤啊？我的代码如下：Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyCode > 255 Then
Text1(3).SetFocus
ElseIf KeyCode < 255 Then
Text5.SetFocus
MsgBox "请输入计量单位"
End If
End Sub问题就是我在输入汉字的时候总要按字母的键位。

Answer 3

可以这样吗？在按“保存”（cmd_save）的时候校验Text5中是否存在数字！

Answer 4

那当然可以呀.用个循环:for i=1 to len(text1.text)
    select case asc(mid(text1.text,i,1))
        case 48 to 57,65 to 90,97 to 122      '检查字母(大小写),数字
            mid(text1.text,i,1)=""       '去掉
     end select
next