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

Soyez le premier à donner votre avis sur cette source.

Vue 4 932 fois - Téléchargée 583 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

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 !
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
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
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
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.
Afficher les 14 commentaires

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.