vb 鼠标事件

Question

怎样实现vb中通过鼠标按下左键不放手后，鼠标所经过的按钮（command）控件其背景颜色变成黄色

Answer 1

Option ExplicitPrivate Sub Form_Load()
'Command1.Style = 1
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton And (X < Command1.Left + Command1.Width And _
    X > Command1.Left) And (Y < Command1.Top + Command1.Height And _
    Y > Command1.Top) Then
    
    Command1.BackColor = vbYellow
Else
    Command1.BackColor = Form1.BackColor
End If
End Sub记得属性里修改：Command1.Style = 1