begin process at 2012 02 13 18:00:05
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Control

 > OCX, AFFICHAGE EN MINIATURES

OCX, AFFICHAGE EN MINIATURES


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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é :3 264 / 616
Auteur : lumesh

Ecrire un message privé
Site perso
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

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture OCX - APERÇU AVANT IMPRESSION
Source .NET (Dotnet) CLASSE: CONFIGURATIONS DE SON APPLICATION
Source avec Zip Source avec une capture Source .NET (Dotnet) AVI MICRO CAM .NET
Source avec Zip Source avec une capture Source .NET (Dotnet) STREAMING AUDIO ET VIDEO
Source .NET (Dotnet) TEXTE <--> BASE64
Toutes les sources de lumesh

 Sources de la même categorie

Source avec Zip COMMUNICATION MODBUS MASTER par sergelapointe
Source avec Zip Source avec une capture DÉPLACEMENT AVEC FLÈCHES DANS UN PAVÉ DE TEXTBOX 9X9 DYNAMIQ... par EhJoe
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLSTARS EN RÉPONSE À JAKNIGHT007 par bigboss9
Source avec Zip Source avec une capture Source .NET (Dotnet) CALENDRIER ANNUEL NORME ISO par Prog1001
Source avec Zip Source avec une capture Source .NET (Dotnet) CONTROLE STARS par jaknight007
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

Commentaire de rrr_zidane_8 le 12/10/2006 23:08:50

Good job men!!!!!!!

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (32 Go)
Entre 1290€ et 1333€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Monument Valley Utah known as The Mittens
Photo Single Large Rock Formation in Monument Valley 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 6,895 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)