Changing button colours using MouseMove Sub

[Sam1234]

Here is an interesting one...

Using the following code, when you move the mouse over the button it changes colour.

Private Sub Commandbutton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = &HFF8080
End Sub

But how can I adapt this code so that the colour changes back again once the mouse has moved off the button?

Presumably this has something to do with the X, Y values..?

Sam

 

[SIXTH SENSE]

hi!
this toogles the button background from green to violet.
But fast motion of the mouse sometimes miss the coordanate!
I wonder if somebody can correct this to be exact that the mouse is not on top of the button!!!

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton2_MouseMove(<SPAN style="color:#00007F">ByVal</SPAN> Button <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Shift <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> X <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Y <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>)
<SPAN style="color:#00007F">If</SPAN> Y <= 5 <SPAN style="color:#00007F">Or</SPAN> Y >= CommandButton2.Height - 5 <SPAN style="color:#00007F">Or</SPAN> X <= 5 <SPAN style="color:#00007F">Or</SPAN> X >= CommandButton2.Width - 5 <SPAN style="color:#00007F">Then</SPAN>
CommandButton2.BackColor = 4966415 <SPAN style="color:#007F00">'green</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
CommandButton2.BackColor = &HFF8080
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
</FONT>

 

[jimboy]

You could change it back when you move over the userform;

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton1.BackColor = -2147483633
End Sub

 

[Sam1234]

The button is actually on a worksheet within excel rather than on a user form.

 

[jimboy]

hi!
this toogles the button background from green to violet.
But fast motion of the mouse sometimes miss the coordanate!
I wonder if somebody can correct this to be exact that the mouse is not on top of the button!!!

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton2_MouseMove(<SPAN style="color:#00007F">ByVal</SPAN> Button <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Shift <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Integer</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> X <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> Y <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN>)
<SPAN style="color:#00007F">If</SPAN> Y <= 5 <SPAN style="color:#00007F">Or</SPAN> Y >= CommandButton2.Height - 5 <SPAN style="color:#00007F">Or</SPAN> X <= 5 <SPAN style="color:#00007F">Or</SPAN> X >= CommandButton2.Width - 5 <SPAN style="color:#00007F">Then</SPAN>
CommandButton2.BackColor = 4966415 <SPAN style="color:#007F00">'green</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
CommandButton2.BackColor = &HFF8080
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
</FONT>

I've amend this code (thanks) so it changes to Grey, but is the mouse movement is fast...

...you could also add the worksheet_selectionchange to change it back to Grey.

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Y <= 5 Or Y >= CommandButton1.Height - 5 Or X <= 5 Or X >= CommandButton1.Width - 5 Then
CommandButton1.BackColor = -2147483633
Else
CommandButton1.BackColor = &HFF8080
End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CommandButton1.BackColor = &HFF8080 Then
CommandButton1.BackColor = -2147483633
End If
End Sub

 

[Sam1234]

That works quite well, though its a bit tempremental isn't it! Doesn't always want to change back when you move off it.

Sam