在无数次被问到如何使用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的示例。
实际的使用次数仅受用户需求和您自己的创造力的限制!
From: https://bytes.com/topic/access/insights/648549-using-mousemove-property