IMVIEW ___V2.0.8 .... LE FINAL ...
cs_Pekinio
Messages postés
161
Date d'inscription
mercredi 11 avril 2001
Statut
Membre
Dernière intervention
10 mars 2002
-
21 mars 2002 à 00:05
lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008 - 6 avril 2002 à 23:06
lumesh Messages postés 564 Date d'inscription jeudi 21 février 2002 Statut Membre Dernière intervention 7 novembre 2008 - 6 avril 2002 à 23:06
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6009-imview-v2-0-8-le-final
https://codes-sources.commentcamarche.net/source/6009-imview-v2-0-8-le-final
6 avril 2002 à 23:06
la moindre erreur provoque un plantage ou une popup windows !
30 mars 2002 à 14:39
LoadPicture(Replace(...,"","")
Schouly
30 mars 2002 à 11:45
30 mars 2002 à 09:28
supprime le premier mess stp car g fé une fote ds le code !
encore desole
30 mars 2002 à 09:27
en fait c kan tu cherche d image a la racine d1 lecteur !!!
jexplike:
toi tu met: Pic(i).Picture = LoadPicture(Dir1.Path & "" & File1.List(i))
mais le pb viens de: Dir1.Path & ""
en fait qd le dir1.path est a la racine, il ya deja 1 "" apres les ":" donc avc dir1.path & "" qd t a la racine tu rajoute 1 "" !!!!!
ca fé donc (exemple): "C:\image.gif" et c lé "" ki plante !!!!!!!!!!!!!
moi je te propose de faire:
Dim tmpslash as String
tmpslash=dir1.path
if mid$(tmpslash,len(tmpslash),1)<>"" then tmpslash=tmpslash & ""
Pic(i).Picture = LoadPicture(tmpslash & File1.List(i))
en fait cela permet de rajouter 1 "" ke qd ya besien !
avc ca ca marche impec !
allez @+ (o;þ
Lumesh.
30 mars 2002 à 09:27
en fait c kan tu cherche d image a la racine d1 lecteur !!!
jexplike:
toi tu met: Pic(i).Picture = LoadPicture(Dir1.Path & "" & File1.List(i))
mais le pb viens de: Dir1.Path & ""
en fait qd le dir1.path est a la racine, il ya deja 1 "" apres les ":" donc avc dir1.path & "" qd t a la racine tu rajoute 1 "" !!!!!
ca fé donc (exemple): "C:\image.gif" et c lé "" ki plante !!!!!!!!!!!!!
moi je te propose de faire:
Dim tmpslash as String
tmpslash=dir1.path
if mid$(tmpslash,len(tmpslash),1)<>"" then tmpslash=tmpslash & ""
Pic(i).Picture = LoadPicture(Dir1.Path & "" & File1.List(i))
en fait cela permet de rajouter 1 "" ke qd ya besien !
avc ca ca marche impec !
allez @+ (o;þ
Lumesh.
30 mars 2002 à 09:18
le bug ke g avc ton appli se trouve ds un module !
le kel je c pas mais je vé chercher pr te le dire.
@+
26 mars 2002 à 22:21
pour les 300Mo d'images ... je sais pas faire grand chose ... je crois que tout le monde qui veut faire un affichage en miniature aura le même problème ...
A+
Schouly
26 mars 2002 à 18:05
Les icones en bas du visionneur de Windows, tu les lui a prises ou tu utilise le même control ?
La pb, c'est l'affichage en miniatures : sur beaucoup de gros fichiers, chez moi ça plante : avec 300Mo de JPG à afficher, il a beaucoup de mal ....
Enfin, bonne chance ...
24 mars 2002 à 16:57
J'utilise simplement des picturebox, image et c'est tout ... et je charge le tout avec loadpicture ... on sais pas faire plus simple ...
24 mars 2002 à 15:30
en tout cas sur win 95 ca deconne.
menfin bob c pas grave car ya pu bcp de monde ki a win 95 !!
sauf moi !!!
merci pr ta rep. (o;þ
24 mars 2002 à 11:22
o chargement d vignettes !
je voulais te prevenir.
sinon sympa ta toolbar (o;þ
23 mars 2002 à 16:32
21 mars 2002 à 00:05