Imview ___v2.0.8 .... le final ...

Soyez le premier à donner votre avis sur cette source.

Vue 4 867 fois - Téléchargée 469 fois

Description

Voilà ...

Je n'ai pas eu le temps de le perfectionner à fond ... ni d'implémenter l'impression ... (G plus d'imprimante ... donc je sais pas tester ...)

Les fonctions demandées ont été implémentée ...

Le prog tourne parfaitement sous XP mais pas sur 95 et NT (pas accès au menu options ... plus problème d'extension).

Le programme restore les anciennes associations d'extensions lors d'un éventuel besoin ... Attention, ne pas le faire manuellement, il riquerai de se perdre ...

Schouly

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
c vrai ke les utilisateur de win XP n'ont besoin de bcp moins verif leur erreur car bcp de celle ci passe car le system les corrige auto mais pr cx ki kom moi tourne ss win 9x cela est different !
la moindre erreur provoque un plantage ou une popup windows !
Schouly
Messages postés
45
Date d'inscription
dimanche 21 janvier 2001
Statut
Membre
Dernière intervention
6 octobre 2006
-
Eh bien lumesh ... un grand merci ... j'ai complètement oublé de tester ça sous win95 .... en effet sous XP ça fonctionne .... je vais ajouter :

LoadPicture(Replace(...,"","")

Schouly
cs_mic
Messages postés
77
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
19 septembre 2012
-
Très bien et bonne chance
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
xcuze !
supprime le premier mess stp car g fé une fote ds le code !
encore desole
lumesh
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008
-
CA YEST G TROUVE !!!!!!!!!
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.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.