1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET
Sujet Précédent Sujet Suivant

Zoom sur coordonnées de la souris dans picutre box [Résolu]

Signaler
Messages postés
71
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
19 décembre 2010
 -
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
 -
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)
A voir également:

6 réponses

Réponse 1 / 6
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
 2
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
Réponse 2 / 6
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
 2
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
Réponse 3 / 6
Messages postés
71
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
19 décembre 2010
 1
Merci

Médéric
Ergonome Logiel
(VB.NET-Débutant)
Réponse 4 / 6
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
 2
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
Réponse 5 / 6
Messages postés
150
Date d'inscription
samedi 8 avril 2006
Statut
Membre
Dernière intervention
1 mai 2012
 2
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
Réponse 6 / 6
Messages postés
71
Date d'inscription
mardi 18 mars 2008
Statut
Membre
Dernière intervention
19 décembre 2010
 1
Merci à toi antho2005

Médéric
Ergonome Logiel
(VB.NET-Débutant)
Répondre Posez votre question