关于VB timer 控件延时做倒计时程序

发布网友发布时间：2022-04-21 05:32

共2个回答

热心网友时间：2023-06-25 06:27

有好几处错误，
1,Do ... loop循环不能放在timer时间中，不然每次timer,都会循环一次，你看不到过程，只能看到结果
2, delay.Enabled = True，delay过程没定义，如果是timer控件，应该是delay1或delay2 ？？
3. Ti变量没定义，不是你认为的那样，可以为T1或T2，谁知道？计算机不知道的~~追问那IF 语句可以用不？delay1或delay2都可以调用。Ti这样的变量该怎么定义，我实在是不知道怎么写了。。。。

追答if是可以用的，不要用Ti了，Private Sub start_Click()
Private Sub start_Click()
n = T1
Call delay_Timer ‘改成 Call delay1_Timer

n = T2
Call delay_Timer ‘改成 Call delay2_Timer
End Sub

Private Sub delay2_Timer() ‘timer.interval 属性设置为1000，改成delay1_Timer()
showT.Caption = Ti ‘改成T1
delay.Enabled = True '改成Delay1.enabled=true
Do While (n > 0)'不要用do loop,用if
n = n - 1
showtime.Text = Str$(n)
Loop
delay.Enabled = False
End Sub

Private Sub delay2_Timer() ‘timer.interval 属性设置为1000

showT.Caption = Ti '改成T2
delay.Enabled = True
if n >= 1 then
n = n - 1
showtime.Text = Str$(n) 'showtime文本框内显示倒计时的数字
else
n = 0
delay.Enabled = False
end if
End Sub

热心网友时间：2023-06-25 06:28

看不明白什么意思追问就是设置两个时间段，分别进行倒计时

追答delay.Enabled = True
Call delay_Timer

你确定你的程序能运行起来，没有逻辑问题？？？
那么delay是什么？delay_Timer过程在哪？TI变量是什么？？？很多东西不说清楚，控件命名搞不清谁跟谁