vb里面有一个datediff函数,可以用来计算两个日期之间相差多少秒,然后把这个结果除以(24*60*60)的结果就是还有多少天,余数除以60*60的结果就是还有多少小时,然后余数再除以60就是分,剩下的余数就是秒
你没有说清楚具体是什么样的计时器……所以我就随便帮你设置了一种界面。
Dim
t
Private
Sub
Command1_Click()
Command1.Enabled
=
False
Timer1.Enabled
=
True
t
=
Val(Text1)
End
Sub
Private
Sub
Timer1_Timer()
t
=
t
-
1
Label4
=
t
&
"秒"
If
t
=
0
Then
Timer1.Enabled
=
False
Call
MsgBox("时间到",
,
"提示")
End
If
End
Sub
呵呵,说了都等于没说
我也是初学,就继续等于没说了
恩```这个是简单```找找资料书就可以做出来````
那么简单的,自己做