ＶＢＡで音楽を鳴らしたいのですが、
ファイルを立ち上げて音楽を鳴らすプロシージャーを一度実行すると、
もう何度Ｆ５を押しても実行されません。
しかしファイルを開きなおすとまた実行できます。でも１回限りです。
コードはこちらです。
------------------------------------------------------------
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Sub PlaySound()
Dim SoundFile As String, rc As Long
SoundFile = "C:\【音楽】\test.mp3"
If Dir(SoundFile) = "" Then
MsgBox SoundFile & vbCrLf & "がありません。", vbExclamation
Exit Sub
End If
SoundFile = Chr(34) & SoundFile & Chr(34)
rc = mciSendString("Open " & SoundFile, "", 0, 0)
rc = mciSendString("Play " & SoundFile, "", 0, 0)
End Sub
------------------------------------------------------------
２回目実行した際音楽が鳴らないからってファイルがありませんと表示されるわけでもないです。
当方の環境はＯＳＷＩＮ７、ＯＦＦＩＣＥ2007です。
ご回答よろしくお願いします。
↧