[求助] pdf 预览 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[此贴子已经被作者于2016/9/22 19:49:11编辑过]

1，设置图片框属性

此主题相关图片如下：1.png

2，代码改改

Dim dr As DataRow = Tables("表A").Current.DataRow

Dim fl As String =DataTables("表A").dataCols("第一列").DefaultFolder & dr("第一列")

If FileSys.FileExists(fl) Then

_pdfWrapper.LoadPDF(fl)

Dim pcb As WinForm.PictureBox = e.form.Controls("PictureBox1")

_pdfWrapper.CurrentPage = 1

Dim w As Integer = _pdfWrapper.Pages(_pdfWrapper.CurrentPage).width

Dim h As Integer = _pdfWrapper.Pages(_pdfWrapper.CurrentPage).height

pcb.Image = _pdfWrapper.Pages(_pdfWrapper.CurrentPage).GetBitmap(w, h)

Else

msgbox("文件不存在")

End If

学习一下

[此贴子已经被作者于2016/9/22 22:02:57编辑过]

谢谢，就是放大后在中间，不能靠左侧放大吗？

另外打印按钮代码，为什么打不出呢？

Dim doc As New PrintDoc '定义一个报表对象

Dim rm As New prt.RenderImage '定义一个图片对象

rm.Image = GetImage("PictureBox1")

'设置图片

rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

doc.Body.Children.Add(rm) '将图片对象加入报表

Doc.Preview() '预览

1，自己尝试2楼图片缩放的几种模式

2，用到的类型和函数要弄明白具体用法，只学会天下一大抄，却不了解其所以然。http://www.foxtable.com/webhelp/scr/1851.htm

可用GetImage函数从指定的图片文件获得图片，如果文件已经事先复制到管理项目的Images子目录下,则只需指定文件名即可,否则需要包括路径。

说明GetImage这个函数是从文件取得图片，而不是从图片框取得图片的

3，另外原始图片比较大，需要设置好尺寸：http://www.foxtable.com/webhelp/scr/1182.htm

Dim doc As New PrintDoc '定义一个报表对象

Dim rm As New prt.RenderImage '定义一个图片对象

rm.Image = e.Form.Controls("PictureBox1").image

rm.Width = "Parent.Width" '宽度等于页面宽度

rm.Height = "Auto" '高度由图片大小自动决定

'设置图片

rm.Style.Borders.All = New prt.Linedef(1, Color.Red) '设置边框

doc.Body.Children.Add(rm) '将图片对象加入报表

Doc.Preview() '预览

主题：[求助] pdf 预览