vb经典程序（定时个性化音乐闹钟）

今天学习了刘金玉老师零基础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.运行效果详见视频