主题：请教 网络图片的问题

If e.Col.Name = "缩略图" AndAlso e.Row.IsNull("图片") = False Then
    e.StartDraw()
    e.Graphics.DrawImage(getimage(e.Row("图片")), e.x + 1,e.y + 1, 100, 85)
    e.EndDraw()
End If

 

 

如何图片来自互联网 怎么写代码

此主题相关图片如下：qq图片20141230214218.jpg

可不可以用 此项目 目录RemoteFiles下的文件

Dim ftp1 As new ftpclient
ftp1.host="ns18.mfdns.com"
ftp1.Account = "fo1xtable"
ftp1.password = "WJfoxtable"
Dim f1,f2 As String
For Each r As Row In Tables("表A").Rows
f1=r("图片")
f2=FileSys.GetName(R("图片"))
If ftp1.Download(&ff,projectPath & "mypic/" & FileSys.GetName(r("图片")) = True Then
    Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
 

错在哪里

可以了 多谢