ホームページ風ロールオーバーボタン ： Access
■ 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
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
Home 
Tips メニューCopyright(C) FeedSoft