Question

VB在指定时间弹出对话框

比如
同步系统时间 赋值于label1.caption
当系统时间为8点时 弹出对话框

Answer 1

下面的例子是晚上8点弹出对话框
Private Sub Form_Load()
Label1.Caption = Now
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
If Right(Label1.Caption, 8) = "18:27:40" Then
MsgBox "时间到"
End If
End Sub

Answer 2

Private Sub Form_Load()
Label1.Caption = Time$
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time$
DoEvents
If Mid(Time$, 1, 2) = "8" Then MsgBox "yes" Else
End Sub