Accessむかむか - フォームの背景に画像を設定

項目

フォームの背景に画像を設定

概要

フォームの背景に画像を設定する事で、Accessで開発したとは思えないもアプリケーションができあがります。
フォームの背景に画像を設定したサンプル追加しました。

例

１）背景画像を作成する。

２）フォームの「ピクチャ」プロパティに作成した背景画像を指定します。

【画像設定前】

①はボタンで「透明」プロパティを「はい」に設定
②はイメージ
③ステータスバー用のテキストボックス

【画像設定後】

３）フォームの設定

Option Compare Database
Option Explicit

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

'==============================================
'★フォームのプロパティ設定一部（あくまで例です）
'==============================================
'規定のビュー           ：単票フォーム
'ビュー設定             ：フォーム
'スクロールバー         ：なし
'レコードセレクタ       ：いいえ
'移動ボタン             ：いいえ
'区切り線               ：いいえ
'サイズ自動修正         ：いいえ
'自動中央寄せ           ：はい
'境界線スタイル         ：なし      ★必須
'コントロールボックス   ：いいえ
'最小化/最大化ボタン    ：なし
'閉じるボタン           ：いいえ
'ポップアップ           ：はい
'ピクチャ               ：作成した画像
'==============================================

'----------------------------------------------
'　Accessむかむかをクリックした時の処理
'----------------------------------------------
Private Sub btAccessむかむか_Click()
    MsgBox "Accessむかむか"
End Sub

'----------------------------------------------
'  [×]ボタンを押したときの処理
'----------------------------------------------
Private Sub btClose_Click()
    DoCmd.Quit
End Sub

'----------------------------------------------
'  フォームの読込時
'----------------------------------------------
Private Sub Form_Load()

    Dim rt As Long

    'Accessを最小化する
    rt = ShowWindow(Application.hWndAccessApp, 2)

End Sub