商标转让要多少钱:想用timer事件做一个到计时,有谁知道怎么做?
来源:百度文库 编辑:查人人中国名人网 时间:2024/08/31 04:40:22
用VB,做一个60秒的倒计时,输出在label里面,有什么简单的方法没有?
希望能给写出代码。
我的 QQ是124130213。
谢谢你,等我做出了那个,分数马上加给你。
你能加我进你的QQ么?
怎么将TIMER设为现在时间?
希望能给写出代码。
我的 QQ是124130213。
谢谢你,等我做出了那个,分数马上加给你。
你能加我进你的QQ么?
怎么将TIMER设为现在时间?
设定一个长型变量,在窗体的载入事件中为它赋初值。创建一个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
把timer 设为现在的时间, timer+10 就是到达时间, 然后就用到达的时间减去现在的 timer
<=0 就是10秒到了
1、使用Timer控件,其中设置间隔时间,每次激活时计时时间减少相应数值(使用简单,但是程序复杂的话,计时“非常”不准)。
2、使用系统时间来计时,Timer控件进行激活显示。如:设置开始时间如StartTime = Timer,Timer控件激活后,再次系统当前时间,将差值在显示中减去(比较准确的计时,推荐)。
3、更精确的计时,使用API函数,GetTickCount可以精确计时,Timer控件来激活计算。
自己看