VB音樂關閉問題

Question

我參考以下的網址
http://tw.knowledge.yahoo.com/question/question?qid=1306022800848

執行時可以播放音樂沒錯
但是我關閉表單的時候
音樂還是一直在播放
請問如何將音樂在表單關閉時一起關閉音樂
還有如何重複播放呢
可以幫我用以上的連結修改程式碼嗎 謝謝

Answer 1

(1)在Form_UnLoad 事件:
Private Sub Form_Unload(Cancel As Integer)
mciSendString "close MyWav", vbNullString, 0, 0
End Sub
(2)放1個Timer,InterVal=500
Private Sub Timer1_Timer()
Dim S As String

S = String(256, Chr(0))
mciSendString "status MyWav mode", S, Len(S), 0
If Left(S, 7) = "stopped" Or Left(S, 2) = "停止" Then
mciSendString "seek MyWav to start", vbNullString, 0, 0
mciSendString "play MyWav", vbNullString, 0, 0
End If
End Sub