dev项目属性按钮是灰色_设计鼠标指到上面就会自动变色的按钮！

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

效果如下： 特点： 当鼠标指到按钮上面时按钮会自动变色，移开后又恢复原来的颜色。 代码如下： Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.BackColor = &HFF00& CommandButton2.BackColor = &H8000000F CommandButton3.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F CommandButton5.BackColor = &H8000000F CommandButton6.BackColor = &H8000000F End Sub Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton2.BackColor = &HFF00& CommandButton1.BackColor = &H8000000F CommandButton3.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F CommandButton5.BackColor = &H8000000F CommandButton6.BackColor = &H8000000F End Sub Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton3.BackColor = &HFF00& CommandButton1.BackColor = &H8000000F CommandButton2.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F CommandButton5.BackColor = &H8000000F CommandButton6.BackColor = &H8000000F End Sub Private Sub CommandButton4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton4.BackColor = &HFF00& CommandButton1.BackColor = &H8000000F CommandButton2.BackColor = &H8000000F CommandButton3.BackColor = &H8000000F CommandButton5.BackColor = &H8000000F CommandButton6.BackColor = &H8000000F End Sub Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton5.BackColor = &HFF00& CommandButton1.BackColor = &H8000000F CommandButton2.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F CommandButton6.BackColor = &H8000000F CommandButton3.BackColor = &H8000000F End Sub Private Sub CommandButton6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton6.BackColor = &HFF00& CommandButton1.BackColor = &H8000000F CommandButton2.BackColor = &H8000000F CommandButton4.BackColor = &H8000000F CommandButton5.BackColor = &H8000000F CommandButton3.BackColor = &H8000000F End Sub

六个CommandButton按钮，每个按钮都要写MouseMove事件，及当鼠标移动到该按钮上时，设置该按钮的BackColor属性值为&HFF00&(绿色)，其它按钮的BackColor属性值为&H8000000F(灰色)，颜色的代码不用记，在按钮控件的属性窗口可以查到。

知识点： CommandButton按钮的MouseMove事件。

本节的分享就到这里，祝大家每天都有进步。

觉得本文有用的同学，希望大家能点赞分享，助人才能助己，谢谢！

1

在线课堂在逐渐完善中，欢迎您的光临！

点击下方“”了解更多的office知识！