Windows下面向任务栏编程的若干问题

TipInterval <> 0 Then ''若设置了提醒间隔
Time = Time + 1 ''累计时间加1秒
If Time >= TipInterval * 60 Then ''提醒时间间隔已到
pnlMessage.Caption = Message
Timer1.Enabled = False
mm.Filename = mm.Filename
mm.Command = "open"
mm.Command = "play"
Time = 0
frmCaution.Show
''窗口总显示在最前
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End If
End If
If TipTime <> "" Then ''若设置了定时
Dim NowTime As Date
Dim DestTime As Date
NowTime = Format(Now(), "hh:nn:ss")
DestTime = Format(TipTime, "hh:nn:ss")
If NowTime = DestTime Then ''定时时间已到
pnlMessage.Caption = Message
Timer1.Enabled = False
mm.Filename = mm.Filename
mm.Command = "open"
mm.Command = "play"
frmCaution.Show
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End If
End If
End Sub

以上就给出了定时音乐提醒程序的大致过程。该程序运行时，确省情况下每隔30分钟就会跳出一个提醒窗口，同时播放一段音乐。当用户单击任务栏提示区中的图标就会弹出一个菜单，然后用户可以选择需要执行的功能。该程序的一些其它功能如“设置提醒时间形式”、“设置音效”等因与本文主题没多少联系在此不再细述。
定时音乐提醒程序在Microsoft Visual Basic 6.0中文企业版、Windows98环境下调试通过。读者若需要完整的源程序请E-mail Martinet@sohu.com与笔者联系。