Question

vb 打开PDF文件

点击菜单后，打开所指定的PDF格式文件。谢谢
我要打开的是PDF格式的文档，不是EXE文件，谢谢了啊！

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

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 3

需要加一个PDF的控件。

Answer 4

使用SHELL函数。先用API从注册表中读取AdobeReader的安装路径，在用Shell调用。

Answer 5

使用windows默认打开方式打开

http://hi.baidu.com/hxf0663/blog/item/b148d3a8873777b6ca130c7e.html