Well before I wait for a solution from Adobe here is my solution using the Interop Control Toolkit from MS
Hopefully this will help out some of you using the good old 32Bit Developement Evnironments 😉
Public Class AxControl
Inherits AxHost
Public Sub New(ByVal strCLSID As String)
MyBase.New(strCLSID)
End Sub
End Class
Private WithEvents m_axCtrl As AxControl
Private strProgId As String
Private m_type As Type
Private args As Object()
Private Function GetControl() As AxControl
Dim bolErr As Boolean
Try
strProgId = "AcroPDF.PDF"
m_type = System.Type.GetTypeFromProgID(strProgId, True)
m_axCtrl = New AxControl(m_type.GUID.ToString())
bolErr = False
Catch
bolErr = True
End Try
If bolErr = True And m_axCtrl Is Nothing Then
Try
strProgId = "pdf.pdfctrl.6"
m_type = System.Type.GetTypeFromProgID(strProgId, True)
m_axCtrl = New AxControl(m_type.GUID.ToString())
bolErr = False
Catch
bolErr = True
End Try
End If
If bolErr = True And m_axCtrl Is Nothing Then
Try
strProgId = "pdf.pdfctrl.5"
m_type = System.Type.GetTypeFromProgID(strProgId, True)
m_axCtrl = New AxControl(m_type.GUID.ToString())
bolErr = False
Catch
bolErr = True
End Try
End If
If bolErr = True Or m_axCtrl Is Nothing Then
Return Nothing
Else
Return m_axCtrl
End If
End Function
Public Function InitAdobeReader(ByVal pFile As String) As Boolean
If GetControl() Is Nothing Then
Return False
End If
Try
DirectCast((m_axCtrl), System.ComponentModel.ISupportInitialize).BeginInit()
m_axCtrl.Enabled = True
m_axCtrl.Name = "axCtrl"
m_axCtrl.TabIndex = 0
m_axCtrl.Left = 0
m_axCtrl.Top = 0
m_axCtrl.Width = Me.Width
m_axCtrl.Height = Me.Height
Controls.Add(m_axCtrl)
DirectCast((m_axCtrl), System.ComponentModel.ISupportInitialize).EndInit()
args = New Object() {False}
m_type.InvokeMember("setShowToolbar", BindingFlags.InvokeMethod, Nothing, m_axCtrl.GetOcx, args)
args = New Object() {pFile}
m_type.InvokeMember("LoadFile", BindingFlags.InvokeMethod, Nothing, m_axCtrl.GetOcx, args)
Return True
Catch
Return False
End Try
End Function
Public Sub Destroy()
m_axCtrl.Dispose()
cMemoryManagement.FlushMemory()
End Sub
Private Sub InteropUserControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If m_axCtrl Is Nothing Then Return
m_axCtrl.Top = 0
m_axCtrl.Left = 0
m_axCtrl.Width = Me.Width
m_axCtrl.Height = Me.Height
End Sub
74
Replies
AdChoices