在VC6。0中如何在倒计时过程中增加计时的时间？

来源：百度知道 编辑：UC知道 时间：2024/05/25 05:37:55
我要实现的是先设置一个值，比方说是10秒，然后开始倒计时，然后在到计时的过程中通过键盘输入，比如按一下“1”，计时的时间增加10秒，怎么做啊？

回：…烟花飘飘… 你用的是什么语言写的啊，我看不懂啊，可以用VC写一个吗？

Public a

Private Sub Form_KeyPress(KeyAscii As Integer)

If KeyAscii = 97 Then '按字母A时间+30秒
a = a + 30
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
a = a + 1
Me.Cls
Print "系统记时" & a
End Sub

是啊，你是怎么实现倒计时的？是设一个变量，然后启动一个计时器，每次触发时将变量值减1，还是用线程，还是其他什么方法？

不明白你的提问，
你定时器可以设置成1000 Ms触发一次，然后设置一个初始变量比如n=1000.
在定时器里 n--.
这不就是1000秒的倒计时吗？如果要增加计时的时间，就你写个方法修改n的值不就行了？