VB的鼠标指着按钮,按钮就变亮如何做?要编码的

设置Command1的Style属性 = 1

写代码
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = Me.BackColor
End Sub

你也可以声明TrackMouseEvent()这个API去捕获WM_MOUSEHOVER消息