midi再生について
visual basicを使ってゲームを作成しております。
あるサイトを見てmidiの再生をやってみようと下記のコードを入力しました。
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
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMillsecounds As Long)
Sub MCI_Test()
Dim P As String, filename As String
filename = "sample.mid"
P = """" & ActiveWorkbook.Path & "\" & filename & """"
Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0)
DoEvents
Call mciSendString("play sample from 0", vbNullString, 0, 0)
Call Sleep(10000)
Call mciSendString("close sample", vbNullString, 0, 0)
End Sub
このコードでfilenameの部分を変更しwavファイルのsample.wavやMP3ファイルのsample.mp3は再生する事ができました。しかし、midiファイルはsample.midを同じフォルダ内に入れているにも関わらず全く音が鳴りません。どこが間違っているのでしょうか。教えてください。宜しくお願い致します。
![その他([技術者向] コンピューター) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c205_4_thumbnail_img_sm.png)
補足
それでだめでした