作者：绿色风
分类：
时间：2022-08-18
浏览：122
楼主
amulee |
VSTO中的ImageList可以存储多个图片，方便随时调用。
本例演示了如何向ImageList中添加图片，并根据需要填入PictureBox控件中。
动画演示
操作步骤：
1、创建一个带有几张图片和一个PictureBox的Excel程序（[VSTO] VSTO中PictureBox示例 http://www.exceltip.net/thread-22973-1-1.html
）
2、添加ImageList控件
3、在工作表中输入以下代码：
- Public Class Sheet1
- Dim i As Integer
- Private Sub Sheet1_Startup() Handles Me.Startup
- '将自绘图片添加至ImageList
- With Me.ImageList1.Images
- .Add(My.Resources.Resource1.Image1)
- .Add(My.Resources.Resource1.Image2)
- .Add(My.Resources.Resource1.Image3)
- End With
- i = 0
- 'ImageList的Images属性，下标从0开始
- Me.PictureBox1.Image = Me.ImageList1.Images(i)
- End Sub
- '当点击图片时从ImageList中读取并更换图片
- Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
- i = i + 1
- If i = 3 Then i = 0
- Me.PictureBox1.Image = Me.ImageList1.Images(i)
- End Sub
- End Class
附件下载：
 VSTO中的ImageList示例.rar
|
2楼
wqfzqgk |
是不是太别扭啦，imagelist可以初始加入，那样更快一些，这样再利用资源是不是有点农夫画蛇，呵呵 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一