请问以下，以下这段代码，我想加个压缩图片进去，该怎么改？
For Each key As String In e.PostValues.Keys
If key.Contains("imgs_") Then
Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
bmp.Save(ProjectPath & "web/上传的文件/" & key & ".jpg", System.Drawing.Imaging.ImageFormat.Png)
MessageBox.Show(ProjectPath & "web/上传的文件/" & key & ".jpg")
End If
Next
加好友 
发短信
Post By：2019/9/28 11:00:00 [只看该作者]
