希望达成
图库表
原图列 内容是原图地址 C:\Users\Administrator\Desktop\爆品资料\0daf3cad-77ef-4fc1-a24e-a5bcc50e2106.jpg
缩略图列 拟定压缩图新地址 C:\Users\Administrator\Desktop\压缩图\0daf3cad-77ef-4fc1-a24e-a5bcc50e2106.jpg
Dim ifo As new FileInfo(t11)
If Ifo.Length>40960 '大于40k才压缩
Dim img1 As image = getImage(t11)
Dim bmp1 As bitmap
If img1.width > 400 Then
If 400 * (img1.height / img1.width) > 300 Then
bmp1 = new bitmap(img1, 400*(300/(400*(img1.height/img1.width))), 300)
Else
bmp1 = new bitmap(img1, 300, 300 * (img1.height / img1.width))
End If
bmp1.save(slt, img.RawFormat)
bmp1.Dispose
End If
加好友 
发短信
Post By：2024/1/22 14:34:00 [只看该作者]
