VB下如何让鼠标移过某个按钮时让这个按钮变亮？

来源：百度知道 编辑：UC知道 时间：2024/06/05 10:46:31
一个菜单程序，为了好看一点，鼠标拖动经过这个按钮时，这个按钮变亮，或者局部放大等等

Option Explicit
Dim a As Single
Dim b As Integer
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a * 1.1
Command1.Width = b * 1.1
End Sub

Private Sub Form_Load()
a = Command1.Height
b = Command1.Width
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = a
Command1.Width = b
End Sub

要准备两张背景图片，然后切换。

不会（ _ )