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

2024年11月20日 04:35

有3个网友回答

网友（1）：

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

网友（2）：

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

网友（3）：

不会（ _ )