Question

vb 编程 鼠标在command1按下时窗体背景颜色为红色，鼠标抬起时窗体背景颜色为绿色

Answer 1

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

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

Answer 2

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.BackColor = vbRed
End If
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.BackColor = vbGreen
End If
End Sub