请问一下关于时间的问题~请大家帮帮忙~

Question

如果想在一个窗口那里建一个时间控件，代码中有msgbox。例如：设置在10:50分时弹出一个msgbox的对话框，按确定后回到formA中，到了10:57分时又弹出msgbox的对话框，如此类推！请问这样又如何实现呢~各位帮帮忙~有点急啦~

Answer 1

Timer1.Interval=30000
Timer1.Enable =True
...
Private Sub Timer1_Timer()
if Format(Now,"hh:mm")="10:50" or Format(Now,"hh:mm")="10:57" then
 MsgBox Format(Now,"hh:mm")
end if
End Sub

Answer 2

本帖最后由 bcrun 于 2011-07-15 11:27:56 编辑

  

Answer 3

但是我想实现的是提示有很多种的~例如说是第一个时间提示为：“时间到了！请上第一节课！”，第二个时间提示为“活动时间到了,请选择自己喜欢的活动！”之后就连接另一个窗口form2。如此类推！不是固定的~有些是就要弹出其他窗口~而且时间也有很多~

Answer 4

本帖最后由 bcrun 于 2011-07-15 11:28:24 编辑

  

Answer 5

如果是无固定时间的~那么是否比起Select Case更适合用if啊~
请问随机的那么又是如何实现呢？本人较笨较死板~

Answer 6

Timer1.Interval=30000
Timer1.Enable =True
...
Private Sub Timer1_Timer()
dim i as integer
for i=0 to 23
    if hour(Now)=i and Minute(now)=i then'00:00 01:01 02:02 ... 23:23
        MsgBox Format(Now,"hh:mm")
    end if
next
End Sub

Answer 7

Timer1.Interval=30000
Timer1.Enable =True
...
Private Sub Timer1_Timer()
    if Minute(now)=int(rnd*60) then '随机00..59
        MsgBox Format(Now,"hh:mm")
    end if
End Sub