Ouverture de page pdf et fermeture

Question

bonjour,
j'utilise le pdf.ocx de Adobe pour ouvrir un fichier pdf dans une form
je n'est pas de probleme pour ouvrir,avanc&#233; de page,reculer ou aller au debut ou a la fin.

mon probleme est que j'ai fait un combo box pour choisir la page a ouvrir de mon pdf.......disons les chapitres.

il ouvre la premiere fois .........mais aussitot que je veux chang&#233; de chapitre une deuxieme fois il gele et on dirais qu'il ouvre un double ou je ne sais quoi ?

je sais quoi faire au juste ........fermer la form et l'ouvrir de nouveau.....ou ce qui serais le fun est de savoir si il est deja ouvert........mais comment le savoir ?........ou je sais pas quoi ??

voici mon code :
Public Function OuvrirPDF(numpage As Integer)        
    'd&#233;claration de la variable
    Dim unChemin As String


    'chemin et nom du fichier pdf
    unChemin = App.Path & "\MonPdf.pdf"


    'chargement du fichier pdf
    Pdf1.LoadFile (unChemin)


    'donne la page que l'on veut afficher avec numpage
    Pdf1.setCurrentPage (numpage)
    Pdf1.setZoom (85)    
End Function

Private Sub Command1_Click()
numpage = Combo1.Text


    Select Case numpage
    Case "Avant-Propos"
        OuvrirPDF (7)
    Case "Commencer le cours de Tarot"
        OuvrirPDF (11)
    Case "La divination"
        OuvrirPDF (14)
    Case "Le tarot et son histoire"
        OuvrirPDF (16)
    Case "La kabbale"
        OuvrirPDF (23)
    Case Default
        MsgBox numpage
    End Select
End Sub

pouvez vous me donner une piste pour que je puisse continuer svp ?

nirega

crenaud76 · Answer

Je ne connais pas cet OCX mais je ne pense pas que tu es besoin de repasser par un LoadFile( ...) pour simplement changer de page. Un .SetCurrentpage devrait suffire non ? Essaye de remplacer ton Select Case par ...

   Select Case numpage
    Case "Avant-Propos"
         Pdf1.setCurrentPage (7)
    Case "Commencer le cours de Tarot"
         Pdf1.setCurrentPage (11)
    Case "La divination"
        Pdf1.setCurrentPage (14)
    Case "Le tarot et son histoire"
        Pdf1.setCurrentPage (16)
    Case "La kabbale"
        Pdf1.setCurrentPage (23)
    Case Default
        MsgBox numpage
    End Select

&#160;Christophe R

cs_nirega · Answer

ok je me suis fait un bouton de plus que j'ai mit le select case avec le setCurrentPage dedans et sa fonctionne

merci

nirega

Ouverture de page pdf et fermeture

2 réponses

Discussions similaires