Load picture ? :(

Résolu
thomarod Messages postés 6 Date d'inscription vendredi 6 janvier 2006 Statut Membre Dernière intervention 14 février 2006 - 7 févr. 2006 à 14:46
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 7 févr. 2006 à 16:58
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

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
7 févr. 2006 à 15:05
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
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
7 févr. 2006 à 15:01
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
0
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
7 févr. 2006 à 15:03
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
0
thomarod Messages postés 6 Date d'inscription vendredi 6 janvier 2006 Statut Membre Dernière intervention 14 février 2006
7 févr. 2006 à 15:35
Merci ca marche nikel :)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
7 févr. 2006 à 15:35
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
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
7 févr. 2006 à 16:27
exact sous XP (testé à l'instant sous W98SE -> fichier introuvable).

je persiste et signe
0
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
7 févr. 2006 à 16:58
Merci pour ce test, mon "au moins sous Xp" a trouvé sa réponse ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic
0
Rejoignez-nous