Sélection d'une forme dans un picturebox

Bonjours à tous et à toutes!
Voilà, j'ais un picturebox,dedans j'y met un petit déssin:
 (C'est fait avec vb.net 2008)

Dim NewGraphic As Graphics = PictureBox1.CreateGraphics()

Dim blackPen AsNew Pen(Color.Black, 1)

NewGraphic.DrawRectangle(blackPen, 100, 100, 40, 20)

NewGraphic.DrawLine(blackPen, 130, 100, 110, 120)


Je peut y créer un rectangle de sélection: (Code trouvé sur le site)

'Les coordonnees utilisees pour dessiner notre rectangle

Private Xstart, Ystart, Xend, Yend AsInteger

PrivateSub PictureBox1_MouseDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown

'Si click gauche

If e.Button = MouseButtons.Left Then

'Initialisation des coordonnes

Xstart = e.X

Ystart = e.Y

Xend = e.X

Yend = e.Y

'Declaration du rectangle

Dim r As Rectangle

'On dessine le rectangle en utilisant la fonction RectangleToScreen

'qui convertie les coordonnes du rectangle par rapport a l'ecran

r = PictureBox1.RectangleToScreen(

New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart))

'On dessine un rectangle inversee qui laissera visible l'interieur du rectangle

ControlPaint.DrawReversibleFrame(r,

Me.BackColor, FrameStyle.Dashed)

EndIf

'End If

EndSub

PrivateSub PictureBox1_MouseMove(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

'Quand clique gauche

If e.Button = MouseButtons.Left Then

'On efface l'ancien rectangle

Dim r As Rectangle

r = PictureBox1.RectangleToScreen(

New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart))

ControlPaint.DrawReversibleFrame(r,

Me.BackColor, FrameStyle.Dashed)

'Nouvelles coordonnees de la souris quand on la bouge

Xend = e.X

Yend = e.Y

'On redessine le rectangle avec les nouvelles coordonnes de la souris

r = PictureBox1.RectangleToScreen(

New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart))

ControlPaint.DrawReversibleFrame(r,

Me.BackColor, FrameStyle.Dashed)

EndIf

EndSub

PrivateSub PictureBox1_MouseUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp

If e.Button = MouseButtons.Left Then

'On efface le dernier rectangle

Dim r As Rectangle

r = PictureBox1.RectangleToScreen(

New Rectangle(Xstart, Ystart, Xend - Xstart, Yend - Ystart))

ControlPaint.DrawReversibleFrame(r,

Me.BackColor, FrameStyle.Dashed)

EndIf

EndSub

Donc Comment faire pour sélectionner ce petit déssin , le déplacer et le mettre ailleur dans ma picturebox?

Désolé pour la longueur , je débute avec VB.NET 2008
Merci beaucoup par avance!!!

Salut,

Simple, utilise l'evenement DoDragDrop de la PictureBox
Apres il faut coder un peu... Mais ca c'est le plaisir de VB.net

Bonne chance.

_____________________
No problems, only soluces

Salut,
Tu te trompe 68manu, un dessin dans une PictureBox n'est rien d'autre que des pixels coloriés, il ne s'agit pas d'un contrôle ayant des propriétés et des événements tel que DoDragDrop.
Il faut tout faire manuellement, il faut donc trouver une solution pour pouvoir retrouver tes éléments dessiné dans la PictureBox.

Voici la solution qui me vient à l'esprit:
Chaque élément graphique dessiné doit être sauvegardé dans une liste (les couches) comme ça se fait dans des programmes graphique comme PhotoShop ou Paint.NET. Il faut donc sauvegarder toutes les propriétés utiles pour pouvoir reconstituer l'élément graphique (par exemple Bounds et Color pour un rectangle opaque).

Lorsque tu fais un clique sur ta PictureBox, suffit de retrouver ton élément dans ta liste, de modifier sa position et de redessiner le tout.

Bien vu Kevin,
Desole drenalyn,

j'ai pas percute que c'etait le dessin...et pas la picturebox.

A+

_____________________
No problems, only soluces

Salut Kévin,

Je vais éssayer de faire ce que tu dis,mais ca va etre très difficile car je suis total débutant!

Au cas où , si tu avais quelque bout de code pour m'aider?

Merci quand même à toi 68manu pour ta réponse!