大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
很简单的方法,貌似没有。这个需要自己写很多代码:
在泉州等地区,都构建了全面的区域性战略布局,加强发展的系统性、市场前瞻性、产品创新能力,以专注、极致的服务理念,为客户提供做网站、成都网站制作 网站设计制作定制网站开发,公司网站建设,企业网站建设,品牌网站建设,成都全网营销,成都外贸网站建设公司,泉州网站建设费用合理。
用一个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速度蛮快