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

Question

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

这是Excel VBA。

请参见下图。

[

谢谢你，问候，

Answer 1

你应该实现Button的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

但请注意，每次在按钮上移动鼠标时都会调用此方法。因此，无论何时绘制图像，都应该检查。