怎样使用VBA用图像控件打造动态按钮?
来源:网络收集 点击: 时间:2024-03-12首先在开发工具中打开VBA编辑器

在单元格区域当中输入一些内容作为例子

在VBA编辑器中插入模块

在模块当中输入如下代码,然后运行
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift AsInteger, ByVal X As Single, ByVal Y As Single)Image1.Visible=False 鼠标移过图片1时隐藏图片1,显示图片2Image2.Visible=TrueImage2.ControlTipText=单击关闭 为图片2设置鼠标移过时的提示End SubPrivate Sub UserForm_Initialize() 窗体初始化时隐藏图片2,显示图片1Image2.Visible=FalseImage1.Visible=TrueEnd SubPrivate Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift AsInteger, ByVal X As Single, ByVal Y As Single)Image2.Visible=False 鼠标移过窗体时隐藏图片2,显示图片1Image1.Visible=TrueEnd SubPrivate Sub Image2_Click() 单击图片2关闭窗体Unload MeEnd Sub

将鼠标移过按钮则按钮立即变得偏亮,同时出现提示,如图

智能手机助理给我们的生活带来了极大的便利!
版权声明:
1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。
2、本站仅提供信息发布平台,不承担相关法律责任。
3、若侵犯您的版权或隐私,请联系本站管理员删除。
4、文章链接:http://www.1haoku.cn/art_332390.html