| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 远程图片下载 并引用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170610) |
| -- 作者：有点蓝 -- 发布时间：2021/8/1 20:17:00 -- dim name as string = "c:\\data\\" & filesys.getname(CurRow("商品图片")) Network.DownloadFile(CurRow("商品图片"), name）rt.Cells(r + 1,2).Image = GetImage(name)
|
| -- 作者：有点蓝 -- 发布时间：2021/8/2 14:39:00 -- 判断一下，同名文件如果存在：http://www.foxtable.com/webhelp/topics/0337.htm，就跳过 |
| -- 作者：有点蓝 -- 发布时间：2021/8/2 15:14:00 -- For r As Integer = 0 To tb.Rows.Count -1 \'开始填入该列内容 If ColNames(c) <>"商品图片" rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c)) Else Dim name As String = "d:\\data\\" & filesys.getname(tb.Rows(r)("商品图片"))
|
| -- 作者：有点蓝 -- 发布时间：2021/8/2 20:19:00 -- Network.DownloadFile(tb.Rows(r)("商品图片"), name) |
| -- 作者：有点蓝 -- 发布时间：2021/8/2 21:09:00 -- 图片单元格没有数据，判断一下有数据再下载 |
| -- 作者：有点蓝 -- 发布时间：2021/8/2 21:22:00 -- rt.Cells(r + 1, c).Text = tb.Rows(r)(ColNames(c)) Else Dim name As String = "d:\\data\\" & filesys.getname(tb.Rows(r)("商品图片")) If FileSys.FileExists(name) Then Else msgbox(tb.Rows(r)("商品图片")) Network.DownloadFile(tb.Rows(r)("商品图片"), name) End If msgbox(name) rt.Cells(r + 1,1).Image = GetImage(name) \'rt.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center \'居中显示 \' End If \' Next
|