刘金玉的零基础VB教程080期：mp3音乐闹钟开发

Option Explicit
Dim startMusictime As Date
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path & "\1.m4a"
End Sub


Private Sub Command2_Click()

If Command2.Caption = "重新设置" Then
    Option1.Enabled = True
    Option2.Enabled = True
    Option3.Enabled = True
    Command2.Caption = "设置音乐定时"
    Picture1.Cls
    Exit Sub
End If

If Option1.Value Then
    startMusictime = DateAdd("s", 5 * 60, Now)
    Picture1.Print startMusictime & "开始播放音乐"
ElseIf Option2.Value Then
    startMusictime = DateAdd("s", 10 * 60, Now)
    Picture1.Print startMusictime & "开始播放音乐"
ElseIf Option3.Value Then
    
    startMusictime = CDate(Text1.Text)
    Picture1.Print startMusictime & "开始播放音乐"
Else
    MsgBox "请选择时间"
    Exit Sub
End If

Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Command2.Caption = "重新设置"
End Sub

Private Sub Command3_Click()
If Command3.Caption = "暂停" Then
    WindowsMediaPlayer1.Controls.pause
    Command3.Caption = "继续播放"
ElseIf Command3.Caption = "继续播放" Then
    WindowsMediaPlayer1.Controls.play
    Command3.Caption = "暂停"
End If
End Sub

Private Sub Option3_Click()
Text1.Text = Now
End Sub

Private Sub Timer1_Timer()
Label1.Caption = "现在时间：" & Now
If Now = startMusictime Then
    WindowsMediaPlayer1.URL = App.Path & "\1.m4a"
End If
End Sub