EXPLORATEUR DE FICHIERS IMAGES

cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 22 avril 2007 à 17:19
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 - 23 avril 2007 à 07:46
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/42406-explorateur-de-fichiers-images

cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
23 avril 2007 à 07:46
Salut Chaibat05,

C'est pour cela que j'ai bien dit, que pour le remarques techniques(s'il y en a) je laisse cela aux personnes confirmés...En ce qui me concerne je maintient toujours mon 10/10...

A+
Exploreur
chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 2
23 avril 2007 à 00:28
On est quit alors ?!
Mais attend quand même de savoir si ça te convient.
Car l' objet Ole s' éxécutera en dehors de ton UC .
st dans son propre form...
Si ça ne pose pas problème, tant mieux...

Bon courage pour ton Calendrier (et pas de photo, hein:-)

A++
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
23 avril 2007 à 00:20
ARRRRRRRRRRRGGGGGGGGGGGGG !

Mais oui, pourquoi chercher compliqué quand la solution est proche.
Merci infiniment, je verrai ça quand j'ai un moment (là je fait un UserControl "Calendrier"). Je n'y avait mais alors, pas pensé du tout ;)

Pour ton code, tu pourrais du coup aussi faire une prévi vidéo, non ?
En tout cas, je te remercie encore pour l'info :D
Bonne soirée et @ bientôt ;)
Mortalino
chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 2
23 avril 2007 à 00:11
Tu vois Exploreur ...rien n' est jamais parfait !
Bonsoir mortalino, et merci pour les annotations ...
Tout est à prendre en considération...
Pour ce qui n'est pas utilisé dans le code, en fait c' est résidu de ce qui a été
testé initialement .Car au départ la source a été un "atelier" ou je manipulais
pas mal de choses qui étaient nouvelles pour moi à l' époque.
Je comptais m' en servir de nouveau, mais t' as raison, il faut virer tout ce qui
est inutil...(declarations et autres)
En tout cas j' ai eu ce que je voulais: un bon comment...

Bon , pour te récompenser, je te met sur la voie au sujet de la vidéo pour ta source.
As-tu testé un OLE ?

Allez , reposes-toi bien et à bientôt.
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
22 avril 2007 à 23:23
Hello Chaibat05 ;)

Bon chose promise, chose dût, je viens de regarder ton dev.
On commence par quoi ? Allez, par les bonnes choses ;p

Code très bien structuré, sur le code en général, rien à dire, et je comprends ce que tu me disais sur le menu "copier, coller, nouveau dossier", c'est pas mal du tout.
(bien que je ne l'emploirai pas pour mon UC, car c'est un commondialog) mais pour toi, étant donnée que c'est un Explorateur, c'est judicieux de l'avoir mis.

Les mauvaises choses :$ (m'en veut pas trop :$ )

Form fExplorer, ligne 80 :
jif à rempalcer par gif

Form fExplorer, ligne 82 :
File1.Pattern = Mid(Combo1.Text, 1, 5)
--> si on choisi *.jpeg, manquera le "g"

Form fExplorer, ligne 144 & 145:
Dim xHeight As Variant
Dim xWidth As Variant
--> Variant à remplacer par single (Height et Width sont de ce type)

Module, ligne 32 & 41 :
Public Function TwipsToPixelX(Twips) As Integer
--> Twips est variant, tu lui passes une valeur Height ou Width, qui est de type Single
autant le mettre en Single, 12 octets de gagné ;)

Form fExplorer, ligne 242 :
Private Sub Form_Load()
If App.PrevInstance Then
End
Exit Sub
End If
--> Pas sûr mais j'ai déjà lu que End ne terminait pas bien l'application,
peut-être le remplacer par If App.PrevInstance Then Unload Me

Form fExplorer, ligne 272 :
Private Sub Form_Unload(Cancel As Integer)
End
End Sub
--> Inutile


Après voici ce qui n'est pas utilisé dans ton dev :
** Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
(ByVal lpFileName As String) As Long
** Private SaveDir As String
** Private Function ShortPathName(iPath As String) As String
** Private Sub Interprete(xmc)
** Dim X As Long --> dans Private Sub mnuSupprimerItem_Click()

Voilà pour le commentaire :D
Je te met bien volontier 9 ;)

@ bientôt,
mortalino
chaibat05 Messages postés 1883 Date d'inscription samedi 1 avril 2006 Statut Membre Dernière intervention 20 novembre 2007 2
22 avril 2007 à 22:20
Bonsoir Exploreur,
Merci pour le comment...
ça fait toujours plaisir quoique 10/10 c' est un peu trop.
En prog c' est comme en gymnastique, on atteint jamais la perfection.
A moins d' être Nadia Comeneti ...:-)

Mais merci tout de même pour ta gentillesse ...
A++
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
22 avril 2007 à 21:50
Salut Chaibat05,

Et bien une source qui pour moi a été compréhensible....!

Sinon, pour ma part je n'ai pas de remarque précise à faire, le code est bien indempté, c'est clair, c'est propre, c'est très bien quoi....Pour le novice comme moi, cela sera pas trop difficle de comprendre...

Pour les remarques techniques(s'il y en a), je laisse cela pour les confirmés.

10/10

A+
Exploreur
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 18
22 avril 2007 à 18:03
Salut Chaibat05,

pareil qu'Exploreur, je jette un oeil ce soir promis (là je suis au taf).
Je te dirai quoi ensuite ;)

++
cs_Exploreur Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
22 avril 2007 à 17:19
Salut Chaibat05,

Améliorer..oui...avec des requêtes...lol..Non je déconne, je regarderai ce soir ta source...

A+
Exploreur