[已解决]为啥移动鼠标在CommandButton1颜色未变

sixnu

我在学习窗体时，按住shift键，移动鼠标，按钮颜色未变，为啥？代码

1. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) '鼠标移动时
   
2.    If Shift = 1 Then
   
3.       Me.CommandButton1.BackColor = &H8000000F
   
4.    End If
   
5. End Sub
   

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-15 16:56

代码没有错，是你的颜色没用好，换个醒目的试试。

跳转到最佳答案楼层

hwc2ycy

这是窗体内鼠标移动的事件。
应该写按钮的mousemove事件。

hwc2ycy

代码没有错，是你的颜色没用好，换个醒目的试试。

hwc2ycy

1. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)    '鼠标移动时
   
2. 
   
3.     If Shift = 1 Then
   
4.         Me.CommandButton1.BackColor = &HFF&
   
5.     Else
   
6.         Me.CommandButton1.BackColor = &H8000000F
   
7.     End If
   
8. End Sub

复制代码

hwc2ycy

另外这个是窗体内鼠标移动的事件，如果你鼠标在按钮内移动时，这个事件就不管用了，那就是按钮的鼠标移动事件了。

sliang28

你按shift,鼠标移动到这个按钮上看看

hwc2ycy

其实代码没有按你预期的执行，你只需要在设置颜色的上方加个msgbox或stop就有效果了。