窗口显示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