|
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer3")
If piv.SelectedItem IsNot Nothing Then
Dim doc As New PrintDoc '定义一个报表对象
Dim rm As New prt.RenderImage '定义一个图片对象
piv.FTPclient.Download(piv.SelectedItem, ProjectPath & "temp.jpg", True)
rm.Image = getImage(ProjectPath & "temp.jpg")
rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框
doc.Body.Children.Add(rm) '将图片对象加入报表
Doc.Preview() '预览
End If
|
加好友 
发短信
Post By：2017/7/18 17:33:00 [显示全部帖子]
