高校问答少女前线春田评测:怎么用vb记时,到点时就运行程序
来源：百度文库 编辑：高校问答 时间：2024/05/08 18:56:30
那个时钟
代码
有的地方说明白点
我是
菜鸟
代码
有的地方说明白点
我是
菜鸟
给出如下代码，修改后使用：
Private Sub Timer1_Timer()
If lblTime.Caption <> CStr(Time) Then
lblTime.Caption = Time$
Text1 = Mid(Time$, 1, 2)
Text2 = Mid(Time$, 4, 2)
Text3 = Mid(Time$, 7, 2)
If Mid(Time$, 4, 2) = 0 And Mid(Time$, 7, 2) = 0 Then
Text4 = "正点"
'插入报时语句
Else
Text4 = ""
End If
End If
End Sub
接取系统时间
和你设计的时间比较
如果相等就运行
用TIMEER，设定间隔的秒数，用IF判断预定的时间，如果等于就执行