求解：(VB6.0)如何在程序中调用打开PDF文件？

下面的代码是调用系统默认程序打开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

你生成的这个exe文件在其他没有vb环境的电脑上应该也是不能用的，你可以用vb自带的打包工具打包，在打包的工程中把这个PDF添加进去就可以了！

开始—>所有程序->microsoft visual basic 6.0->microsoft visual basic 6.0工具—>Package &Deployment 向导，按照步骤一步一步就可以了

---