How to create a "un- On Mouse Move" event?

[Michael R]

It's an interesting question, as I see it.

I have a form, in which there are a few command buttons, which change color when the mouse is on top of them (On Mouse Move). Now, I want the color to be changed back to normal when the mouse moves away from the command's button area. The only way I have figured up untill now how of to do it, is having a big text box around the command buttons area, which is sent to back, and to have On Mouse Move event on it too. Problem is, that the text box has to be visible in order for this to work, and so if a user will accidently click on the text box area, it will become white - editing mode, and will conceal the command buttons, plus the curson blinker will apear, which is not asthethic.

Any creative thought on how to make this work?
Thanks :)

[ADezii]

It's an interesting question, as I see it.

I have a form, in which there are a few command buttons, which change color when the mouse is on top of them (On Mouse Move). Now, I want the color to be changed back to normal when the mouse moves away from the command's button area. The only way I have figured up untill now how of to do it, is having a big text box around the command buttons area, which is sent to back, and to have On Mouse Move event on it too. Problem is, that the text box has to be visible in order for this to work, and so if a user will accidently click on the text box area, it will become white - editing mode, and will conceal the command buttons, plus the curson blinker will apear, which is not asthethic.

Any creative thought on how to make this work?
Thanks :)

1) Make sure the Back Style property of the Text Boxes are Transparent
2) Set the Visible property of the Text Boxes to Yes
3) For the Text Box, Format ==> Send to Back
4) Reset the Fore Color property to the Default in the MouseMove() Event of
the Text Box
5) In the MouseDown() Event of the Text Boxes place this line of code:

SendKeys "{TAB}", True

This seems to work and will eliminate the White bordering area and
Blinking Cursor

[Michael R]

1) Make sure the Back Style property of the Text Boxes are Transparent
2) Set the Visible property of the Text Boxes to Yes
3) For the Text Box, Format ==> Send to Back
4) Reset the Fore Color property to the Default in the MouseMove() Event of
the Text Box
5) In the MouseDown() Event of the Text Boxes place this line of code:

SendKeys "{TAB}", True

This seems to work and will eliminate the White bordering area and
Blinking Cursor

Nice indeed.
It works, although the white bordering area still binks for an instance.

Happy New Year!

[NeoPa]

Would it help to use a Label control in place of the TextBox.
This would have the benefit of being unable to receive the focus.
Nice thinking btw :)

[renatobarcellos]

I'm sorry to answer on such an old post but since I found a much easier approach, I decided to share...
You can set an "On Mouse Move" event for the Detail section of the form. You would reset all buttons to the normal state there and would not need to create many different objects behind your buttons.

[Seth Schrock]

Current versions of Access have a Hover Color property that does this automatically so there is no need to code it yourself. There is also the Pressed Color, Hover Fore Color and Pressed Fore color properties to allow for full color change settings without a single line of code. I had assumed that this was available for a long time, but I know it has been available since 2007.

[zmbd]

so something like this?

Option Compare Database
Option Explicit
 
Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Me.Command12.Caption = "MouseON"
End Sub
 
Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.Command12.Caption = "MouseOFF"
End Sub
 

I used the header because I have a command button there and it was easy.
What I see happening though is a flicker in the command button with the mouse movement which is sort of distracting.

[zmbd]

ah, simple fix:

Option Compare Database
Option Explicit
 
Private zmousein As Boolean
 
Private Sub Command12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Not zmousein Then
        Me.Command12.Caption = "MouseON"
        zmousein = True
    End If
 
End Sub
 
Private Sub FormHeader_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If zmousein Then
        Me.Command12.Caption = "MouseOFF"
        zmousein = False
    End If
End Sub