Discussion :

[Mdevaux76]

Bonsoir,

Pour mes études je tente de créer un programme (Sur support amovible - Clé USB) contenant tous mes cours. Un programme simple avec matières séparées sur différentes Form puis avec différents LinkLabel. Ces linkLabel sont reliés à une Form appelée "Visionneuse PDF" avec un webBrowser intégré. Mon problème est du au format USB.
C'est à dire.. Si je change de PC, La lettre du lecteur change. J'ai tenté un autorun.inf avec un Batch changeant la lettre automatiquement (Devenant T) à l'insertion de la clé USB mais depuis Windows 7 l'autorun ne fonctionne plus sur les supports amovibles. Donc au lieu de mettre un chemin complet comme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim path As String = "file:///T:/Logistique/Concept%20Logistique.pdf"
        'WebBrowser1.Url = New Uri(path)
        Form3.Show()
        Form3.WebBrowser1.Navigate(path)

===> J'ai donc essayé de passer par Application.StartupPath afin de me relier directement à la racine de mon projet (enfin mon EXE) en ecrivant ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim path As String = Application.StartupPath & "\Concept%20Logistique.pdf"
        'WebBrowser1.Url = New Uri(path)
        Form3.Show()
        Form3.WebBrowser1.Navigate(path)

J'ai au préalable copier mon PDF dans le repertoire DEBUG. J'ai tenté aussi à la racine de mon fichier EXE.
Mais malheureusement le webBrowser me dit :

"Cette page ne peut pas s’afficher
Vérifiez que l’adresse Web est correcte.
Recherchez la page avec votre moteur de recherche.
Actualisez la page dans quelques minutes."

C'est pourquoi après quelques heures de recherche sur ce site et sur d'autres que je me permets de faire appel à vous. Si vous avez besoin d'informations supplémentaires je me tiens à votre disposition. Merci pour votre aide.

PS : Je suis sur Visual Studio Pro 2012

Mikael

[mactwist69]

Bonjour,

Debugage de base : Tu mets un point d'arrêt sur ta ligne qui construit le Path...
Tu utilises un espion, ou tu passes la souris sur ta variable... Tu récupère donc le chemin complet du fichier...

Et tu vérifies si le fichier est bien au bon chemin...

Si il existe bien, c'est donc un problème entre le WebBrowser et le pdf...

[wallace1]

Bonjour,

Tu n'ouvriras pas un fichier pdf ainsi avec le contrôle Webbrowser mais une 1ère étape consisterait à modifier cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.StartupPath & "\Concept%20Logistique.pdf"

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.StartupPath & "\Concept Logistique.pdf"

A+

[Mdevaux76]

Bonjour,

Merci à vous deux pour cette aide précieuse ! Tout fonctionne à merveille ! J'ai enlevé le %20 (Je rentrai l'adresse donnée dans le navigateur)

Problème résolu !

Suite à cette évolution, je me permets une deuxième question : J'ai du coup créé un répertoire Logistique dans le dossier Debug, racine de mon executable. Est ce que celui-ci ne vas pas allourdir mon EXE ? ou sera t'il à part dans son repertoire ? Sinon puis-je le mettre dans My.ressources ou autre part ?
Voici du coup le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Dim path As String = Application.StartupPath()
        'WebBrowser1.Url = New Uri(path)
        Form3.Show()
        Form3.WebBrowser1.Navigate(Application.StartupPath & "\Logistique\Concept Logistique.pdf")

Bonne journée et merci !

Mikael