重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
很简单的方法,貌似没有。这个需要自己写很多代码:
站在用户的角度思考问题,与客户深入沟通,找到汪清网站设计与汪清网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:做网站、成都网站制作、企业官网、英文网站、手机端网站、网站推广、域名注册、网页空间、企业邮箱。业务覆盖汪清地区。
用一个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
REM 假设存在Image类型变量img
Dim bmp As Bitmap = CType(img, Bitmap) '差肢差先将Image类饥模型强虚皮制转换为Bitmap类型
bmp.Save("C:\1.png", System.Drawing.Imaging.ImageFormat.Png) '以PNG格式存储到C:\1.png
因为文件被打开,所以出错,把前面的fileopen和后面的fileclose语句去掉。
放在解决方案资源管理器还没完。进入项目属性,资源,把解决方贺戚哪案资源管理仔升器里的资源文件拖进来,改个便于调用的名称,然后My.Resources里面就可以调用了。如果是VS可以识别的,那么就直接是Bitmap类型的,可以隐式转换成Image类型。禅码