以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  图片被压缩到指定的大小  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174467)

--  作者：yifan3429 --  发布时间：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

--  作者：有点蓝 --  发布时间：2022/1/17 14:36:00 --   http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637

--  作者：yifan3429 --  发布时间：2022/1/17 15:34:00 --   这是上传的，下载要怎么改呢

--  作者：有点蓝 --  发布时间：2022/1/17 15:35:00 --   图片压缩的方法都一样，关上传还是下载什么关系？