MS Access VBA - MouseMove 离开对象时如何执行事件答案

【问题标题】：MS Access VBA - How to execute an event when MouseMove leave an objectMS Access VBA - MouseMove 离开对象时如何执行事件
【发布时间】：2020-05-28 12:48:53
【问题描述】：

我有一个按钮，我可以在其中设置这样的 MouseMouse 事件：

Private Sub button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtbox.value = "ok"
End Sub

当鼠标离开这个按钮时，我想改变 txtbox.value.. 我怎样才能做到这一点？

【问题讨论】：

标签： vba ms-access onmousemove

【解决方案1】：

在按钮周围画一个矩形，设置为 Visible=False。然后创建一个启用矩形的鼠标移动事件，该矩形也有一个鼠标移动事件。重置控件有一些额外的处理，但这里是基本的：

控件：

按钮1
盒子1
文本1

Private Sub Box1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Text1.SetFocus Me.Text1.Text = "确定" 结束子 Private Sub Button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Me.Box1.Visible = True 结束子

【讨论】：

【解决方案2】：

为离开按钮时光标将移动到的区域配置适当的MouseMove事件处理程序，例如：

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtbox.Value = Null
End Sub

【讨论】：

我该怎么做？