メインウィンドウにイメージを表示する

■メインウィンドウにイメージを表示する (2000,2002,2003)

図 Accessのメインウィンドウにイメージを表示してカスタマイズした例

Accessのメインウィンドウにイメージを表示する手順を解説します。

1. 新規データベース作成

Accessを起動したら、ツールバーから新規作成のアイコンをクリックして、作業フォルダworkにW005.mdbを作成します。

2. モジュールをインポート

Accessの[ファイル]メニューから[外部データの取り込み]→[インポート]を選択します。「インポート」ダイアログが表示されたら、ファイルの一覧から005.mdb(このページの最後からダウンロードできます)をクリックして選択して、[インポート]ボタンをクリックします。

「オブジェクトのインポート」ダイアログが表示されたら、[モジュール]タブをクリックして[すべて選択]のボタンをクリックします。モジュールbasChangeMDI、basColorPicker、clsCommonDialog、clsDIBSectionが選択させたら[OK]ボタンをクリックしてインポートを開始します。

図 [モジュール]タブをクリックしたら[すべて選択]のボタンをクリック

3. 新規フォーム作成

データベースウィンドウのオブジェクトから[フォーム]をクリックして、右側の新規オブジェクトのショートカットから[デザインビューでフォームを作成]をダブルクリックします。

4. コマンドボタン作成

ツールボックスのコントロールウィザードのアイコンをクリックして、コントロールウィザードを無効にします。ツールボックスからコマンドボタンのアイコンをクリックして、フォームの詳細セクションにドロップします。詳細セクションにコマンド0が作成されたら、コマンドボタンをクリックして入力モードに切り替えて「メインウィンドウにイメージ表示」を入力します。コマンドボタンの外をクリックして確定したら、コマンドボタンをダブルクリックします。コマンドボタンのプロパティウィンドウが表示されたら、名前に「cmdSetBGimage」を入力して上書きします。

同様の手順で、ツールボックスからコマンドボタンをクリックしてフォームの詳細セクションにコマンド1を作成します。コマンド1のプロパティウィンドウを表示したら、名前に「cmdResetBGimage」を入力します。標題に「メインウィンドウのイメージ消去」を入力します。

図フォームの詳細セクションに2個のコマンドボタン作成

6. コマンドボタンのOnClickイベント登録

Accessのツールバーからコードのアイコンをクリックして、コードビューに切り替えます。コードビュー左上のオブジェクトのドロップダウンリストから[cmdSetBGimage]を選択します。コードビュー右上のプロシージャのドロップダウンリストから[Click]を選択します。cmdSetBGimageのOnClickイベントが生成されたら、次のコードを追加します。

Private Sub cmdSetBGimage_Click()

Dim fRet As Boolean

fRet = fsSetMDIBackGroundImage()

End Sub

同様の手順で、オブジェクトのドロップダウンリストから[cmdResetBGimage]を選択して、プロシージャのドロップダウンリストから[Click]を選択します。cmdResetBGimageのOnClickイベントが生成されたら、次のコードを追加します。

Private Sub cmdResetBGimage_Click()

Dim fRet As Boolean

fRet = fsRestoreMDIBackGroundImage()

End Sub

7. フォームを開く

VBEのツールバーから表示(Access)のアイコンをクリックして、Accessのウィンドウに切り替えます。Accessのツールバーからフォームビューのアイコンをクリックしてフォームを開きます。フォームが表示されたら、[メインウィンドウにイメージ表示]のボタンをクリックします。「BMPファイルを選択してください！」のダイアログが表示されたら、ダウンロードしたフォルダから[シャボン.bmp]を選択して[開く]ボタンをクリックします。