以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  想直接预览扩展列中的pdf文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71383)
--  作者：everybody
--  发布时间：2015/7/10 12:36:00
--  想直接预览扩展列中的pdf文件

 

想直接预览pdf文件，如何实现？

 

 

 
此主题相关图片如下：qq截图20150710123307.png
按此在新窗口浏览图片

 

 

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:窗口pdf.foxdb

 

 

 

 在论坛里找到了两种方法，想利用方法二，但不知道怎么写代码

 

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26412&authorid=0&page=1&star=1

 

 

]窗口查看PDF文件，需要的请进(重传)  发帖心情 Post By：2012/12/3 16:01:00 [只看该作者]

窗口显示PDF文件，目前基本是两种方法：

 

第一种方法：通过webbrower控件

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.address = "c:\\test.pdf"

如果机器装有Adobe Reader，控件就会自动打开相应的文件，达到预览的目的，但是如果没有安装Adobe Reader，恐怕就不能打开了(这点没试过)


图片点击可在新窗口打开查看此主题相关图片如下：note1.jpg
图片点击可在新窗口打开查看

 

第二种方法：引用第三方控件

引用附件中的PDFView.dll文件和PDFLibNet.dll文件以及gsdll32.dll文件，请拷贝到foxtable程序目录下

新建窗口，增加图片控件PictureBox1，新建按钮，代码如下

Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
Dim pcb As WinForm.PictureBox = e.form.Controls("PictureBox1")
pcb.Image = Pdfv.GetPageFromPDF(ProjectPath & "Hello.pdf",1)

效果如图


图片点击可在新窗口打开查看此主题相关图片如下：note2.jpg
图片点击可在新窗口打开查看

附件下载：要到这里下载

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=26412&authorid=0&page=1&star=1

 
--  作者：大红袍
--  发布时间：2015/7/10 12:52:00
--  

 呃，窗口里放一个webbrowser就行了。

 

 http://www.foxtable.com/help/topics/1480.htm

 
--  作者：everybody
--  发布时间：2015/7/10 13:30:00
--  

伸手党，厚脸皮，代码怎么改？

 

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

web.address = "c:\\test.pdf"
--  作者：大红袍
--  发布时间：2015/7/10 14:19:00
--  

CurrentChanged事件

 

If e.Table.Current IsNot Nothing AndAlso  Forms("窗口1").Opened Then
    Dim web As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")
    web.address = e.Table.Current("第一列")
End If
--  作者：everybody
--  发布时间：2015/7/10 16:54:00
--  

有错误提示啊！！！再次请教

 

          无效的的uri：无法确定uri的格式
--  作者：大红袍
--  发布时间：2015/7/10 17:02:00
--  
 那就是你的文件路径不对，合成正确的路径 e.Table.Current("第一列")