'播放或停止播放音樂
Sub playmusic(songpath As String, Play_Or_Stop As Boolean)
If objwmplayer Is Nothing Then auto_open
'如果 Sheet1_Change 事件傳 True 給變數 Play_Or_Stop
If Play_Or_Stop Then
'播放 songpath 變數所指定的音樂
objwmplayer.Open songpath
'否則
Else
'如果目前音樂正在撥放中
If objwmplayer.PlayState = 2 Then
'停止播放音樂
objwmplayer.stop
End If
End If
End Sub
'檔案關閉時
Private Sub auto_close()
'如果你有改變程式碼 objwmplayer 變數會被重設
'底下這一個 if 判斷目的在於避免於關閉檔案時發生錯誤
If Not objwmplayer Is Nothing Then
'如果音樂正在播放中
If objwmplayer.PlayState = 2 Then
'停止播放音樂
objwmplayer.stop
End If
End If
'釋放物件變數 objwmplayer
Set objwmplayer = Nothing
End Sub
'檔案開啟時
Private Sub auto_open()
'建立 MediaPlayer 物件
Set objwmplayer = CreateObject("MediaPlayer.MediaPlayer")
End Sub
[attach]25125[/attach][attach]25126[/attach]作者: zyzzyva 時間: 2016-9-4 18:16
