随着手机里面功能越来越丰富，让我们使用起来越来越方便了，给我们的生活带来了极大的便利。怎样使用VBA用图像控件打造动态按钮?
方法/步骤
-
1
首先在开发工具中打开VBA编辑器
-
2
在单元格区域当中输入一些内容作为例子
-
3
在VBA编辑器中插入模块
-
4
在模块当中输入如下代码，然后运行
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Image1.Visible=False '鼠标移过图片1时隐藏图片1，显示图片2
Image2.Visible=True
Image2.ControlTipText="单击关闭" '为图片2设置鼠标移过时的提示
End Sub
Private Sub UserForm_Initialize() '窗体初始化时隐藏图片2，显示图片1
Image2.Visible=False
Image1.Visible=True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Image2.Visible=False '鼠标移过窗体时隐藏图片2，显示图片1
Image1.Visible=True
End Sub
Private Sub Image2_Click() '单击图片2关闭窗体
Unload Me
End Sub
-
5
将鼠标移过按钮则按钮立即变得偏亮，同时出现提示，如图
END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。
作者声明：本篇经验系本人依照真实经历原创，未经许可，谢绝转载。
展开阅读全部
文章评论