求高人帮我写一段VB简单的倒计时代码!谢过

发布网友发布时间：2024-10-21 00:01

共3个回答

热心网友时间：2024-11-29 04:52

Dim i As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
i = 60
End Sub

Private Sub Timer1_Timer()
i = i - 1
Me.Caption = i
End Sub

热心网友时间：2024-11-29 04:53

vb上有一个timer的设定，你把时间对好就可以了，那个是以秒做单位，3600是一分钟。你去找找有的

热心网友时间：2024-11-29 04:53

一个文本框就够了吧,你又没说另一个文本框的作用
在窗体上画一个timer1，一个text1

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
a = 60
Text1.Text = ""
End Sub

Private Sub Timer1_Timer()
a = a - 1
Text1.Text = a
If a = 0 Then Timer1.Enabled = False
End Sub

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