Foxtable(狐表)用户栏目专家坐堂 → 想直接预览扩展列中的pdf文件


  共有2811人关注过本帖树形打印复制链接

主题:想直接预览扩展列中的pdf文件

帅哥哟,离线,有人找我吗?
everybody
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
想直接预览扩展列中的pdf文件  发帖心情 Post By:2015/7/10 12:36:00 [只看该作者]

 

想直接预览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

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/10 12:52:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
everybody
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
  发帖心情 Post By:2015/7/10 13:30:00 [只看该作者]

伸手党,厚脸皮,代码怎么改?

 

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:307 积分:2252 威望:0 精华:0 注册:2013/2/28 9:05:00
  发帖心情 Post By:2015/7/10 16:54:00 [只看该作者]

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

 

          无效的的uri:无法确定uri的格式


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/10 17:02:00 [只看该作者]

 那就是你的文件路径不对,合成正确的路径 e.Table.Current("第一列")

 回到顶部