#041
WindowsAPIを使ってディスクに保存されているWAVEファイル(.WAV)を再生するには、"winmm.dll"にある「sndPlaySound」関数を使用します。
まず標準モジュールに次のコードを記述します。"Declare"の前に"Private"を付けることによってフォームのモジュールにも記述できます。
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
実際にWAVEファイルを再生する部分のコードは次の１行だけです。ここではWindows\mediaフォルダにある「The Microsoft Sound.wav」ファイルを再生しています。
sndPlaySound "C:\Windows\media\The Microsoft Sound.wav", 0
