怎样实现定时显示？

Question

比如说在每天早上8：00实现一个提示，今天要干什么？
能不能用系统时间触发？

Answer 1

笨方法﹕用timer控件
Private Sub Timer1_Timer()    
    If Hour(Now) = 8 Then
        .....
        .....
        Timer1.Interval = 0
    ElseIf Hour(Now) > 8 Then
        Timer1.Interval = 0
    End If
End Sub

Answer 2

请问Timer1.interval=0怎么能触发timer事件呀?

Answer 3

Private Sub Timer1_Timer()
    Timer1.Interval = 1000
    Call JobOver
End Sub
Private Function JobOver()
    If Hour(Now) = 17 And Minute(Now) = 0 Then
        MsgBox "快下班了"
    End If
End Function

Answer 4

沒有呀。timer1.interval應該是提前設定的不能為0.
只不過你只要求在8點時候顯示信息嗎?那么過了8點就應該將time控件的監控時間取消﹐減少資源浪費呀。

Answer 5

能不能用系统时间触发，就是系统到了那个时间程序就运行，而不是用TIMER控件

Answer 6

是這樣的﹕
你的timer控件在設計時候就應該設置interval的數值。
按照你的要求系統應該在8點前啟動﹐那么這樣﹐在啟動后
系統就要按照你設置的interval屬性的時間間隔進行運行.
如果符合條件(8點)那么執行一系列顯示操作﹐之后會將
interval設置為0﹐用來減少不必要的浪費﹐因為你只要
求在8點時候提醒。
如果你的系統一直處于運行狀態﹐不會關閉﹐那么就把
timer.interval=0去掉好了。

Answer 7

我都说了我不关机，既然已经把timer控件关了，还怎么起动?

Answer 8

Private Sub Timer1_Timer()    
    If Hour(Now) = 8 Then
        .....
        .....
End Sub讓他永遠執行