none
(Visual Studio 2008) Afficher un fichier PDF (Résol) RRS feed

  • Question

  • Bonjour,
    J'utilise dans une Form un contrôle Adobe PDF Reader
    Je le retrouve sous le nom de AxAcroPDF1 AxAcroPDFLib.AxAcroPDF
    Quand j'essaye d'y afficher un fichier PDF grâce au bouton 1, il ne se passe rien ...

    mports Microsoft.Office.Interop
    Imports Microsoft.Office.Interop.Word
    Imports AcroPDFLib
    'Imports AxAcroPDFLib
    Public Class Form1
        Private path1 As String = "E:\Horaire.doc"
        Private path2 As String = "E:\lignes-haute-alsace-ligne-728.pdf"
        Private WordApp As Word.Application
        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            WordApp = New Word.Application
            WordApp.Visible = True
            Dim aDoc As Word.Document = WordApp.Documents.Open(path1)
            aDoc.ActiveWindow.Selection.WholeStory()
            aDoc.ActiveWindow.Selection.Copy()
            Dim atext As IDataObject
            atext = Clipboard.GetDataObject()
            Dim RTFdata As String = atext.GetData(DataFormats.Rtf)
            RichTextBox1.Rtf = RTFdata
            aDoc.Close()
            WordApp.Application.Quit()
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            'Me.AxAcroPDF1.LoadFile(path2)
            AxAcroPDF1.src = path2
        End Sub
    
    End Class
    ar contre, quand je lance le gestionnaire de tâche, je retrouve Acrobat (Voir image)

    Voici également la copie écran de mes références

     

      Je n'ai aucune erreur ....
    Comment faire ?

    Cordialement

    Sauveur

     


    Cordialement SC


    • Modifié AOC_SCN lundi 11 mars 2019 11:07 Résolu
    dimanche 10 mars 2019 13:15

Réponses

Toutes les réponses

  • En faisant un rapide test, ça marche normalement chez moi (VS 2015, Windows 10)

    Dans le Form1_Load pour le créer dynamiquement :

    AxAcroPDF1 = New AxAcroPDFLib.AxAcroPDF()
    AxAcroPDF1.Enabled = True
    AxAcroPDF1.Location = New System.Drawing.Point(20, 20)
    AxAcroPDF1.Name = "AxAcroPDF1"       
    AxAcroPDF1.Size = New System.Drawing.Size(600, 800)
    AxAcroPDF1.TabIndex = 0
    
    ClientSize = New System.Drawing.Size(640, 840)
    Controls.Add(Me.AxAcroPDF1)
    
    AxAcroPDF1.LoadFile("e:\testpdf.pdf")

    Global :

     Friend WithEvents AxAcroPDF1 As AxAcroPDFLib.AxAcroPDF


    dimanche 10 mars 2019 17:00
  • Bonjour,

    Merci pour votre aide, mais je n'obtient toujours rien !


    Cordialement SC

    lundi 11 mars 2019 10:01
  • Tu peux faire un test avec ATL

    Si ça ne marche pas non plus avec différents .pdf, il doit y avoir un problème au niveau de l'install d'Acrobat Reader et de l'OCX :

    Dans le Form1_Load :

    AtlAxWinInit()
    Dim hWndContainer As IntPtr = CreateWindowEx(0, "AtlAxWin", "e:\testpdf.pdf", &H50800000, 0, 0, 600, 800, Me.Handle, IntPtr.Zero, IntPtr.Zero, IntPtr.Zero)

    Declarations (dans la classe Form1) et ajouter au début du programme : Imports System.Runtime.InteropServices ):

        <DllImport("User32.dll", SetLastError:=True)>
        Public Shared Function CreateWindowEx(ByVal dwExStyle As Integer, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal hWndParent As IntPtr, ByVal hMenu As IntPtr, ByVal hInstance As IntPtr, ByVal lpParam As IntPtr) As IntPtr
        End Function
    
        <DllImport("Atl.dll", SetLastError:=True)>
        Public Shared Function AtlAxWinInit() As Boolean
        End Function



    lundi 11 mars 2019 10:51
  • Rebonjour,

    J'ai eut la réponse sur le forum  Codes Source

    https://codes-sources.commentcamarche.net/source/102695-extraire-texte-et-image-d-un-pdf

    En fait, il suffit que je retire l'import

    Imports AcroPDFLib
    Je ne vois pas le rapport, mais cela marche !

    Merci bien




    Cordialement SC

    lundi 11 mars 2019 11:06