[已解决]窗体 按钮 随鼠标变色设置

qihaizhong2013

    当鼠标指针移到按钮上时，窗体会发生颜色变化，离开按钮就变回原来的颜色
   老师帮忙 想想怎么编辑
  我好像在哪里见过这样的例子，

最佳答案

月排行榜 / 总排行榜

那么的帅

2013-4-25 14:43

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     CommandButton1.BackColor = RGB(255, 0, 0)
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
6.     CommandButton1.BackColor = RGB(255, 255, 255)
   
7. End Sub

复制代码

299578-VBA-窗体-鼠标移动事件.rar (8.76 KB, 下载次数: 176)

2013-4-25 14:43 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

设置事按钮的事件。

hwc2ycy

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     Me.BackColor = 2 '颜色自己改就成了
   
3. End Sub
   
4. 
   
5. 
   
6. 
   
7. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
8.     Me.BackColor = 255  '颜色自己改就成了
   
9. End Sub

复制代码

hwc2ycy

MouseMove 事件用于窗体、窗体上的控件和标签。

当鼠标指针在对象上移动时，MouseMove 事件连续发生。只要鼠标位于对象的边界之内，对象就会不断识别 MouseMove 事件，直至其他对象“捕捉”到了鼠标为止。

移动窗体也能产生 MouseMove 事件，即使鼠标是静止的。当窗体在箭头的下移动时，便会产生 MouseMove 事件。如果一个宏或者事件过程通过移动窗体以响应 MouseMove 事件，则该事件会连续产生（级联的）MouseMove 事件。

如果两个控件靠得很近，且很快将鼠标指针移过两控件之间的空间，则对于该空间 MouseMove 事件可能不会发生。在这种情况下，就可能需要在两个控件中响应 MouseMove 事件。

那么的帅

1. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
2.     CommandButton1.BackColor = RGB(255, 0, 0)
   
3. End Sub
   
4. 
   
5. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   
6.     CommandButton1.BackColor = RGB(255, 255, 255)
   
7. End Sub

复制代码

299578-VBA-窗体-鼠标移动事件.rar (8.76 KB, 下载次数: 176)

2013-4-25 14:43 上传

点击文件名下载附件

dditx1213

值得学习

lgxq_125

收了 非常实用

qhllqhll

那么的帅 发表于 2013-4-25 14:43

窗体 按钮 随鼠标变色设置
好啊

guo_zhan11

虚心学习，提高技能！！