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