下面的代码是调用系统默认程序打开PDF,注意修改文件路径D:\help.pdf
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
Private Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
Dim result
result = ShellExecute(0, vbNullString, "D:\help.pdf", vbNullString, vbNullString, SW_SHOWNORMAL)
If result <= 32 Then
MsgBox "打开失败!", vbOKOnly + vbCritical, "错误:", 0
End If
End Sub
Ⅱ 用VB6怎么打开Adobe Reader 并同时打开一个*.pdf文件
Shell "<Adobe Reader程序路径> <pdf文件自路径>"(Adobe Reader和pdf文件之间有空格)
比如Adobe Reader安装在 d:\Software\Adobe\AcroRd32.exe
要打开的pdf是 d:\1.pdf
代码就是 Shell "d:\Software\Adobe\AcroRd32.exe d:\1.pdf"
Ⅲ vb 打开PDF文件
利用AcroPDF打开并显示PDF文件。
注意:必须事先安装免费的 Adobe Reader 11.0
(1)创建一个VB6工程。在工具栏中点击鼠标右键,调出右键菜单-->部件-->Adobe Acrobat 7.0 Control Type Library 1.0-->确定