神马品牌网红塔区人民法院:急求用vb做一个时钟提醒软件，到时间用对话框来提醒
来源：百度文库 编辑：神马品牌网 时间：2024/05/09 01:32:07
给出如下代码，修改后使用：
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