Discussion :

[Noodles]

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!

[ld9474]

Je pense que ton problème vient de l'espace graphique que tu utilises.
Ici tu fais me.creategraphics donc c'est l'espace graphique de la form. Or celui-ci est sous les contrôles.
En revanche essaie de récupérer Panel1.CreateGraphics à la place et ca devrait fonctionner

[Olivier Delmotte]

exact ... testé et c'est ca

[Noodles]

Mais chuis con ou quoi?
Oui, évidemment, maintenant ca roule... Comment n'y ai-je pas pensé....