用VB做倒计时

发布网友发布时间：2024-03-03 15:46

共2个回答

热心网友时间：2024-11-20 20:45

用timer控件进行1秒计时，定义一个全局变量t，每一次timer都将t+1，当t=30时，窗体调用图片。
首先，在form窗体中放置一个timer控件，将timer的interval属性设置为1000。再放置一个picture控件，将picture，将图片调入到picture属性中，将visible属性设置为FALSE。

Public t As Variant

Private Sub Timer1_Timer()
t = t + 1
If t >= 5 Then
Picture1.Visible = True
Print t & "秒"
t = 0
timer1.enable=false
End If

End Sub

热心网友时间：2024-11-20 20:46

简单啊用一个循环就搞定了我们课程设计的时候就做过啊具体代码自己琢磨吧我懒的很啊

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com