Zoom sur une image

Signaler
Messages postés
158
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
25 juillet 2018
-
 Greg -
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

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
Duke49
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
2
Sympa