Zoom sur une image

Soyez le premier à donner votre avis sur cette source.

Vue 4 829 fois - Téléchargée 626 fois

Description

Je partage cette source car je l'ai faite à part pour l'un de mes projet et j'ai eu du mal à le faire.

Cette source permet de savoir avec précision ou se trouve le curseur sur une Picturebox via une autre Picturebox avec une croix qui indique la position du curseur.

A la base je souhaité en plus Zoomer l'image (d'où le titre) mais le zoom été de très mauvaise qualité. Ici la difficulté été de découper la bonne portion d'image pour que la 2eme Picturebox ai l'axe de la souris.

Source / Exemple :


' dans le zip

Conclusion :


Notez que si on dépasse les bord de la première Picturebox, on as une erreur du type "Mémoire insuffisante" d'où le recadrage de la croix.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Duke49
Messages postés
553
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2 -
Sympa
Excellent, merci Guillaume.
Tu étais très proche du zoom souhaité...

Pour un zoom x 3, il suffisait de modifier
tmpBMP = New Bitmap(PictureBox1.Image)
en
tmpBMP = New Bitmap(PictureBox1.Image,
PictureBox1.Width * 3,
PictureBox1.Height * 3)

ainsi que
Dim x As Int16 = (e.Location.X) - 105
Dim y As Int16 = (e.Location.Y) - 105
en
Dim x As Int16 = (e.Location.X) * 3 - 105
Dim y As Int16 = (e.Location.Y) * 3 - 105

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.