Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 04 22:31:02

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : COLLAGE SPéCIAL DANS EXCEL DEPUIS VB6 par lepico27

CREATION/SUPRESSION D'UN DOSSIER par orochy

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par mond14

COLLAGE SPéCIAL DANS EXCEL DEPUIS VB6 par lepico27

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

+ de logiciels à télécharger

1 464 433 membres
329 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 098 codes, 1 302 890 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

OCX, AFFICHAGE EN MINIATURES

Information sur la source

Catégorie :Control Niveau : Débutant Date de création : 29/05/2003 Date de mise à jour : 29/05/2003 09:33:34 Vu / téléchargé: 2 641 / 528

Auteur : lumesh

Site perso

Ecrire un message privé

Note :

9,00 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

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

ZIM = Zip In the Mix

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Form1.frm 4 167 octets
Projet1.vbp 657 octets
Projet1.vbw 104 octets
vignettes.ctl 30 243 octets
vignettes.ctx786 octets
vignettes.vbp 592 octets
vignettes.vbw 55 octets

Télécharger le zip

Sources du même auteur

OCX - APERÇU AVANT IMPRESSION

CLASSE: CONFIGURATIONS DE SON APPLICATION

AVI MICRO CAM .NET

STREAMING AUDIO ET VIDEO

TEXTE <--> BASE64

Toutes les sources de lumesh

Sources de la même categorie

LABEL ET IMAGE DANS TEXTBOX par gillardg

GRADIENTDIALOG - SÉLECTION DE DÉGRADÉS LINÉAIRES par Mayzz

EXLISTVIEW- LISTVIEW PERSONNALISÉ par Mayzz

VB6-INNO-WIZARD par cdbi

BOUTON SOUS PLUSIEURS FORME par noah56

Toutes les sources de la catégorie Control

Commentaires et avis

Commentaire de fpinchon le 30/05/2003 02:34:48

ca marche pô : erreur : "Pas d'obet user controle public detecte"

Commentaire de fpinchon le 30/05/2003 02:47:51

heu bon, c'est moi qui me suis plante, ca fonctionne.
en revanche, dans l'evenement du module Miniature :

Private Sub UserControl_ReadProperties(PropBag As PropertyBag)

je dois desactiver la ligne

File1.Path = PropBag.ReadProperty("Path", "")

sinon j'ai une erreur.

barvo pour cette source.
fredo

Commentaire de lumesh le 30/05/2003 04:00:22

ah .... bizare ......
etrange meme

Commentaire de SHIVA le 30/05/2003 11:00:34

Ca marche
mais il faut enlever le controle Miniature puis le remettre
Sinon le prog est bien

Commentaire de Fullnet Software le 28/01/2005 22:42:08

moi aussi je doit désactiver la ligne

File1.Path = PropBag.ReadProperty("Path", "")

bizzare

Commentaire de Fullnet Software le 28/01/2005 22:49:55

pis je narrive pas a arranger ce dramme fatidique svp, pourrais tu méclairer?

merci a lavance

Commentaire de lumesh le 29/01/2005 09:08:33

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 !!!

Commentaire de augerst le 02/02/2005 14:11:41

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" ???

Commentaire de Fullnet Software le 11/02/2005 23:20:15

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

Commentaire de patatrac le 03/08/2005 01:05:55

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