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

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.OfficeToolBar = True
web.Address = fl

无效的URI

麻烦大侠帮帮忙，我确实做不出来了 

--  
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

---

--  作者：wangyinming
--  发布时间：2016/9/22 22:03:00
--  

学习一下

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

---

--  作者：KWK001
--  发布时间：2016/9/22 22:05:00
--  
谢谢，就是放大后在中间，不能靠左侧放大吗？

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

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() \'预览

---

--  作者：有点蓝
--  发布时间：2016/9/22 22:21:00
--  
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() \'预览

---