Zoom sur une image
Guillamue06
Messages postés
157
Date d'inscription
dimanche 18 avril 2004
Statut
Membre
Dernière intervention
11 juillet 2022
-
22 déc. 2014 à 04:26
Greg - 29 janv. 2016 à 22:23
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
https://codes-sources.commentcamarche.net/source/55011-zoom-sur-une-image
29 janv. 2016 à 22:23
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
22 déc. 2014 à 04:26