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

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 08 02:30:21

3 ARTICLES SUR SQL SERVER (DATA STRUCTURES, SCANS AND SEEKS, DATA ACCESS STRATEGIES) par RaptorXP

MAIS QUE PEUT BIEN FAIRE UN MVP QUAND IL NE CODE PAS ??? par sebmafate

POWERSHELL : COMMENT EXéCUTER UN SCRIPT PS DEPUIS UNE FENêTRE MS DOS OU SCHEDULED TASK par ROMELARD Fabrice

EDM DESIGNER par Matthieu MEZIL

SMALL BASIC - UN PROJET INTéRESSANT par pierrick

REMPLIR DATAGRID EN 2 TABLE VB.NET par tdi2a

RE : COLLECTION par skyla

RE : POURQUOI ISEMPTY(VBEMPTY) RENVOI FALSE ??? par PCPT

RE : VALEUR ALEATOIRE par Pye18nov84

RE : COLLECTION par PHENIX2005

+ de logiciels à télécharger

1 329 701 membres
47 nouveaux aujourd'hui
14 640 membres club

Trouver une ressource

Trouvez une ressource parmi 39 269 codes, 1 222 792 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 528 / 502

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

MM CHECKBOX 2008 par m_simohamed

DOTNET EXPANDPANEL par Mayzz

PLEASE WAIT...(USERCONTROL) par Exploreur

ENTIREROWS LISTBOX TEXTBOX ORIGINAL par candyraton

DIGITAL HORLOGE (CONTRÔLE UTILISATEUR) par Exploreur

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