EXPLORATEUR DE FICHIERS IMAGES

cs_Exploreur
Messages postés
4822
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
4822
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
4822
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
Afficher les 9 commentaires