Foxtable(狐表)用户栏目专家坐堂 → 图片被压缩到指定的大小


  共有4357人关注过本帖树形打印复制链接

主题:图片被压缩到指定的大小

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


加好友 发短信
等级:九尾狐 帖子:2473 积分:22835 威望:0 精华:0 注册:2011/3/29 17:14:00
图片被压缩到指定的大小  发帖心情 Post By:2022/1/17 14:23:00 [只看该作者]

Dim tb As Table = Tables("产品库_活动家具")
            For r As Integer = 0 To tb.Rows.Count -1 '开始填入该列内容
                Dim name As String = fj & filesys.getname(tb.Rows(r)("商品图片"))
                If FileSys.FileExists(name) Then
                Else
                    If e.Row("商品图片") > "" Then
                        Network.DownloadFile(tb.Rows(r)("商品图片"), name,"" ,"" ,True, 100000, True)
希望下载的图片被压缩到指定的大小
                        
                    End If
                End If
            Next


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/17 14:36:00 [只看该作者]

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2473 积分:22835 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2022/1/17 15:34:00 [只看该作者]

这是上传的,下载要怎么改呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/1/17 15:35:00 [只看该作者]

图片压缩的方法都一样,关上传还是下载什么关系?

 回到顶部