高亮显示按钮

《高亮显示按钮》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、技巧1高亮显示按钮为了达到当鼠标掠过按钮时以高亮和凸起显示按钮的效果，可以在窗体和按钮的MouseMove事件中进行模拟，如下面的代码所示。#001PrivateSubCommandButton1_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)#002WithMe.CommandButtonl#003.BackColor=&HFFFF00#004.Width=62#005.Height=62#006

2、.Top=69#007.Left=31#008EndWith#009EndSub#010PrivateSubUserForm_MouseMove(ByValButtonAsInteger,ByValShiftAsInteger,ByValXAsSingle,ByValYAsSingle)#011WithMe.CommandButton1#012.BackColor=Me.BackColor#013.Width=60#014.Height=60#015.Top=70#016.Left=32#017EndWith#0

3、18EndSub代码解析：窗体和按钮的MouseMove事件过程，以高亮和凸起显示按钮。当用户在窗体中移动鼠标时，分别在窗体和按钮的MouseMove事件设置按钮的BackC010r属性值，指定按钮的背景色，当鼠标移动到按钮时以高亮显示，当鼠标移动到窗体时恢复原来的设置。接下来分别设置按钮不同的Width属性、Height属性、Top属性和Left属性值，以模拟按钮凸起的效果。运行窗体，当鼠标掠过按钮时效果如图1-1所示。图1-1高亮和凸起显示按钮