社区
VB基础类 帖子详情 vb如何调用PDF文件 追求者2 2007-01-10 04:07:27 vb如何调用PDF文件，并且可以关闭
...全文
1314 6 打赏 收藏 vb如何调用PDF文件 vb如何调用PDF文件，并且可以关闭 复制链接
扫一扫 分享 转发到动态 举报 AI 作业
写回复 配置赞助广告取 消
确 定
用AI写文章 6 条回复 切换为时间正序 请发表友善的回复… 发表回复 打赏红包 需支付: 0.00 元 取 消 确 定 ningyong58 2012-08-04 打赏举报 回复
With MainForm.AcroPDF1
.LoadFile App.Path & PDF文件名
.Visible = True
Debug.Print .GetVersions
End With
其结果为
Accessibility=10.1.,AcroForm=10.1.,Annots=10.1.,Checkers=10.1.,DigSig=10.1.,DVA=10.1.,eBook=10.1.,EScript=10.1.,IA32=10.1.,MakeAccessible=10.1.,Multimedia=10.1.,PDDom=10.1.,PPKLite=10.1.,ReadOutLoud=10.1.,reflow=10.1.,SaveAsRTF=10.1.,Search=10.1.,SendMail=10.1.,Spelling=10.1.,Updater=10.1.,weblink=10.1.,
**********************
导入这个Adobe Acrobat 7.0 Browser Control Type Library 1.0 (Version 1.0)
//AcroPDF1.LoadFile('1.PDF');
AcroPDF1.src:= 'c:\1.PDF';
系统安装的什么版本就用什么版本
MessageDlg(AcroPDF1.GetVersions, mtWarning, [mbOK], 0); ningyong58 2012-08-04 打赏举报 回复 [Quote=引用 3 楼 的回复:]
有，先安装Acrobat Reader 7.0，添加COM组件Adobe Acrobat 7.0 browser document,就会在工具箱里出现控件了，载入文件的语句我是这样写的，当然，要加个对话框：我用的是.NET,语法和对话框可能有点不同:
Private Sub mnuOpen_Click(ByVal sender As Object,……
[/Quote]
Adobe Acrobat 7.0 Browser Control Type Library 1.0 (Version 1.0)
With MainForm
.AcroPDF1.LoadFile ("正则表达式30分钟入门教程.pdf")
.Visible = True
End With
没有调试成功。
问题，在form中不能正常显示PDF文件。 ningyong58 2007-01-29 打赏举报 回复 起动word、excel、AutoCad基本都需要以下几个关键语句
Dim wdApp As Word.Application
Dim aDoc As Document
Set wdApp = New Word.Application
Word.Application Excel.Application Acad.Application
你没有定义，能起来吧，我要试一下 magicbacon 2007-01-29 打赏举报 回复 有，先安装Acrobat Reader 7.0，添加COM组件Adobe Acrobat 7.0 browser document,就会在工具箱里出现控件了，载入文件的语句我是这样写的，当然，要加个对话框：我用的是.NET,语法和对话框可能有点不同:
Private Sub mnuOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuOpen.Click
Dim OpenFileName As String
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "Adobe PDF 文件 (*.pdf)|*.pdf"
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
OpenFileName = OpenFileDialog1.FileName
AxAcroPDF1.LoadFile(OpenFileName)
AxAcroPDF1.Visible = True
Me.Text = "Adobe Reader - [" + GetFileName(OpenFileName) + "]"
Timer1.Enabled = True
mnuAutoTrnovr.Enabled = True
End If
End Sub 追求者2 2007-01-29 打赏举报 回复 那这个控件哪有呢，有具体用过的吗 snowwolf80 2007-01-10 打赏举报 回复 添加AcroPDF1控件，然后代码调用，关闭。偶没有使用过，思路应该是这样的 VB直接打印PDF文件 通过软件代码，直接生产PDF文件,VB6软件源代码 VB打开PDF文件的代码 VB打开PDF文件的代码,我是好不容易才找到滴哟。 调用PDFlib导入pdf书签文件 调用PDFlib_com导入pdf书签文件，同时可修改pdf文档属性信息;需先注册pdflib_com.dll。 调用PDFlib导入pdf书签文件(src) 调用PDFlib_com导入pdf书签文件，同时可修改pdf文档属性信息;需先注册pdflib_com.dll。 用VB代码生成PDF文件 各种功能齐全，添加文本，图片，表格，报表等等
VB基础类
7,785
社区成员
197,585
社区内容
发帖 与我相关 我的任务 VB基础类 VB 基础类 复制链接
扫一扫 分享 确定 社区描述 VB 基础类 社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告 试试用AI创作助手写篇文章吧
+ 用AI写文章