怎样使用VBA用图像控件打造动态按钮?
1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码,然后运行Private Sub Image1_MouseMove(ByVal Button As Int髫潋啜缅eger, 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
5、将鼠标移过按钮则按钮立即变得偏亮,同时出现提示,如图
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:93
阅读量:68
阅读量:31
阅读量:60
阅读量:44