EXPLORATEUR DE FICHIERS IMAGES

Commentaire de Exploreur le 22/04/2007 17:19:37

Salut Chaibat05,

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

A+
Exploreur

Commentaire de Exploreur le 22/04/2007 21:50:52

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

Commentaire de mortalino le 22/04/2007 23:23:27

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

Commentaire de mortalino le 23/04/2007 00:20: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