表紙へ

3.MP3ファイルを再生する

 

もっとも単純な例

 

mp3を再生できるかは使用している環境による。はっきりしたことは知らないが、OSがWindows2000以上であるか、Windows Media Player 7.0以上がインストールされていればmp3再生機能をVBから簡単に利用できるようだ。そうでない場合はmp3ファイルやオーディオ出力についての相当高度な知識と技能があればVBからmp3を再生できることができるだろう。

以下の例は 2.midファイルを再生する とまったく同じ。

mp3を再生する例

 

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)

 

Microsoft社公式 API関数 mciSendStringの解説 を見る