Using the MouseMove Property

[missinglinq]

Having been asked, for the umpteenth time, how to use the MouseMove property to change the appearance of an object, I put together this short tutorial and sample database today. Perhaps it will be of use to some of you.

The MouseMove Event is used to trigger an action when the user moves the mouse cursor over an object such as a textbox, label or command button. This can be applied to a number of routines. The attached zip file, MouseOverDemo, shows both of the routines outlined below in action.

The following code is used to set up a Menu Form for opening other forms or reports, using the the Click Event of labels. The label default appearance has the background color the same as the form, with the background color changing when the mouse rolls over a label. The MouseMoveMenuForm in the zipped database shows this code in action, presenting a Menu Form with four options.

Sets up the default appearance of the labels before the mouse is ever moved

Private Sub Form_Load()
    Sets up the default appearance of the labels
    lblMenuOptionA.ForeColor = vbBlack 'Sets the text color to black
    lblMenuOptionA.SpecialEffect = 1   'Gives the label a raised, button-like appearance
    lblMenuOptionA.BackStyle = 0       'Makes the label transparent. The color of the form behind the control is visible.
End Sub
 

Changes the background color of a label when the mouse rolls over the label

Private Sub lblMenuOptionA_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblMenuOptionA.ForeColor = vbWhite 'Sets the text color to white
    lblMenuOptionA.SpecialEffect = 1   'Gives the label a raised, button-like appearance
    lblMenuOptionA.BackStyle = 1     'Makes the label's background color, as set in the Property Box, show
End Sub
 

Resets the default appearance of the label after the mouse moves off of the label

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    lblMenuOptionA.ForeColor = vbBlack
    lblMenuOptionA.SpecialEffect = 1
    lblMenuOptionA.BackStyle = 0
End Sub

Another application for MouseMove would be to show a label with a help message as a replacement for Access’ rather anemic ControlTips. The label is created and positioned in an appropriate place on the form. Unlike ControlTips, all of the usual label formatting functions can be utilized. In the label’s Property Box, the Visible property is set to NO so that the label doesn’t appear until called by the MouseMove event. When the mouse cursor moves over a form object, the label appears, then disappears when the mouse rolls off of the object. This is demonstrated in the MouseMoveHelpForm in the zipped database.

This pops up the Help message

 Private Sub ClientName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   lblClientNameHelp.Visible = True
End Sub
 

This causes the Help message to disappear when the mouse rolls off of the textbox

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   lblClientNameHelp.Visible = False
End Sub
 

Please remember that the above only presents two examples of how MouseMove can be utilized. The actual number of uses is only limited by your users’ needs and youR own creativity!