Ocx, affichage en miniatures

Soyez le premier à donner votre avis sur cette source.

Vue 4 409 fois - Téléchargée 738 fois

Description

C'est un ptit OCX vite fait pour afficher des fichiers images en miniatures.
C'est tout con.

les proprietées persos sont:

.Tx = Largeur des vignettes
.Ty = Hauteur des vignettes
.Bx = Hauteur des bords en longueur
.By = Hauteur des bords en hauteur
.Pattern = type de fichier a afficher
.Path = chemin du repertoire a lister
.Nom_Texte = couleur du nom de limage
.Surligne = Couleur de la selection
.Vignette_Border = Couleur de la bordure de la vignette
.Vignette_Fond = Couleur du fond des vignettes

apres les proprietes et evenements par defaut sont aussi gérés (les 3/4)

Ce ki peut etre interressant c'est la creation d'OCX et le redimmensionnement dimage sans passer par les artifices du image1.stretch=true ;)

Bon les enervés, les critiques sont les bienvenues aussi inutiles soient elles :)
@++++++ Lumesh.

Source / Exemple :


ZIM = Zip In the Mix

Conclusion :


vignettes.vbp = projet du CTL
projet1.vbp = projet dexemple

Petite MAJ:

- ajout d'une fonction de refres ( .Refrsh ) pour reorganiser l'affichage des vignettes (par exemple enb cas de redimmensionnement du controle).
- recuperation du nombre de vignettes chargée

--------

En preparation:

- gestion de la molette de la souris pour un defilement plus sympa

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
mardi 19 avril 2005
Statut
Membre
Dernière intervention
12 octobre 2006

Good job men!!!!!!!
Messages postés
1
Date d'inscription
dimanche 17 mars 2002
Statut
Membre
Dernière intervention
3 août 2005

Interressant, mais le redimensionnement des images n'est pas correct, si l'image est trop "haute" elle déborde d'ou un aperçu d'ensemble un peu fouilli.
a rectifier
Messages postés
90
Date d'inscription
vendredi 23 juillet 2004
Statut
Membre
Dernière intervention
27 août 2006
1
en ajoutant la ligne on loca error resume next, j'arrive a ouvrir la form et le logiciel démate mais le problème, c'est que quand je change le répertoire et que je clique sur afficher, vb me colle :

Public Property Let Path(ByVal New_Path As String)
--> File1.Path() = New_Path
PropertyChanged "Path"
End Property

une belle erreur drète la ou se trouve la fleche (-->)


bizzare

a part ca, beau travail
Messages postés
1
Date d'inscription
mercredi 27 août 2003
Statut
Membre
Dernière intervention
2 février 2005

L'erreur ne viendrait t'elle pas uniquement si le path n'existe pas : genre "c:\windows" sur un PC win2000 où le répertorie par défaut de Windows est "c:\winnt" ???
Messages postés
564
Date d'inscription
jeudi 21 février 2002
Statut
Membre
Dernière intervention
7 novembre 2008

bon bah pour le File1.Path = PropBag.ReadProperty("Path", "") , il suffit de coller un :

on local error resume next

en debut de la sub. Ce n'est pas le pied mais le File1.Path merdois serieux et je n'arrive pas a savoir pourquoi !!!
Afficher les 11 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.