#041 WAVEファイルを鳴らす方法(WindowsAPIを使った方法) VBA、API

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

実際にWAVEファイルを再生する部分のコードは次の1行だけです。ここではWindows\mediaフォルダにある「The Microsoft Sound.wav」ファイルを再生しています。
sndPlaySound "C:\Windows\media\The Microsoft Sound.wav", 0
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved