当鼠标悬停在按钮上时更改图像

Question

我只想问。如果鼠标悬停在按钮上，那么代码将会是什么，然后用户窗体中的图像会立即发生变化。

这是Excel VBA。

请看下面的图像。

[

谢谢和问候，

Answer 1

你应该实现你的按钮的mouseMove事件。

Private Sub YourButtonName_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    'your Code Here 

End Sub 

但要小心这就是所谓的每次移动鼠标按钮的时间。所以你应该检查你是否绘制图像。