ヘッダー

VB.NET2002対応 VB.NET2003対応 VB2005対応

 

Visual Basic 中学校 > VB.NET サンプル >

WAVファイルを再生する

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

 mp3 (*.mp3) × 対象外です。
 wave (*.wav) 対象です。
 midi (*.mid) × 対象外です。

 

1.バックグラウンドで再生する例

VB2005対応


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

 

VB.NET2002対応 VB.NET2003対応 VB2005対応

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

 

2.再生を止める例

VB2005対応


My
.Computer.Audio.Stop()
 

 

VB.NET2002対応 VB.NET2003対応 VB2005対応

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

 

 

3.同期再生する例

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

VB2005対応


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

 

VB.NET2002対応 VB.NET2003対応 VB2005対応

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

 

 

4.繰り返し再生

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

VB2005対応


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

 

VB.NET2002対応 VB.NET2003対応 VB2005対応

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では VB6 WAVファイルを再生する 参照。