按钮的两个图片切换效果

最新推荐文章于 2024-07-09 23:45:52 发布

静喧

最新推荐文章于 2024-07-09 23:45:52 发布

阅读量870

点赞数

分类专栏： VBA样例程序文章标签： vb VB vba VBA 切换图片控件

本文链接：https://blog.csdn.net/jingxuan84/article/details/8265801

版权

VBA样例程序专栏收录该内容

14 篇文章 0 订阅

订阅专栏

下面是一个通过单击按钮来切换两个图片的显示的样例程序。

Dim a As IPictureDisp

Dim b As IPictureDisp

Private Sub CommandButton1_Click()

CommandButton1.Picture = IIf(CommandButton1.Picture Is a, b, a)

End Sub

Private Sub UserForm_Initialize()

Set a = LoadPicture("Object Type hide.JPG")
Set b = LoadPicture("Object Type show.JPG")

CommandButton1.Picture = a

End Sub