以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  专业报表中怎么插入网站中的图片？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97585)
--  作者：有点色
--  发布时间：2017/3/15 11:26:00
--  

先下载，再使用

 

http://www.foxtable.com/webhelp/scr/1402.htm

 
--  作者：有点色
--  发布时间：2017/3/15 11:29:00
--  

Dim doc As New PrintDoc
Dim rm As New prt.RenderImage()
Network.DownloadFile("https://static.dingtalk.com/media/lADOqmDeVM0DIM0CWA_600_800.jpg", projectPath & "temp.jpg", "", "", False, 10000, True)
rm.Image = GetImage(projectpath & "temp.jpg")
rm.Style.ImageAlign.AlignHorz = prt.ImageAlignHorzEnum.Center
rm.Style.ImageAlign.AlignVert = prt.ImageAlignVertEnum.Center
doc.Body.Children.Add(rm)
Doc.Preview()

 
--  作者：blackzhu
--  发布时间：2017/3/15 17:39:00
--  
不用那么麻烦,可以在线读的.

Dim image_address As String = "FTP://FTP-qDCm56ge584n7m6h:9V5dx4YrVYSyc283dTqB@222.241.172.223:33821/Upload/图片/B17.PNG"
Dim wr As system.net.WebRequest = system.net.WebRequest.Create(image_address)
Dim res As system.net.WebResponse= wr.GetResponse
Dim bmp As New Bitmap(res.GetResponseStream)
e.Form.Controls("PictureBox1").SizeMode = ImageSizeMode.Zoom
e.Form.Controls("PictureBox1").Image=bmp