作者：绿色风
分类：
时间：2022-08-17
浏览：141
楼主
kevinchengcw |
Q: 如何显示和隐藏窗体中的图片?
A: 打开一个新的EXCEL文档,按Alt+F11进入VBA编辑器,插入一个窗体,向窗体中插入一个图像控件,在图像控件的属性窗口中,将Picture属性设置为你要显示的图片全路径,您插入的图片大小很可能与图像控件的大小不一致,请将属性窗口中的PictureAlignment属性设置为2 - fmPictureAlignmentCenter(即图像居中对齐),PictureSizeMode设置为3 - fmPictureSizeModeZoom(即自动缩放到适合),再向窗体中插入一个命令按钮或切换按钮用于显示和隐藏图片,本例中使用命令按钮,效果如下图:
双击命令按钮,在打开的编辑窗口输入下述代码:- Private Sub CommandButton1_Click()
- Image1.Visible = Not (Image1.Visible) '设定图像控件的显示状态与现有状态相反
- If Image1.Visible = False Then '判断图像控件的显示状态,并更改命令按钮的显示文字
- CommandButton1.Caption = "显示"
- Else
- CommandButton1.Caption = "隐藏"
- End If
- 'DoEvents '本句是交换系统控制权,如果图像不能正常显示与隐藏,可考虑去除命令前面的注释单引号
- End Sub
实现效果如下图所示:
详情请参阅附件.
 窗体学习--显示与隐藏窗体上的图片.rar
|
2楼
0Mouse |
- Image1.Visible = Not (Image1.Visible)
这句代码酷毙了！
不看此帖，估计我只会这么写。- Image1.Visible = (Image1.Visible - 1) Mod 2
或者- Image1.Visible = IIf(Image1.Visible, False, True)
甚至只会这样- If Image1.Visible = True Then
- Image1.Visible = False
- Else
- Image1.Visible = True
- End If
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一