58
Replies
Thankyou all for sharing your experience.
I've been able to fix the application hang by mixing the vb code provided by VMBLaOs with c# code provided by AccessViolationException.
You can compile and use your own PDFView class (Translated in english 
) adding this code to your application.
Imports System.ComponentModel
Public Enum PDFLayoutMode
DontCare ' Layout according to the document specification
SinglePage ' Single page
OneColumn ' Continuous page
TwoColumnLeft ' Continuous double pages, odd pages left
TwoColumnRight ' Continuous double pages, odd pages right
End Enum
Public Enum PDFPageMode
none ' Default view
bookmarks ' View bookmarks
thumbs ' View thumbs
End Enum
Public Enum PDFViewMode
Fit ' Entire page fits completely into the provided object
FitV ' Page height (vertical) fits completely into the object
FitH ' Page width (horizontal) fits completely into the object
FitB ' Document frame ("bounding box") fits completely into the object
FitBV ' Document frame height (vertical) fits completely into the object
FITBH ' Document frame width (horizontal) fits completely into the object
End Enum
Public Class PDFView
Inherits UserControl
Implements IMessageFilter
Private m_PDFHost As PDFHost
Private m_isInitialized As Boolean = False
Private m_ShowToolBar As Boolean = True
Private m_ShowScrollBars As Boolean = True
Private m_LayoutMode As PDFLayoutMode = PDFLayoutMode.DontCare
Private m_PageMode As PDFPageMode = PDFPageMode.none
Private m_ViewMode As PDFViewMode = PDFViewMode.Fit
#Region " Host Helper Class "
''' <summary>
''' Helper Class
''' </summary>
''' <remarks>
''' This private class hosts the Acrobat ActiveX control so that it can be inserted into the UserControl.
''' </remarks>
Private Class PDFHost
Inherits AxHost
''' <summary>
''' Initializes the host
''' </summary>
Public Sub New(ByVal sCLSID As String)
MyBase.New(sCLSID)
End Sub
''' <summary>
''' Returns an object reference to the ActiveX control
''' </summary>
Public ReadOnly Property Viewer() As Object
Get
Try
Return Me.GetOcx
Catch ex As Exception
Return Nothing
End Try
End Get
End Property
''' <summary>
''' Releases all resources used by the component
''' </summary>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If Me.Viewer IsNot Nothing Then
Me.Viewer.Dipose()
End If
MyBase.Dispose(disposing)
End Sub
End Class
#End Region
#Region " Initialization "
''' <summary>
''' Initializes UserControl
''' </summary>
Public Sub New()
MyBase.New()
Me.InitializeComponent()
Application.AddMessageFilter(Me)
End Sub
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If m_isInitialized Then
m_PDFHost.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
''' <summary>
''' Initialize components.
''' </summary>
''' <remarks>
''' Late binding is trying to create an instance of the Acrobat Reader. On the target system must the reader version 7 or later be installed. If this is not the case, an error message will be shown.
''' </remarks>
Private Sub InitializeComponent()
Dim t As Type = Type.GetTypeFromProgID("AcroPDF.PDF")
If t IsNot Nothing Then
m_PDFHost = New PDFHost(t.GUID.ToString)
DirectCast((m_PDFHost), ISupportInitialize).BeginInit()
SuspendLayout()
m_PDFHost.TabIndex = 0
m_PDFHost.Visible = True
m_PDFHost.Name = "PDFHost"
m_PDFHost.Dock = DockStyle.Fill
Controls.Add(m_PDFHost)
DirectCast((m_PDFHost), ISupportInitialize).EndInit()
ResumeLayout(False)
PerformLayout()
m_isInitialized = True
Else
m_isInitialized = False
MessageBox.Show("The Acrobat Reader version 7 or higher could not be initialized." _
& vbCrLf & "Please install Acrobat Reader version 7 or higher." _
, "Initializiation of Acrobat Reader component", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub
#End Region
#Region " Properties "
''' <summary>
''' Property returns the Acrobat Reader initialization state.
''' </summary>
<Browsable(False)> _
Public ReadOnly Property isInitialized() As Boolean
Get
Return m_isInitialized
End Get
End Property
''' <summary>
''' Gets or sets the layout mode for the PDF document.
''' </summary>
<Description("Gets or sets the layout mode for the PDF document."), _
Category("Layout"), _
DefaultValue(GetType(PDFLayoutMode), "DontCare")> _
Public Property LayoutMode() As PDFLayoutMode
Get
Return m_LayoutMode
End Get
Set(ByVal value As PDFLayoutMode)
m_LayoutMode = value
Try
m_PDFHost.Viewer.setLayoutMode(m_LayoutMode.ToString)
Catch ex As Exception
Throw ex
End Try
End Set
End Property
''' <summary>
''' Gets or sets the mode for the page view.
''' </summary>
<Description("Gets or sets the mode for the page view."), _
Category("Layout"), _
DefaultValue(GetType(PDFPageMode), "none")> _
Public Property PageMode() As PDFPageMode
Get
Return m_PageMode
End Get
Set(ByVal value As PDFPageMode)
m_PageMode = value
Try
m_PDFHost.Viewer.setPageMode(m_PageMode.ToString)
Catch ex As Exception
Throw ex
End Try
End Set
End Property
''' <summary>
''' Determines whether the toolbar should appear.
''' </summary>
<Description("Determines whether the toolbar should appear."), _
Category("Layout"), _
DefaultValue(True)> _
Public Property ShowToolBar() As Boolean
Get
Return m_ShowToolBar
End Get
Set(ByVal value As Boolean)
m_ShowToolBar = value
Try
m_PDFHost.Viewer.setShowToolbar(value)
Catch ex As Exception
Throw ex
End Try
End Set
End Property
''' <summary>
''' Determines whether to display the ScrollBars.
''' </summary>
<Description("Determines whether to display the ScrollBars."), _
Category("Layout"), _
DefaultValue(True)> _
Public Property ShowScrollBars() As Boolean
Get
Return m_ShowScrollBars
End Get
Set(ByVal value As Boolean)
m_ShowScrollBars = value
Try
m_PDFHost.Viewer.setShowScrollbars(value)
Catch ex As Exception
Throw ex
End Try
End Set
End Property
''' <summary>
''' Gets or sets the mode for the page fit.
''' </summary>
<Description("Gets or sets the mode for the page fit."), _
Category("Layout"), _
DefaultValue(GetType(PDFViewMode), "Fit")> _
Public Property ViewMode() As PDFViewMode
Get
Return m_ViewMode
End Get
Set(ByVal value As PDFViewMode)
m_ViewMode = value
Try
m_PDFHost.Viewer.setView(m_ViewMode.ToString)
Catch ex As Exception
Throw ex
End Try
End Set
End Property
#End Region
#Region " Methods "
Public Sub GoBackward()
Try
m_PDFHost.Viewer.GoBackwardStack()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GoForward()
Try
m_PDFHost.Viewer.GoForwardStack()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GotoPage(ByVal PageNumber As Integer)
Try
m_PDFHost.Viewer.setCurrentPage(PageNumber)
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GotoFirstPage()
Try
m_PDFHost.Viewer.GotoFirstPage()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GotoLastPage()
Try
m_PDFHost.Viewer.GotoLastPage()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GotoNextPage()
Try
m_PDFHost.Viewer.GotoNextPage()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub GotoPreviousPage()
Try
m_PDFHost.Viewer.GotoPreviousPage()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Function LoadFile(ByVal FileName As String) As Boolean
Try
Dim b As Boolean = m_PDFHost.Viewer.LoadFile(FileName)
If b Then
Me.ShowToolBar = m_ShowToolBar
Me.ShowScrollBars = m_ShowScrollBars
Me.LayoutMode = m_LayoutMode
Me.PageMode = m_PageMode
Me.ViewMode = m_ViewMode
End If
Return b
Catch ex As Exception
Throw ex
End Try
End Function
Public Sub PrintWithDialog()
Try
m_PDFHost.Viewer.PrintWithDialog()
Catch ex As Exception
Throw ex
End Try
End Sub
Public Sub Zoom(ByVal Percent As Single)
Try
m_PDFHost.Viewer.setZoom(Percent)
Catch ex As Exception
Throw ex
End Try
End Sub
#End Region
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage
'Block the internal Adobe's Application Fatal AccessViolationException when pressing the TAB key.
Dim bFiltered As Boolean = True
'Adobe's Application Message
Const WM_ACROBAT_1450 As Integer = 5200 '0x1450
'Apply the filter
If m.Msg = WM_ACROBAT_1450 Then
'Block this message or it will trigger a fatal AccessViolationException when the TAB key is pressed
bFiltered = True
Else
'Other messages can pass through the filter
bFiltered = False
End If
Return bFiltered
End Function
End Class
AdChoices