共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：Foxtable 中如何在上传照片前 对照片先进行压缩，控制在600*800的像素内，避免服务器存照片存爆掉。
1楼
PowerBook 发表于：2016/8/25 22:07:00Foxtable 中如何在上传照片前 对照片先进行压缩，控制在600*800的像素内，避免服务器存照片存爆掉。
2楼
大红袍 发表于：2016/8/26 0:26:00mark 缩放图片
Dim file As String = "d:\test.jpg"
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
If 800 * (img.height / img.width) > 600 Then
bmp = new bitmap(img, 800*(600/(800*(img.height/img.width))), 600)
Else
bmp = new bitmap(img, 800, 800 * (img.height / img.width))
End If
End If
bmp.save("d:\缩略图.jpg")
bmp.Dispose
3楼
zhy400137 发表于：2016/8/26 6:56:00学习
4楼
kylin 发表于：2016/8/26 10:23:00收藏，谢谢大红袍兄！
5楼
流水 发表于：2024/8/15 13:59:00转换后的图片，打开是黑色，没有图像了
此主题相关图片如下：缩略图.jpg
此主题相关图片如下：缩略图.jpg
共5 条记录, 每页显示 10 条, 页签:
[1]