midファイルを再生する
1.もっとも単純な例
サウンドを再生する例
Call mciSendString("Play " & SoundFileName, vbNull, 0, 0)
この例ではあらかじめフォームやモジュールの宣言部で次のようにAPI関数を宣言しておく必要がある。
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
・この例ではmidファイルだけでなくwav,mp2を再生できる。さらに、Windows2000以上ではmp3も再生可。
・詳しい使い方はテクニック編1.VBでサウンドを演奏する方法を参照。
・この場合次のコードでサウンドの再生を中止できる。
Call mciSendString("Close " & SoundFileName, vbNull, 0, 0)