Explorateur de fichiers images

Soyez le premier à donner votre avis sur cette source.

Vue 6 002 fois - Téléchargée 987 fois

Description

Objet de la source: Explorateur pour fichiers images
avec possibilité d' aperçu en plein écran.Elle est aussi pourvue de quelques fonctionnalités Windows.

C' est l' une de mes premières sources.
Peut être que d' autres pourront
s' en servir.
Pour les commentaires , j' ai ajouter quelques lignes
Je crois que ça devrait suffir.
J' attenderais de voir si elle en vaut la peine d' être améliorée.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
13
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
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
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++
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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
Messages postés
1883
Date d'inscription
samedi 1 avril 2006
Statut
Membre
Dernière intervention
20 novembre 2007
2
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.
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
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

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.