批量选择图片并统一修改尺寸和保存，测试情况如下：
1、选中图片大小在1M的50张，可以正常完成；
2、选中图片有一张14M，有一张11M，使用时报错
3、其它类似的测试，感觉就是图片文件大的如果选择后操作会出现报错
4、内存进行了监控：内存会逐步上升，使用后内存会自动清除恢复到原来的状态
问题：是对图片大小选中有要求吗？还是因为内存占用的问题？感觉似乎不太稳定
另外如果设置选择的图片数量不超过10个，单个图片文件不超过5M，这个代码怎么写？
现有测试代码如下：
Dim i As Integer = 1 '定义保存名时使用的编号
Dim img As image
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog = DialogResult.OK Then
For Each fl As String In dlg.FileNames
img = getImage(fl)
Dim bmp As new bitmap(img, 400, 400 * (img.height / img.width))
bmp.save("D:\新建文件夹\" & Format(Date.now,"MMddHmmss") & i & ".jpg")
bmp.Dispose
i = i + 1
Next
End If
[此贴子已经被作者于2017/4/15 16:25:31编辑过]
加好友 
发短信
Post By：2017/4/15 16:25:00 [显示全部帖子]
