Discussion :

[gyver4000]

Salut

Voila j utilise le code suivant qui marche bien qd on met le chemin complet du fichier. (SelectedFile = NOM du Fichier avec chemin complet)

Code :

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

1
2
3
4
5
SelectedFile = File1.Path & "\" & File1.FileName
AcroPDF1.Visible = False
AcroPDF1.LoadFile SelectedFile
AcroPDF1.Visible = True
AcroPDF1.setShowToolbar (False)

Mais mon but est que le AcroPDf affiche le fichier selectionné dans une FilelistBox composé de la facon suivante :

Code :

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

(SelectedFile = File1.Path & "\" & File1.FileName)

si je place ce code dans form avec un chemin tout fait ca marche

mais avec un chemin composé

Code :

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

(SelectedFile = File1.Path & "\" & File1.FileName)

ca ne marche pas


Mon but est que le AcroPDf affiche le fichier selectionné dans une FilelistBox composé de la facon suivante

Code :

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

(SelectedFile = File1.Path & "\" & File1.FileName)

Comment faire pour le AcroPDF affiche le Fichier Sélectionné ?

Merci d 'avance


++

[Delbeke]

Normalement ca devrait marcher, Quand Vb appelle une fonction, il posse les paremètre sur la pile puis exécute la fonction. La fonction depile ensuite pour trouver ses parametres.
Donc pour la fonction appelée peu importe la façon dont les parametres ont été poussés sur la pile.

Je ne vois que la possibilité d'un probleme de type de variable. Vérifie que la variable SelectedFile est bien déclarée comme string.
Ensuite fait une debug.print SelectedFile pour verifier que ton nom de fichier est bien celui que attends.

[gyver4000]

salut


Merci D'avoir Repondu


Je suis sur de ma Variable SelectedFile mais on dirais qu'il n y a pas de mise a jour de donnée.

J'ai rajouté un TextBox dont le Text est = aSelectedFile et paraeil qd je clic sur un fichier le TextBox ne se met pas a jour.

Par contre dans un bouton oui

Je te Joins le code Complet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Command1_Click()
 
Dim SelectedFile As String
SelectedFile = File1.Path & "\" & File1.FileName
Text1.Text = SelectedFile
 
End Sub
 
Private Sub Dir1_Change()
 
 File1.Path = Dir1.Path
 
End Sub
 
Private Sub Drive1_Change()
 
  Dir1.Path = Drive1.Drive
 
End Sub
 
Private Sub Form_Load()
 
Drive1.Drive = "D:"
Dir1.Path = "D:\scanner"
 
Dim SelectedFile As String
SelectedFile = File1.Path & "\" & File1.FileName
AcroPDF1.Visible = False
AcroPDF1.LoadFile SelectedFile
AcroPDF1.Visible = True
AcroPDF1.setShowToolbar (False)
 
End Sub
 
Private Sub Text1_Change()
 
Dim SelectedFile As String
SelectedFile = File1.Path & "\" & File1.FileName
Text1.Text = SelectedFile
 
End Sub

Voila

Merci encore

Je ne Vois Vraiment pas ??


++ et bonne journée

[Delbeke]

Ok, je comprend mieux, ce n'est pas un problème de passage de parametre, mais un probléme d'uilisation du trio de composants drive / dir / file

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Drive1_Change()
   Dir1.Path = Drive1.Drive   ' Définit le chemin d'accès du répertoire.
End Sub
Private Sub Dir1_Change()
   File1.Path = Dir1.Path   ' Définit le chemin d'accès du fichier.
End Sub
Private Sub File1_Click()
 Debug.Print Dir1.Path & "\" & File1.FileName
 Dim SelectedFile As String
 SelectedFile = File1.Path & "\" & File1.FileName
 AcroPDF1.Visible = False
 AcroPDF1.LoadFile SelectedFile
 AcroPDF1.Visible = True
 AcroPDF1.setShowToolbar (False)
End Sub

[gyver4000]

Salut Delbeke


Alors là Trop Fort,


Ca marche au poil.
Je te remercie pour ta soluce.

J'ai Commencé le VB6 depuis peu, l'autoformation n'est pas toujours facile
mais avec des aides comme ca, je pense que ca ira tres bien.

Grace a toi j'ai tout ce qui faut pour finir mon petit projet.

Merci encore

et @+