ホームページ風ロールオーバーボタン、MouseMove　AccessのTips集

Home　

Tipsへ　

メニューへ

■ Access実行画面

1)下図のような2種類のBMPファイルを作成します。
2）フォームにイメージコントロールをおき、PictureプロパティにBMPファイルを設定します。

3）２つのボタンを重ねこの場合、黒色を上に、ロールオーバー時、赤色を表示させることにします。

4）黒色をイメージ1、赤色をイメージ2 とし　下記のイベントコードを入力すると完成です。

■ Access VBA 実行コード

Private Sub イメージ1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me!イメージ2.Visible = True
    Me!イメージ1.Visible = False
End Sub

Private Sub イメージ2_Click()
    DoCmd.Close
End Sub

Private Sub 詳細_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me!イメージ1.Visible = True
    Me!イメージ2.Visible = False
End Sub

ホームページ風ロールオーバーボタン ： Access

■ Access実行画面

■ Access VBA 実行コード

ホームページ風ロールオーバーボタン： Access