Bonjour,

Voici mon problème. Dans une form, j'ai un panel dans lequel je mets une image de fond. J'aimerais afficher par dessus un rectangle. Pour cela, je crée un Pen, et je fais un Graphics.DrawRectangle. Le rectangle s'affiche bien, mais le problème c'est qu'il est derrière mon image, alors que j'aimerais qu'il soit par dessus.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
   'Chargement de la form
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Panel1.BackgroundImage = New Bitmap(New Bitmap("C:\monImage.jpg"), Panel1.Width, Panel1.Height)
    End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
    'Click sur le bouton--> Affichage du rectangle
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rect As New Rectangle(Panel1.Left, Panel1.Top, Panel1.Width, Panel1.Height / 2)
        Dim g As Graphics = Me.CreateGraphics
        Dim p As New Pen(Color.Blue)
        p.Width = 1
        g.DrawRectangle(p, rect)
    End Sub
Merci d'avance!