３．MP3ファイルを再生する
１．もっとも単純な例
mp3を再生できるかは使用している環境による。はっきりしたことは知らないが、ＯＳがWindows2000以上であるか、Windows Media Player 7.0以上がインストールされていればmp3再生機能をＶＢから簡単に利用できるようだ。そうでない場合はmp3ファイルやオーディオ出力についての相当高度な知識と技能があればＶＢからmp3を再生できることができるだろう。
以下の例は ２．midファイルを再生する とまったく同じ。
mp3を再生する例
Call mciSendString("Play " & SoundFileName, vbNull, 0, 0)
メモ：フォームやモジュールの宣言部で次のようにＡＰＩ関数を宣言すること
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も再生可。
・詳しい使い方はテクニック編１．ＶＢでサウンドを演奏する方法を参照。
・この場合次のコードでサウンドの再生を中止できる。
Call mciSendString("Close " & SoundFileName, vbNull, 0, 0)