VB如何使Command的BackColor改变

来源：百度知道 编辑：UC知道 时间：2024/06/23 09:20:10
在Command控件上写什么代码，使Command当鼠标移动到这个控件上时，它的BackColor为绿色，当鼠标离开这个控件时，它的BackColor恢复原来的颜色？
（注：1.只在Command这个一个控件上写代码完成上述操作)

楼上的方法很好，但有些不足，没说清楚前提下要在设计时将Style属性设置为VbButtonGraphical，并且与楼主的要求不一样，不能恢复原来Command的颜色，根据楼上的方法修改下就可以了：

必须在设计时设置Command1.Style=VbButtonGraphical（Style只能在设计时赋值，运行后是只读的）

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long

Private Sub Form_Load()
Command1.Tag = CStr(Command1.BackColor)
End Sub

Private Sub Command1_Click()
Command1.BackColor = RGB(0, 255, 0)

...... '其它代码

End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Left(Command1.Tag, 2) = "In" Then
If X < 0 Or Y < 0 Or X > Command1.Width Or Y > Command1.Height Then
ReleaseCapture
Command1.BackColor = Mid(Command1.Tag, 3)
Command1.Tag = Mid(Command1.Tag, 3)
Els