Zoom sur coordonnées de la souris dans picutre box [Résolu]
podolis
Membre Dernière intervention
19 décembre 2010
- - Dernière réponse :
cs_antho2005
Membre Dernière intervention
1 mai 2012
- 13 avril 2008 à 12:58
- Messages postés
- 73
- Date d'inscription
- mardi 18 mars 2008
- Statut
- Messages postés
- 153
- Date d'inscription
- samedi 8 avril 2006
- Statut
A voir également:
- Vb.net picturebox zoom
- Affiche les coordonnées de la souris(borland c++5.5) - Codes sources - C / C++ / C++.NET (Périphériques)
- Coordonnees de la souris - Codes sources - C / C++ / C++.NET (.Net)
- Recuperer les coordonnées de la souris (utile pour les jeux) - Codes sources - Flash (ActionScripts)
- Code pour recevoir les coordonnées de la souris. - Codes sources - Flash (Divers)
- [code 04] recuperer le caractére tapé et les coordonnées de la souris [masm32] - Codes sources - ASM (Tutoriels)
6 réponses
Meilleure réponse
- Messages postés
- 153
- Date d'inscription
- samedi 8 avril 2006
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
152 internautes nous ont dit merci ce mois-ci
- Messages postés
- 153
- Date d'inscription
- samedi 8 avril 2006
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
152 internautes nous ont dit merci ce mois-ci
- Messages postés
- 153
- Date d'inscription
- samedi 8 avril 2006
- Statut
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
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
152 internautes nous ont dit merci ce mois-ci
- Messages postés
- 153
- Date d'inscription
- samedi 8 avril 2006
- Statut
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
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