Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
If KeyAscii >= 32 And KeyAscii <= 47 Then
KeyAscii = 0
Beep 'Beep表示PC喇叭会响一声
End If
End Sub

这样依然可以输入汉字的，请问要如何修改才可以做到只允许输入数字？

[此贴子已经被作者于2007-9-30 22:05:56编辑过]

这个有错哦

编译错误:
过程声明与同名事件或过程的描述不匹配

[此贴子已经被作者于2007-9-30 20:32:45编辑过]

谢谢