フォームを開くと同時に音楽を自動再生させる
 フォームを開くと同時に音楽が流れる、というのはいかがでしょうか?
 ここでは、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オブジェクトに対して実行する操作を示します。

Access2000



戻る


Excel Word Access VBA! モーグ