神马品牌网苏州水处理工程公司:关于vb6.0环境下一个时钟到记时的正确程序，请高手赐教！
来源：百度文库 编辑：神马品牌网 时间：2024/04/30 05:47:19
如下代码可实现与电脑时钟同步精度的倒记时功能,修改sum_zj1的设置值可改变倒记时值.
Option Explicit
Dim sum_zj As Integer
Dim sum_zj1 As Integer
Private Sub Form_Load()
sum_zj = 0: sum_zj1 = 20 '倒记时60秒
Text1 = sum_zj: Text2 = sum_zj1
End Sub
Private Sub Timer1_Timer()
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
'3秒校准一次
If sum_zj >= 3 And sum_zj1 > 0 Then
sum_zj1 = sum_zj1 - 1
sum_zj = sum_zj - 3
Text2 = sum_zj1
ElseIf sum_zj1 <= 0 Then
Form1.BackColor = vbRed
Timer1.Enabled = False
End If
End If
End Sub
放一个timer控件到form上,timer控件的interval属性设置为1000，然后在控件里写你的程序就好了，每隔1秒钟执行一次。比如做倒记时可以让一个变量每隔一秒递减1。