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

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 编辑 ]

keyup过程

  If KeyAscii = 8 Then Text1 = Left(Text1, Len(Text1) - 1)
    If IsNumeric(Chr(KeyAscii)) = False Then KeyAscii = 0
   

  If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Then Exit Sub '如果是字符和退格键接受处理
  if keyascii=13 then sendkeys "{tab}" '如果是回车键跳至下个输入
  Label4.Caption = "请正确输入数字！！“"
  keyascii=0 '否则不响应键输入

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

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


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

If KeyAscii = 8 And Text1 <> "" Then Text1 = Left(Text1, Len(Text1) - 1)
    If IsNumeric(Chr(KeyAscii)) = False Then KeyAscii = 0