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

2024-11-20 04:35:56

推荐回答（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）：

不会（ _ )