方法1. 使用SHELL
Private Sub btnReadPDF_Click()
Dim RetVal As String
RetVal = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe D:\test.pdf", 1)
End Sub
其中,Dim RetVal As String
RetVal = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe D:\test.pdf", 1)
End Sub
"C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"是PDF工具的路径,
"D:\test.pdf"是要打开的文件名,
"1"为窗体打开的模式为普通模式
方法2. 使用FollowHyperlink
Private Sub btnReadPDF_Click()
FollowHyperlink ("D:\test.pdf")
End Sub
如果不知道用户使用的为何种PDF工具,可以使用这种方法.FollowHyperlink ("D:\test.pdf")
End Sub