Discussion :

[abcdefghijklm]

Bonjour,

J'ai écrit un code en VB6 pour insérer une image dans une picturebox mais lorsque je l'exécute, la picturebox s'ouvre sans l'image. Peut-être que j'indique mal le chemin d'accès au fichier. Pouvez-vous m'aider svp ?
Voici mon code (j'ai écrit ce code dans un module):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Command1_Click()
 
Dim chemin As String
 
chemin = App.Path
If Right(chemin, 1) <> "\" Then
chemin = chemin & "NOM DE MON CHEMIN : C:\\Users\Mes documents"
End If
chemin = chemin & "NOM DE L'IMAGE : image"
Picture1.Picture = LoadPicture(chemin)
 
End Sub

Merci d'avance

[OhMonBato]

Peut-être que j'indique mal le chemin d'accès au fichier.

Bonjour,

peut être effectivement...
Je n'ai absolument pas compris où se trouve ton image, si c'est dans le répertoire de ton application ou dans "Mes documents".

Si c'est dans le répertoire de ton application et qu'on prend comme exemple que ton image s'appelle "MonImage.jpg" il suffit d'écrire :

Code :

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

1
2
 
chemin = App.Path & "\MonImage.jpg"

Si c'est dans le répertoire "Mes Documents" et qu'on prend comme exemple que ton image s'appelle "MonImage.jpg" il suffit d'écrire :

Code :

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

chemin = "C:\Users\Mes documents\MonImage.jpg"

[abcdefghijklm]

Bonjour et merci pour ta réponse OhMonBato.

En fait, mon application se trouverait dans Mes Documents.
J'ai donc essayé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
 
Dim chemin As String
 
chemin = "C:\Users\Mes documents\MonImage.jpg"
Picture1.Picture = LoadPicture(chemin)
 
End Sub

mais ça ne marche toujours pas.
Dans l'idéal j'aurais aimé faire une sorte d'explorateur de fichiers avec VBA d'où le reste du code, mais je ne vois pas où ça coince.

[SfJ5Rpw8]

Code :

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

1
2
 
chemin = "C:\Users\Mes documents\MonImage.jpg"

Tu est sur que ce répertoire existe ? ne manque-t'il pas ton nom (login..) quelque part ?

mais ça ne marche toujours pas.

Tu entends quoi par la ?( c'est comme les petits bateaux .. ton code il n'as pas de jambe) ..
[ame="http://www.youtube.com/watch?v=CZgQj2lFirs&feature=player_embedded"]YouTube - Maman les petits bateaux[/ame]

Dans l'idéal j'aurais aimé faire une sorte d'explorateur de fichiers.

Je comprends pas .. ton but ce n'est pas d'afficher une image , d'ailleurs il est ou ton contrôle picture ?

avec VBA d'où le reste du code, .

VBA ? ou VB6 ?


[Edit] Bon désolé pour ce message mais c'est dimanche on travaille pas ...