上海软星解散:急求:怎样用timer控件 利用事件来控制接收

来源:百度文库 编辑:高考问答 时间:2024/04/29 21:37:27
我想利用timer时间控制写数据,比如50秒写一个....
应该如何写代码呢?

VB6.0使用Timer控件,每50秒执行一次.
Option Explicit
Dim sum_zj As Byte
Private Sub Timer1_Timer()
Timer1.Interval = 500
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
If sum_zj >= 50 Then '此处设为50秒
'在此插入写数据的代码

End If
End If
End Sub

VB6.0使用Timer控件,每50秒执行一次.
Option Explicit
Dim sum_zj As Byte
Private Sub Timer1_Timer()
Timer1.Interval = 500
If Label1.Caption <> CStr(Time$) Then
Label1.Caption = Time$
sum_zj = sum_zj + 1
Text1 = sum_zj
If sum_zj >= 50 Then '此处设为50秒
'在此插入写数据的代码

End If
End If
End Sub