Question

VB中文本框只能输入汉字

VB请帮忙编写文本框只能输入中文汉字的程序,其它什么都不能输入的!我想用TEXT做一个输入姓名的,可怕会输入数字或符号,请问能如何解决啊?

Answer 1

d

修改后

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
Else
KeyAscii = 0
End If
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Asc(Chr(KeyAscii)) >= 0 And Asc(Chr(KeyAscii)) <= 127 Then KeyAscii = 0
End Sub