VB 闹钟

小弟弟，怎么换帐号了？这个最好改成某年某月某日吧，不是每个周六那个时间点都有这个故事片的，对吧？

设置一个 Timer控件,vb左边一排控件栏那个小时钟
然后把Interval属性调成1000,也就是1秒钟触发一次相应的Timer事件

在Timer中加入代码:
If Hour(Time) = 12 And Minute(Time) = 5 And WeekDay(Date) = 7 Then
MsgBox "周六 12:05 故事片：叶问"
End If
当也就是周六的12:05,就会弹出一个框...提示..这句也可以替换成别的提示代码..
MsgBox Date'你可以把这个打出来看看，这个是日期
MsgBox Time'具体时间
Minute（Time）表示取时间的分钟部分 同样可以Second（Time）取秒
Hour取小时，Year（Date）取年 。。Month。。 Day。。同理

引用WindowsMediaPlayer（到时间时放音乐提醒）
插入：
text1(1 to 3) 星期的输入控件
text2(1 to 3) 小时的输入控件
text3(1 to 3) 分的输入控件
text4(1 to 3) 节目名输入控件
label1 节目信息显示
timer1 时间计算控件 interval设为1000（1秒）

dim a as new MediaPlayer.MediaPlayer

Sub Timer1_Timer()
For i=1 to 3
If Weekday(Date,vbMonday) = Val(text1(i).Text) And Hour(Time)=Val(Text2(i).Text) And Minute(Time)=Val(Text3(i).Text) Then
a.Open(你的提醒音乐 支持mp3 wma wav mid midi)
Label1.Caption=Text4(i).Te