４６．WAVファイルを再生する



＜　使用用途　＞
WAVファイルを再生する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
　　　＝＞　ダウンロード　・・・下記のサンプルと同じです。

＜　説明　＞
ＡＰＩ関数のsndPlaySound を使用します。
sndPlaySound ＝＞WAVファイルを再生する
　　＜引数＞
　　　　lpszSoundName：再生したいＷＡＶファイルのパスを指定する
　　＠戻り値＠　　
　　　　　　正常終了１

<　ＳＡＭＰＬＥ　＞
'ここではWAVファイルを再生する
'標準モジュール
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　Dim Ret As Long
　　Ret = sndPlaySound("c:\windows\media\Chimes.wav",0)
End Sub