Une image toujours a la bonne taille

Soyez le premier à donner votre avis sur cette source.

Vue 9 661 fois - Téléchargée 1 123 fois


Description

Ce controle ajuste automatiquement l'image qu'il contient en fonction de sa propre taille, afin de toujours l'afficher en entier et de façon proportionnée.

Si l'image doit être réduite on cherche le coef de reduction qui permet de faire tenir l'image dans le cadre.
Par contre, l'image ne sera pas agrandie si le cadre est trop grand.

Il permet également, lorsque la propriété 'Zoom' est activée, d'agrandir l'image avec un clic gauche.
De plus lorsque l'image est agrandie, le maintien du clic droit permet de se deplacer sur l'image.

Possibilité de changé la taille de la bordure et sa couleur.

Attention : Le but n'est pas de pouvoir redimensionner le controle en temps reel comme dans le projet exemple, mais plûtot une seule fois lors du chargement de la feuille.
En effet, vous constaterez un effet de clignotement en cas de redimensionnement en temps reel.

Conclusion :


ATTENTION : Il y a un petit bug que je n'arrive pas à résoudre. Lorsque l'on clic sur l'image pour l'agrandir ou la retrecir, le curseur ne se met pas à jour automatiquement. Il faut deplacer la souris pour qu'il soit actualisé.
Si quelqu'un a une solution, je suis preneur.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4
Date d'inscription
mercredi 24 juillet 2002
Statut
Membre
Dernière intervention
28 septembre 2011

Magnifique.... je vais gagner un temps fou
et en plus je peux virer la loupe , beau travail
Merci
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Re,
Merci de l'information...
Bonne prog
A+
Exploreur
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Non cela ne fonctionne plus ainsi depuis la MAJ. Empresse-toi de jetter à la corbeille l'ancien code ^^

C'est BEAUCOUP mieux désormais. Je ne savais pas gérer les propriétés Picture avant donc je stockais le chemin de l'image dans un String...

Maintenant je stocke l'image elle même dans une propriété de type As Picture (comme le fait une vrai PictureBox).

Tu dois donc faire :
Set PicBox1.Picture = LoadPicture("c:\blabla...")
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
14
Salut Bouv,
Petite question : Quand j'utilise le picbox1.picture ="C:\blabla...", il me dit : Utilisation de la propriété incorrect, alors que dans ton code test cela fonctionne!!
Je ne vois pas!!!
A+
Exploreur
Messages postés
1411
Date d'inscription
mercredi 6 août 2003
Statut
Membre
Dernière intervention
3 mars 2019
1
Content que cela te plaise
++
Afficher les 17 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.