Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 >

WAVファイルを再生する

この記事が対象とするファイル形式

１．バックグラウンドで再生する例

My.Computer.Audio.Play("C:\WINNT\MEDIA\The Microsoft Sound.wav")

　

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Private Const SND_ASYNC = &H1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     PlaySound("C:\WINNT\MEDIA\The Microsoft Sound.wav", 0, SND_ASYNC) End Sub

２．再生を止める例

My.Computer.Audio.Stop()

　

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click     PlaySound(Nothing, 0, 0) End Sub

３．同期再生する例

メモ：同期再生とはサウンドの再生が終了するまでプログラムの実行を中断させる再生の仕方です。

My.Computer.Audio.Play("C:\WINNT\MEDIA\The Microsoft Sound.wav", AudioPlayMode.WaitToComplete)

　

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     PlaySound("C:\WINNT\MEDIA\The Microsoft Sound.wav", 0, 0) End Sub

４．繰り返し再生

以下の例はWAVファイルをバックグラウンドで繰り返し再生する。

My.Computer.Audio.Play("C:\WINNT\MEDIA\The Microsoft Sound.wav", AudioPlayMode.BackgroundLoop)

　

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer Private Const SND_ASYNC = &H1 Private Const SND_LOOP = &H8 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click     PlaySound("C:\WINNT\MEDIA\The Microsoft Sound.wav", 0, SND_LOOP Or SND_ASYNC) End Sub

VB6では VB6 WAVファイルを再生する 参照。