vb点虐 导出图片 vb导出excel

vb点虐 中，如何像下图一样，用很简单的办法，导入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

vb点虐 如何把image类的变量以png格式导出

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

vb点虐 从文件倒入图片的问题

因为文件被打开，所以出错，把前面的fileopen和后面的fileclose语句去掉。

VB点虐 如何调用资源文件(resx)里的图片？

放在解决方案资源管理器还没完。进入项目属性，资源，把解决方贺戚哪案资源管理仔升器里的资源文件拖进来，改个便于调用的名称，然后My.Resources里面就可以调用了。如果是VS可以识别的，那么就直接是Bitmap类型的，可以隐式转换成Image类型。禅码