一个ascii的问题，为什么能输入汉字

[daquzi]

字母可以控制但汉字可以输入！代码如下
private pub g_WE_keypress(keyascii as integer)
seect case keyascii
case 48 to 57
case else

keyascii=0
end select

end sub

谢谢

[ryuginka]

Private gNumbers As String

Private Sub Form_Load()
gNumbers = "1234567890" + Chr(8) + Chr(45) + Chr(46) '控制TextBox框只能输入数字的字符串
End Sub
Private Sub TxtSL_KeyPress(KeyAscii As Integer)
If InStr(gNumbers, Chr(KeyAscii)) = 0 Then KeyAscii = 0
If KeyAscii = 46 And InStr(TxtSL.Text, ".") <> 0 Then KeyAscii = 0 '"."点号只能出现一次
If KeyAscii = 45 Then '"-"号必须放在第一位,且只能出现一次
If InStr(TxtSL.Text, "-") <> 0 Then
KeyAscii = 0
Else
TxtSL.SelStart = 0
End If
End If
End Sub

[ryuginka]

但是有缺陷:就是无法控制用复制粘贴汉字