Discussion :

[cazadeis]

Bonjour,

Je cherche à dessiner par dessus une image existante un rectangle dont les coordonnées sont stockées dans une structure type rectangle.
Malheureusement le résultat obtenu se retrouve masqué derrière ma picture box.
Pourriez vous s'il vous plait m'aider ?

Merci

[methylene]

Bonjour

Utiliser la bibliothèque GDI+ et utiliser comme support la picturebox en question pour dessiner dessus.

Un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Imports System.Drawing
 
        Dim g = PictureBox1.CreateGraphics 'définit le support pour dessiner
        g.DrawRectangle(Pens.Red, Tonrect) 'dessine un rectangle vide (contour)
 
'ou
        g.FillRectangle(Brushes.Red, Tonrect) 'dessine un rectangle plein

[cazadeis]

Merci pour la réponse.

J'ai effectivement essayé cette option mais les objets dessinés semblent se trouver relegués en arrière plan donc masqué par l'image du picturebox. Si je tente sur un autre controle ça fonctionne.

[methylene]

Euh ça ce n'est pas normal, car ça marche très bien.

Es-tu sûr que tu ne redéfinis pas une de tes propriétés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
PictureBox1.Image
PictureBox1.BackgroundImage

après avoir dessiné tes formes ? Dessines-tu sur le bon support (bonne picturebox) ?

Hum ou sinon j'ai mon idée sur la question.

En fait en dessinant sur l'image, il suffit d'un rafraichissement, et ton dessin disparaît. Il faut en fait dessiner directement sur l'image elle-même.

[methylene]

Voilà qui devrait fonctionner, et garder une image même si tu rafraîchis ta form, ou met uen autre fenêtre par-dessus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Dim img As New Bitmap(PictureBox3.BackgroundImage.Width, PictureBox3.BackgroundImage.Height)
        Dim g As Graphics = Graphics.FromImage(img)
        g.DrawImage(PictureBox3.BackgroundImage, New Rectangle(0, 0, PictureBox3.BackgroundImage.Width, PictureBox3.BackgroundImage.Height), New Rectangle(0, 0, PictureBox3.BackgroundImage.Width, PictureBox3.BackgroundImage.Height), GraphicsUnit.Pixel)
 
        g.DrawRectangle(Pens.Red, Tonrect)
        g.FillRectangle(Brushes.Red, Tonrect)
 
        PictureBox3.BackgroundImage = img

Tu noteras que j'ai mis l'image en BackgroundImage.
Si tu met ton image sur Image, il faut que tu remplaces dans le bout de code.

[cazadeis]

Super, ça fonctionne. Merci beaucoup

[Pol63]

sinon plus couramment on dessine dans l'évènement paint, comme ca on peut mettre ce qu'on veut dans image et/ou backgroundimage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
private sub dessine(sender as object, e as painteventargs) handles monpicturebox.paint
    e.graphics.Drawrectangle(...)
end sub

à voir selon l'utilité de figer la chose ou non