在VFP中打开PDF文件的后续问题

RH2588 2009-09-10 02:49:24

读了 2009.06.06 zhoud_j 发的一贴《在VFP中打开PDF文件的一些问题》，其中二位老师的解答，帮我解决了一些问题，获益不小。
现在是我的机器上安装了Adobe Reader 6, 运转很正常，但是同事们的机器上安装的版本各不相同，有7.0 和9.0的，该怎么办，如果以后他们各自再升级或安装其他的版本又该怎么办？

下面是都市夜猫的帖子：
新建一个表单，放一个按钮，按钮的 click 事件中写下面的代码
C# codeThisform.Newobject('pdf', 'Olecontrol', '', '', 'AcroPDF.PDF.1')
Thisform.pdf.Move( 10, 10, Thisform.Width - 20, Thisform.Height - 20)
Thisform.pdf.SetShowToolbar(.f.)
Thisform.pdf.LoadFile( Getfile('pdf') )
Try
Thisform.pdf.Visible = .T.
Catch
Endtry
Thisform.pdf.SetFocus()
我的机器上安装了 Acrobat9

十豆三老师说："PDF.PdfCtrl.6", ; &&如果是Adobe Reader 5.0,此处的6为5

如果是7.0 应该改什么？我改成7 不行！

...全文

226 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

cwh820915 2021-06-24

打赏
举报

可以打开ＰＤＦ文档，但是要怎么关闭呢？

wqj5431 2009-12-21

打赏
举报

第一个问题我知道啦,那第二个怎么解决呀

wqj5431 2009-12-21

打赏
举报

各位老大,那怎么才能不弹出打开对话框,直接打开文件呀,还有就是能不能把PDF的菜单在表单里隐藏呀,要不然看起来不太美观

RH2588 2009-09-11

打赏
举报

顺利通过！
感谢二位，采纳十豆三老师的意见，运用夜猫老师的技术指导。

都市夜猫 2009-09-10

打赏
举报

可以用嵌套的 try ... catch ... endtry 让代码自动侦测可用的版本

（仍然是新建一表单，添加一按钮，按钮 Click 事件中写下列代码）
m.lSuccess = .T.
Try
* Adobe Reader 版本 7,8,9
Thisform.Newobject('pdf', 'Olecontrol', '', '', 'AcroPDF.PDF')
Catch
Try
* Adobe Reader 版本 6
Thisform.Newobject('pdf', 'Olecontrol', '', '', 'PDF.PdfCtrl.6')
Catch
Try
* Adobe Reader 版本 5
Thisform.Newobject('pdf', 'Olecontrol', '', '', 'PDF.PdfCtrl.5')
Catch
Messagebox('没有安装 Acrobat 或 Adobe Reader。', 16, '')
m.lSuccess = .F.
Endtry
Endtry
Endtry
If m.lSuccess
With Thisform.pdf
.LoadFile( Getfile('pdf') )
.Move( 10, 10, Thisform.Width - 20, Thisform.Height - 20)
.SetShowToolbar(.F.)
.Anchor = 15
Try
.Visible = .T.
Catch
Endtry
.SetFocus()
Endwith
Endif