投稿者 zakiYoshi  (高校生) 投稿日時 2013/6/15 17:06:02
wav ファイルの再生方法は主に次の3つがあります。


(1) My.Computer.Audio.Play を使う。
[使用例]
Dim path As String = "(wavファイルがある場所)"
 '再生を始める。 
 My.Computer.Audio.Play(path)


(2) System.Media.SoundPlayer を使う。
[使用例]
Dim player As New System.Media.SoundPlayer
Dim path As String = "(wavファイルがある場所)" 

'再生を始める。 
 player.Play(path)


(3) Windows API を使う。
[使用例]
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
        (ByVal LpstrCommand As StringByVal LpstrReturnString As String, _
         ByVal uReturnLength As IntegerByVal hwndCallback As IntegerAs Integer
Dim path As String = "(wavファイルがある場所)" 

Private Sub PlaySound()

'ファイルを開く。 
mciSendString("open """ & path & """""", 0, 0)
'再生を始める。 
mciSendString("play """ & path & """""", 0, 0)

End Sub


(1)(2)の方法は、比較的簡単にwavファイルを再生でき、繰り返し再生にも対応しています。
ただ、同時再生はできず、wavファイル以外は再生できません。

(3)の方法は、wavファイル以外に、mp3やmidi音源にも対応しています。
最後には "close" & path のコマンドを送って、ファイルを閉じなければいけません。