今天学习了刘金玉老师零基础VB教程的第80期，学习的主要内容是音乐闹钟开发。
1.定制个性化音乐闹钟，主要使用到Windows media player控件，通过时钟控件来判定当前时间和设置的时间是否一致，从而确定是否启动运行Windows media player控件，达到播放音乐的效果。
2.如何添加Windows media player控件？在VB控件栏单击右键，选择部件，然后在列表中勾选Windows media player，最后确定应用即可完成。
3.将下载好的个性化音乐存放在程序所在文件夹，然后如图新建控件。
4.输入代码：
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub
Private Sub Command2_Click()
Picture1.Print "您的闹钟将在" & Text1.Text & "响铃"
Command2.Enabled = False
Command3.Enabled = True
Text1.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Command3_Click()
Command2.Enabled = True
Picture1.Cls
Command3.Enabled = False
Text1.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Text1.Text = Now
End Sub
Private Sub Timer1_Timer()
If CStr(Now) = Text1.Text Then
WindowsMediaPlayer1.URL = App.Path & "\" & Text2.Text & "." & Text3.Text
End If
End Sub
Private Sub Timer2_Timer()
Label1.Caption = "现在是北京时间：" & Now
End Sub
5.运行效果详见视频
,
