我的目标:让中国的大学生走出校门的那一刻就已经具备这些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知识!