vb.net加载大图片 vb窗体加载图片

vb.net中，如何像下图一样，用很简单的办法，导入1000张图片。

很简单的方法，貌似没有。这个需要自己写很多代码：

在泉州等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供做网站、成都网站制作网站设计制作定制网站开发,公司网站建设,企业网站建设,品牌网站建设,成都全网营销,成都外贸网站建设公司,泉州网站建设费用合理。

用一个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

'先建立一个bitmap对象，指向图像文件

Dim pic As Bitmap = New Bitmap("e:\1.jpg")

'定义一个图片框的graphics对象

Dim g As Graphics = PictureBox1.CreateGraphics()

'在图片框上绘图

g.DrawImage(pic, 0, 0, pic.Width, pic.Height)

'释放bitmap对象

pic.Dispose()

'现在即可对文件进行操作

1,不要将这些代码放在Form.Load事件里,最好放在构造函数中!

2,加上:

me.SuspendLayout()'如果按钮在其它容器中(如GroupBox):me.grp.SuspendLayout();

'...Loading Images

me.ResumeLayout();

图形绘制最快的是Panel控件，用Panel速度蛮快

本文名称：vb.net加载大图片 vb窗体加载图片
本文网址：http://scyanting.com/article/doeecos.html