为了达到当鼠标掠过按钮时以高亮和凸起显示按钮的效果,可以在窗体和按钮的MouseMove事件中进行模拟,如下面的代码所示。
#001 Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
#002 With Me.CommandButton1
#003 .BackColor = &HFFFF00
#004 .Width = 62
#005 .Height = 62
#006 .Top = 69
#007 .Left = 31
#008 End With
#009 End Sub
#010 Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
#011 With Me.CommandButton1
#012 .BackColor = Me.BackColor
#013 .Width = 60
#014 .Height = 60
#015 .Top = 70
#016 .Left = 32
#017 End With
#018 End Sub
代码解析:
窗体和按钮的MouseMove事件过程,以高亮和凸起显示按钮。
当用户在窗体中移动鼠标时,分别在窗体和按钮的MouseMove事件设置按钮的BackColor属性值,指定按钮的背景色,当鼠标移动到按钮时以高亮显示,当鼠标移动到窗体时恢复原来的设置。接下来分别设置按钮不同的Width属性、Height属性、Top属性和Left属性值,以模拟按钮凸起的效果。