MS Access VBA - Как выполнить событие, когда MouseMove покинуть объект

Question

У меня есть кнопка, где я устанавливаю событие MouseMouse следующим образом:

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

Когда мышь покидает эту кнопку, я хочу изменить txtbox.value .. Как мне этого добиться?

Answer 1

Нарисуйте прямоугольник, установив Visible = False, вокруг кнопки. Затем создайте событие Mouse Move, которое включает прямоугольник, который также имеет событие Mouse Move. Существует некоторая дополнительная обработка для сброса элементов управления, но вот основы:

Элементы управления:

• Button1
• Box1
• Text1

    Private Sub Box1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      Me.Text1.SetFocus  
      Me.Text1.Text = "OK"
    End Sub 

    Private Sub Button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Me.Box1.Visible = True
    End Sub

Answer 2

Сконфигурируйте соответствующий обработчик событий MouseMove для области, в которую будет перемещаться курсор при выходе из кнопки, например:

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