首页 文章

VB不会显示PDF阅读器

提问于
浏览 次
1

我使用以下代码打开PDF文件：

Public Sub Execute_Doc(afilename As String, Optional style As ProcessWindowStyle = ProcessWindowStyle.Minimized)
        Dim myProcess As New Process

        Const ERROR_FILE_NOT_FOUND As Integer = 2
        Const ERROR_ACCESS_DENIED As Integer = 5


        Try
            myProcess.StartInfo.FileName = afilename
            myProcess.StartInfo.WindowStyle = style
            myProcess.Start()
        Catch e As System.ComponentModel.Win32Exception
            If e.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
                Console.WriteLine(e.Message + ". Check the path.")
                MsgBox("File<" + afilename + "> not found!")
            Else
                If e.NativeErrorCode = ERROR_ACCESS_DENIED Then
                    Console.WriteLine(e.Message + ". You do not have permission to print this file.")
                    MsgBox("File <" + afilename + "> couldn't be opened!")
                End If
            End If
            MsgBox(e.ToString())
        Catch ex As Exception
            MsgBox(e.ToString())
        Finally
            myProcess.Kill()
            myProcess.Dispose()
        End Try
    End Sub

我调用Execute_Doc（“C：\ ProgrammName \ Test.pdf”，ProcessWindowStyle.Normal），但Adobe Reader不会显示 . 我可以在任务管理器中看到它 .

如果我通过单击桌面上的默认图标首先启动Adobe Reader而没有任何文件，它是否有效 . 它也适用于Windows 8.1的集成PDF阅读器 . 我无法在Windows 7 / VS 2013计算机上调试此问题 . 这个问题只存在于ONE！客户电脑 .

任何tipps如何解决这个问题？

vb.net pdf process

2 回答

  • 1
    Public Sub Execute_Doc(afilename As String, Optional style As ProcessWindowStyle = ProcessWindowStyle.Minimized)
    Dim myProcess As New Process

    Const ERROR_FILE_NOT_FOUND As Integer = 2
    Const ERROR_ACCESS_DENIED As Integer = 5


    Try
        myProcess.StartInfo.FileName = "AcroRd32.exe " & afilename
        myProcess.StartInfo.WindowStyle = style
        myProcess.Start()
    Catch e As System.ComponentModel.Win32Exception
        If e.NativeErrorCode = ERROR_FILE_NOT_FOUND Then
            Console.WriteLine(e.Message + ". Check the path.")
            MsgBox("File<" + afilename + "> not found!")
        Else
            If e.NativeErrorCode = ERROR_ACCESS_DENIED Then
                Console.WriteLine(e.Message + ". You do not have permission to print this file.")
                MsgBox("File <" + afilename + "> couldn't be opened!")
            End If
        End If
        MsgBox(e.ToString())
    Catch ex As Exception
        MsgBox(e.ToString())
    Finally
        myProcess.Kill()
        myProcess.Dispose()
    End Try
End Sub
    回复于
  • 0

    只需使用Shell Execute，它由Win API提供，因此您不必担心安装什么程序来处理扩展 . Windows为您完成工作 .

    Private Function ShellExecute(ByVal File As String) As Boolean
   Dim myProcess As New Process
   myProcess.StartInfo.FileName = File
   myProcess.StartInfo.UseShellExecute = True
   myProcess.StartInfo.RedirectStandardOutput = False
   myProcess.Start()
   myProcess.Dispose()
End Function
    回复于

相关问题