Load picture ? :(

Résolu
Signaler
Messages postés
6
Date d'inscription
vendredi 6 janvier 2006
Statut
Membre
Dernière intervention
14 février 2006
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour,

J'aimerai savoir comment charger une image sans indiquer le chemin d'acces précis et ainsi permettre a l'application d'etre utilisable sur n'importe quel poste.

Je m'explique, je charge mon image grace une instruction basique:
Image2.Picture = LoadPicture("K:\Projet\Images\pont_bas.bmp")
Si l'image se retrouve sur un autre disque que K: l'appli ne pourra pas la trouver et je serai donc coincé .
J'ai entendu dire qu'on pouvai charger des images grace à une autre méthode à condition que cette image soit pres du source. Help

Merci d'avance

7 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
salut

disons ton exe dans le dossier "K:\Projet"

et ton image .... là ou tu l'as indiqué.

il faut d'abord tester le chemin de l'exe. pour ce, utilise "App.Path"

là, tu vas avoir "K:\Projet", mais si l'exe est à la racine, tu auras "K:\
"

il faut donc d'abord uniformiser la syntaxe :



Dim sPath as String 'à déclarer en "générale" si réutilisée dans le module

sPath = App.Path

if RightB$(sPath,2)<>"" Then sPath = sPath & ""



tu n'as plus qu'à ajouter l'image (soit en variable, soit dans le LoadPicture)

Image2.Picture = LoadPicture(sPath & "Images\pont_bas.bmp")



PCPT [AFCK]
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 109 internautes nous ont dit merci ce mois-ci

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
App.Path renvoie le dossier ou se trouve l'executable

Image2.Picture = LoadPicture(App.Path & "\pont_bas.bmp")

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
MsgBox App.Path & "\Images\pont_bas.bmp"

Image2.Picture = LoadPicture(App.Path & "\Images\pont_bas.bmp")





App.Path retourne le chemin de ton exécutable. Si le répertoire Images se trouve avec ton exécutable : Bingo !




Manu
Messages postés
6
Date d'inscription
vendredi 6 janvier 2006
Statut
Membre
Dernière intervention
14 février 2006

Merci ca marche nikel :)
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
il est vrai qu'il est plus rigoureux de s'assurer de ne pas se retrouver avec
"K:\\a.bmp"

cependant, Windows comprend très bien ce chemin (au moins sous Xp)....

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
48
exact sous XP (testé à l'instant sous W98SE -> fichier introuvable).

je persiste et signe
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
Merci pour ce test, mon "au moins sous Xp" a trouvé sa réponse ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic