HOME > 即効テクニック > AccessVBA > フォーム・レポート > フォームを開くと同時に音楽を自動再生させる

即効テクニック

フォーム・レポート

フォームを開くと同時に音楽を自動再生させる

(Access 2000/2002)
フォームを開くと同時に音楽が流れる、というのはいかがでしょうか?ここでは、MIDI形式のサウンドファイルをフォームに組み込み、フォームが開かれると自動的に音楽が再生される方法を紹介します。

●操作手順●
  1. フォームを新規作成して、デザインビューで表示します。
  2. [挿入(I)]メニューの[オブジェクト(O)]をクリックして、[オブジェクトの挿入]ダイアログボックスを表示します。
  3. [ファイルから(F)]をクリックして、[ファイル名(E)]に再生したいサウンドファイルを指定します。 (例)C:\音楽\Happy_Biethday.mid
  4. [OK]ボタンをクリックすると、フォームに非連結OLEが追加されます。
  5. プロパティシートを表示して、[すべて]タブの[名前]を「BGM」にします。
  6. フォームのプロパティシートを表示して、[イベント]タブの[開く時]にイベントプロシージャを設定してコード表示ボタン[...]をクリックします。
  7. 次のコードを記入します。 Private Sub Form_Open(Cancel As Integer) bgm.Action = acOLEActivate End Sub
  8. フォームを保存してから開くと音楽が再生されます。
●補足● Actionプロパティは、OLEオブジェクトに対して実行する操作を示します。