白色确定按钮: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
当鼠标移动到取消按钮上时 , 绿色按钮显示 , 白色按钮隐藏 。
推荐阅读
- Excel工作表打印技巧
- excel图表制作:将数据打印在VBE立即窗口的一行中
- excel图表制作:从工作簿中获取数据
- excel图表制作:绘制温度计图来跟踪进度
- 在excel单元格中插入特殊字符
- excel图表制作:制作具有数据导航功能的用户窗体
- 紫草膏的正确制作方法是什么
- excel图表制作:绘制圆弧图
- excel表格自定义功能区
- Excel是怎么控制公式计算的