Zoom sur une image

Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
- - Dernière réponse :  Greg - 29 janv. 2016 à 22:23
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/55011-zoom-sur-une-image

Afficher la suite 
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