 |
设定一个长型变量，在窗体的载入事件中为它赋初值。创建一个timer控件，设定Interval属性为响应周期，在timer1_timer中让该变量自减。然后用一个分支，若等于0则作出某种动作。例子：
Dim lTime As Long
Sub Form_ Load()
lTime = 100 ’ 100秒倒计时
Timer1.Interval=1000 ' 每秒发生一次Timer事件
End Sub
Sub Timer1_Timer()
lTime = lTime - 1
Me.Caption = "还有" + Str(lTime) + "秒"！
If lTime = 0 Then
MsgBox "时间已到!"
End If
End Sub
银河: 请问
Sub Form_ Load()
中的 Sub 被加在语句开头是什么意思??还有,Timer1跟time有什么区别???
李海答：Sub是VB的关键词，表示Form_Load是一个子过程。Timer1是一个定时器控件，而Time是VB的一个函数，返回当前时间。
 鸿毅的意见：
只用时钟控制就可以了，比如：
Private Sub Timer1_Timer()
Static mul As integer,i As integer
'比如是100秒的'
i=i+1
mul=100-i
'用text1控键来输出结果'
text1.text=mul
If mul =0 Then timer1.enable=false
End Sub
首先说明的是时钟控键的时频应是1000、enable 的值为true。还有text1的字长是在2 个字节之内，否则就会出现好多重复的
此问题由zhoujie回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, 其他方面, 。
|
怎样用VB编写一个倒计时程序
