我设计了一个文本框想在里面输入数字，如果输入其他的字符程序能报错。

Private Sub Text1_Keypress(KeyAscii As Integer)
If (Chr(KeyAscii) > "9" Or Chr(KeyAscii) < "0") Then
KeyAscii = 0
Label4.Caption = "请正确输入数字！！“"
Else
Label4.Caption = ""
End If

End Sub
其中一部分这样写，但是修改数字时用 backspace 也会显示“请输入正确的数字”，怎样才能避免这个情况呢？
谢谢
另外我写了个倒计时的小程序，在时间结束时可以闹铃提示
请问该怎样加入声音呢。
不胜感激!


[ 本帖最后由 lwbok 于 2010-7-8 22:52 编辑 ]

当什么不输入时，按backspace 就会报错了！

谢谢啦，挺好的！
还想问下，我编了倒计时的程序，
时间到时怎么才能声音提示呢？


[ 本帖最后由 lwbok 于 2010-7-9 10:47 编辑 ]