excel图表制作:制作漂亮的用户窗体按钮( 二 )


白色确定按钮:OKButtonInactive
绿色确定按钮:OKButton
白色取消按钮:CancelButtonInactive
绿色取消按钮:CancelButton
编写代码
使用MouseMove事件来响应鼠标的动作 , 这个事件当鼠标移动到特定控件中时 , 执行其中的代码 。
下面是确定按钮的MouseMove事件代码:
Private SubOKButtonInactive_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,ByVal X As Single, ByVal Y As Single)Me.CancelButtoninactive.Visible = TrueMe.OKButtonInactive.Visible = FalseEnd Sub
当鼠标移动到确定按钮上时 , 绿色按钮显示 , 白色按钮隐藏 。
下面是取消按钮的MouseMove事件代码:
Private SubCancelButtoninactive_MouseMove(ByVal Button As Integer, ByVal Shift As Integer,ByVal X As Single, ByVal Y As Single)Me.CancelButtoninactive.Visible = FalseMe.OKButtonInactive.Visible = TrueEnd Sub
当鼠标移动到取消按钮上时 , 绿色按钮显示 , 白色按钮隐藏 。

推荐阅读