不使用 AxAcroPdf 阅读器关闭表单

Question

我有一个带有pdf阅读器的winform控制AxAcroPdf阅读器，事情是在我将pdf文档检索到控制之后，当我想关闭表单时，完成事件大约需要30秒，我一直搜索问题，事件将Dispose()事件放到控件中，但无法在适当的时间内关闭表单，总是需要30秒左右才能关闭表单...

这是我拥有控制权的表单中的代码...

Private Sub cargarPdf(ByRef nombre_Archivo)
        Try
            AxAcroPDF1.Visible = True
            Dim con As SqlConnection = New SqlConnection(cadena)
            Dim comando As SqlCommand = con.CreateCommand()
            comando.CommandText = "SELECT file_stream FROM dbo.Tabla_archivos where name = @name"
            comando.Parameters.AddWithValue("@name", nombre_Archivo)
            con.Open()
            Dim dr As SqlDataReader = comando.ExecuteReader(CommandBehavior.CloseConnection)
            dr.Read()
            Dim bufferSize As Integer = Convert.ToInt32(dr.GetBytes(0, 0, Nothing, 0, 0))
            datos = New Byte(bufferSize - 1) {}
            dr.GetBytes(0, 0, datos, 0, bufferSize)
            dr.Close()
            WriteBinaryFile("C:\Cobit\" + nombre_Archivo, datos)
            AxAcroPDF1.src = "C:\Cobit\" + nombre_Archivo
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

这是基本形式的代码...

Private Sub BtnCerrar_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If NombreLbl.Text = "Vista Archivos de evidencia" Then
            Try
                Frm_vista_archivos_evidencia.AxAcroPDF1.Dispose()

            Catch ex As Exception
            End Try
        End If
        Me.Close()
    End Sub

具有控件的表单是从 Frm_base 派生的表单

Answer 1

在最近版本的 Acrobat Reader 中存在一个错误，该错误会导致在表单关闭时释放控件时出现延迟。似乎有一些链接可以打开 PDF 文档。您可以通过将其src 属性设置为不存在的PDF 文件来强制控件关闭文档；将其设置为 Nothing 或空字符串无效。此文档关闭技术的功劳归于 Adob​​e 论坛中的“kenstanley2014”How do I clear the file from AxAcroPDF object?。如果你先关闭文件然后关闭表单，它会很快关闭。但是，我发现这必须通过两个单独的 UI 交互，因为将它们放在相同的方法中会失败，就像设置 src 属性并使用计时器触发关闭命令一样。

无论出于何种原因，我决定看看隐藏表单是否会产生影响。确实如此！而且根本不需要设置src 属性。只需在 FormClosed 事件处理程序中将 Form 的 Visible 属性设置为 False。

Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    Me.Visible = False
End Sub

我不知道为什么会这样，您的体验可能会有所不同。 使用 Adob​​e Acrobat Reader DC 版本在 64 位 Windows 10 上测试。 15.023.20056.16516.