Question

怎样用VB2005编写每天定时提醒图片，然后关闭。就像我们的闹铃，可以定时提醒，手动关闭

Answer 1

Option Explicit
Dim ATime
Private Sub Form_Load()
ATime = ""
Timer1.Interval = 1000
End Sub
Private Sub Command1_Click()
ATime = InputBox("输入启动闹钟的时间", "VB 闹钟", ATime)
If ATime = "" Then Exit Sub
If Not IsDate(ATime) Then
MsgBox "您输入的时间无效。"
Else ' 从 InputBox 返回的字符串使有效时间,
ATime = CDate(ATime) ' 将它作为一个日期/时间值存储在 ATime 中。此时ATime为日期型(Date)
End If
End Sub
Private Sub Timer1_Timer()
Static AlarmSounded As Integer
If Label1.Caption <> CStr(Time) Then
If Time >= ATime And Not AlarmSounded Then
'Beep
MsgBox "闹钟到了，闹钟到了 " & ""
AlarmSounded = True
ElseIf Time < ATime Then
AlarmSounded = False
End If
End If
Label1.Caption = Time
End Sub

Answer 2

用Timer控件，里面写判断 If 设定时间 = Now() Then

Answer 3

这个使用Timer控件！

Answer 4

timer控件 循环。。判断当前时间是否是定时时间。。