*

Access VBA 音を鳴らす PlaySound

公開日: : 最終更新日:2014/04/20 その他

音を鳴らす PlaySound

Access上で効果音を鳴らすプログラムコードを説明します。
PlaySoundという関数を使用しますが、WAVファイルのみが対応しています。

sound01

スポンサーリンク

フォームの作成

フォームを作成しますがどんなフォームでも構いません。
今回はフォーム上にコマンドボタンをひとつだけ設置しています。

プログラムの作成

まず、宣言セクションに以下のプログラムを記述します。

Private Declare Function PlaySound Lib “winmm.dll” Alias “PlaySoundA” (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_SYNC = &H0 ‘同期再生
Private Const SND_ASYNC = &H1 ‘非同期再生
Private Const SND_LOOP = &H8 ‘繰り返し再生
Private Const SND_PURGE = &H40 ‘停止

次にフォーム上コマンドボタンのクリック時イベントに以下のプログラムを記述します。

Private Sub コマンド0_Click()

Call PlaySound(“\ピンポン.wav”, 0, SND_ASYNC)

End Sub

注意:WAVファイルのフルパスを指定します。

プログラムの説明

・同期再生
Call PlaySound(“\ピンポン.wav”, 0, SND_SYNC)
「同期再生」とは音を鳴らしている間は他の操作が一切出来ません。

・非同期再生
Call PlaySound(“\ピンポン.wav”, 0, SND_ASYNC)
「非同期再生」とは音を鳴らしている間も他の操作をすることが出来ます。

・繰り返し再生
Call PlaySound(“\ピンポン.wav”, 0, SND_ASYNC + SND_LOOP)
WAVファイルを繰り返し再生します。「非同期再生」時にしか繰り返し再生は出来ません。

・停止
Call PlaySound(“\ピンポン.wav”, 0, SND_PURGE)
音を停止させます。

いかがでしょうか?
WAVファイルしか再生は出来ませんが効果音を出す程度であれば問題なく使えるプログラムコードです。

スポンサーリンク

ad-pc

ad-pc

関連記事

san01

Access VBA Shiftキーの有効/無効

Shiftキーの有効/無効 Shiftキーを押しながらAccessで作成したデータベースを起動する

記事を読む

excel03

Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使用しているデータをExcel(

記事を読む

prg01

Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のかかるプログラムを実行している際

記事を読む

shell01

Access VBA 他のアプリケーションを開く

Accessから他のアプリケーションを開く Accessから他のアプリケーションを開くプログラム例

記事を読む

cal01

Access VBA カレンダーコントロールを使用して日付入力を行う

カレンダーコントロールを使用して日付入力を行う 日付入力を実施する際に使用するユーザーに「2014

記事を読む

moff

Access VBA メニューバーの表示・非表示

メニューバーの表示・非表示をコントロール Accessのメニューバーの表示/非表示をコントロールす

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

pass01
Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

prg01
Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

excel03
Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

→もっと見る

PAGE TOP ↑