Zoom sur coordonnées de la souris dans picutre boxRésolu

Question

Je cherche à faire un zoom  sur les coordonnées de ma souris (après un clique sur la picutrebox), pour le moment j'utilise ce code qui me permet juste de centré mon image mais pas de zoomé sur mes coordonnées
Rq : Ma pictureBox sur situe dans un panel
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Zoom        
        PictureBox1.Width = PictureBox1.Width * 1.2
        PictureBox1.Height = PictureBox1.Height * 1.2
        'Repositionnement de l'image par rapport au panel        
        PictureBox1.Left = (Panel1.Width - PictureBox1.Width) / 2
        PictureBox1.Top = (Panel1.Height - PictureBox1.Height) / 2
    End Sub

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Width = PictureBox1.Width / 1.2
        PictureBox1.Height = PictureBox1.Height / 1.2
        PictureBox1.Left = (Panel1.Width - PictureBox1.Width) / 2
        PictureBox1.Top = (Panel1.Height - PictureBox1.Height) / 2
    End Sub

Ma souris me renvoi ces coordonnées sous deux variables x1 et y1
J'ai faguement l'impression qu'il s'agit plus d'un problème de maths que de programmation 
Médéric
Ergonome Logiel
(VB.NET-Débutant)

cs_antho2005 · Accepted Answer

De rien et désolé pour les espaces ... apparemment le forum a des petits problèmes quand c'est en bleu ou je sais pas trop pourquoi 
par contre je pense que c'est plutôt
PositionDepart.X = LImage.Width / 2 - Coordonees.X * 2
PositionDepart.Y = LImage.Height / 2 - Coordonees.Y * 2
au lieu de

PositionDepart.X = LImage.Width / Facteur - Coordonees.X * Facteur
PositionDepart.Y = LImage.Height / Facteur - Coordonees.Y * Facteur
C'était un test que j'avais fait ...
En fait je sais pas trop 

Antho25

cs_antho2005 · Answer

Salut,
Si tu veux juste adapter l'image à la taille de la PictureBox, il suffit de faire comme tu fait et de mettre la propriété SizeMode à Stretch.

Si par contre tu veux que l'image soit zoomée dans son conteneur, je suis en train de te faire un code, je te le poste dès que j'ai fini ...

Antho25

podolis · Answer

Merci à toi antho2005

Médéric
Ergonome Logiel
(VB.NET-Débutant)

cs_antho2005 · Answer

Bon, voilà sauf que ça descent un peu au bout de quelques zoom:

   Dim ZoomActu 
As
Double = 1

   Dim factor 
As
Double = 1.2

   Dim LeDepart 
As
New Point(0, 0)
   
Private
Function ZoomerImage(
ByVal LaPictureBox 
As PictureBox, 
ByVal Coordonees 
As Point, 
ByVal Facteur 
As
Double) 
As Point

      Dim LImage 
As Image = LaPictureBox.Image

      Dim NewImage 
As Graphics = LaPictureBox.CreateGraphics

      Dim NouvelleTaille 
As Size

      Dim EcartTaille 
As Size

      Dim PositionDepart 
As Point
      NewImage.Clear(LaPictureBox.BackColor)
      NouvelleTaille.Width = LImage.Width * Facteur
      NouvelleTaille.Height = LImage.Height * Facteur
      EcartTaille.Width = NouvelleTaille.Width - LImage.Width
      EcartTaille.Height = NouvelleTaille.Height - LImage.Height

      If Facteur < 1 
Then
         PositionDepart.X = EcartTaille.Width / 2 * -1
         PositionDepart.Y = EcartTaille.Height / 2 * -1

      Else
         PositionDepart.X = LImage.Width / Facteur - Coordonees.X * Facteur
         PositionDepart.Y = LImage.Height / Facteur - Coordonees.Y * Facteur

         If PositionDepart.X > 0 
Then PositionDepart.X = 0

         If PositionDepart.Y > 0 
Then PositionDepart.Y = 0

      End
If
      NewImage.DrawImage(LImage, PositionDepart.X, PositionDepart.Y, NouvelleTaille.Width, NouvelleTaille.Height)

      Return PositionDepart
   
End
Function
   Private
Sub PicConteneuse_MouseUp(
ByVal sender 
As
Object, 
ByVal e 
As System.Windows.Forms.MouseEventArgs) 
Handles
      PicConteneuse.MouseUp

      If Zoomer.Checked 
Then
         ZoomActu *= factor

      Else
         ZoomActu /= factor

      End
If
      LeDepart = ZoomerImage(PicConteneuse, 
New Point(e.Location.X - LeDepart.X, e.Location.Y - LeDepart.Y), ZoomActu)

   End
Sub
   Private
Sub TailleDorigine_Click(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles TailleDorigine.Click
         ZoomActu = 1
         LeDepart = ZoomerImage(PicConteneuse, 
New Point(0, 0), 1)

   End
Sub

Après, je te laisse te débrouiller pour améliorer ça 

Antho25

podolis · Answer

Merci

Médéric
Ergonome Logiel
(VB.NET-Débutant)

cs_antho2005 · Answer

Et j'ai oublié un petit truc: If PositionDepart.X + NouvelleTaille.Width < LaPictureBox.Width Then PositionDepart.X = LaPictureBox.Width - NouvelleTaille.Width If PositionDepart.Y + NouvelleTaille.Height < LaPictureBox.Height Then PositionDepart.Y = LaPictureBox.Height - NouvelleTaille.Height juste après: If PositionDepart.X > 0 Then PositionDepart.X = 0 If PositionDepart.Y > 0 Then PositionDepart.Y = 0 Voilà, c'est tout

Zoom sur coordonnées de la souris dans picutre box

6 réponses

Votre réponse

Discussions similaires