Question

如何在vb中打开一个PDF文件？

我的想法是，点击一个Command Button之后，可以打开一个我指定的PDF，现在希望得到这个Command Button里面的代码。我水平比较差，刚才大家给出的代码我不会移植。
谢谢大家帮忙！

Answer 1

利用AcroPDF打开并显示PDF文件。

注意：必须事先安装免费的 Adobe Reader 11.0

（1）创建一个VB6工程。在工具栏中点击鼠标右键，调出右键菜单-->部件-->Adobe Acrobat 7.0 Control Type Library 1.0-->确定

（2）在Form1中布置一个AcroPDF控件

（3）窗体代码

Option Explicit

Private Sub Form_Load()
    Me.Caption = "我的PDF阅读器"
    ' 加载PDF文档并显示
    AcroPDF1.LoadFile ("D:\电子书籍\ProgrammingWpf.pdf")
End Sub

Private Sub Form_Resize()
    '调整 AcroPDF1大小，占满整个窗口
    AcroPDF1.Move 30, 30, ScaleWidth - 60, ScaleHeight - 60
End Sub

（4）运行效果

Answer 2

在VB中要打开PDF文件，前提是机器上装了Adobe Reader 软件。具体操作如下：
1、在 工程->部件 中选择adodb 浏览器控件;
2、之后再代码中写入：
Private Sub Form_Resize()
AcroPDF1.src = "F:\1.pdf" '更换为你自己的PDF文件路径
End Sub

Answer 3

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Dim Sfile as string
Dim lR As Long
sfile="文件路径"
lR = ShellExecute(Me.hWnd, "Open", sfile, "", "", vbNormalFocus)

Answer 4

前提是你的机器上装了Adobe Reader 软件。具体操作如下。
在工程-部件中选择adodb 浏览器控件。
之后再代码中写入：
Private Sub Form_Resize()
AcroPDF1.src = "F:\1.pdf" '更换为你自己的PDF文件路径
End Sub

Answer 5

这是源码:

http://down1.newasp.net/code/vb/cvery_314222.rar

记着装安装Adobe Reader,主要是程序里使用了pdf.ocx,如果你不想安装这个软件,就下载一个pdf.ocx,并注册就行了