189 8069 5689
Dim bmp As New Bitmap("打开图片的路径")
创新互联主营肃南裕固族自治网站建设的网络公司,主营网站建设方案,成都App制作,肃南裕固族自治h5成都微信小程序搭建,肃南裕固族自治网站营销推广欢迎肃南裕固族自治等地区企业咨询
bmp.Save("保存图片的路径")
Dim t As New TextBox()
Dim p As New PictureBox
p.Image = bmp 'picture等支持image的控件。
t.CreateGraphics.DrawImage(bmp, New Point) '文本控件。
Me.BackgroundImage = bmp '窗体
很简单的方法，貌似没有。这个需要自己写很多代码：
用一个ListView控件。
判断滚动条当前所显示的图片集合，获取它们的物理路径。
用Bitmap.FromImage方法把这些图片读出来，
然后获取缩略图，
把缩略图用Graphics.DrawImage()绘制出来。
我可以提供Bitmap如何获取缩略图的方法：
''' summary必须创建一个委托并将对此委托的引用作为获取缩略图 callback 参数传递，但不使用此委托。/summary
Public Function ThumbnailCallback() As Boolean
Return False
End Function
''' summary返回Image，表示图像指定 宽 和 高 的缩略图。/summary
Public Function 获取缩略图(位图 As Bitmap, 宽 As Integer, 高 As Integer) As Image
Dim myCallback As New Image.GetThumbnailImageAbort(ThumbnailCallback)
Return 位图.GetThumbnailImage(宽, 高, myCallback, IntPtr.Zero)
End Function
这样了：
CType(Me.Controls("PictureBox11"), PictureBox).Image = My.Resources.image1
Find 返回数组，元素类型为Object。
Item() 可以把控件名作关键字，但也返回Object。这个方法是默认的，可以省略。
CType 转换引用类型。
大概如此，我是2008，没vb6那般的控件数组。