Foxtable(狐表)用户栏目专家坐堂 → 压缩时自动关闭app


  共有2507人关注过本帖平板打印复制链接

主题:压缩时自动关闭app

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/19 17:46:00 [只看该作者]

1、改一下你的压缩代码

 

Dim bs As Byte() = Convert.FromBase64String(e.PostValues(key).split(",")(1))
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim img1 As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
Dim slt As String ="c:\web\xp\" & e.Cookies("username") & ".jpg"
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
End If
bmp1.save(slt, ImageFormat.Jpeg)
bmp1.Dispose
img1.dispose
stream.close


 

2、是不是返回了最顶层才退出的?如果是,看看 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=124516&skin=0

 


 回到顶部
总数 18 1 2 下一页