使用MouseMove属性

在无数次被问到如何使用MouseMove属性来更改对象的外观时，我今天整理了这个简短的教程和示例数据库。 也许对某些人有用。

当用户将鼠标光标移到文本框，标签或命令按钮等对象上时，MouseMove事件用于触发动作。 这可以应用于许多例程。 随附的zip文件MouseOverDemo显示了下面概述的两个例程。

以下代码用于使用“单击事件”标签来设置菜单表单以打开其他表单或报表。 标签默认外观的背景颜色与表单相同，并且当鼠标滑过标签时背景颜色会改变。 压缩数据库中的MouseMoveMenuForm在操作中显示了此代码，并提供了具有四个选项的菜单窗体。

在移动鼠标之前设置标签的默认外观

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 

当鼠标滑过标签时更改标签的背景颜色

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 

鼠标移离标签后，重置标签的默认外观

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

MouseMove的另一个应用程序是显示带有帮助消息的标签，以代替Access的贫乏ControlTips。 将创建标签并将其放置在表单上的适当位置。 与ControlTips不同，可以使用所有常用的标签格式化功能。 在标签的“属性框”中，“可见性”属性设置为“否”，以便在被MouseMove事件调用之前，标签不会出现。 当鼠标光标移到表单对象上时，标签会出现，然后在鼠标滑离该对象时消失。 压缩数据库中的MouseMoveHelpForm中对此进行了演示。

这会弹出帮助消息

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

当鼠标滑出文本框时，这将导致帮助消息消失

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

请记住，以上仅提供了两个如何使用MouseMove的示例。 实际的使用次数仅受用户需求和您自己的创造力的限制！

附加的文件

MouseOverDemo.zip （27.9 KB，4807观看次数）

From: https://bytes.com/topic/access/insights/648549-using-mousemove-property