Discussion :

[silverdelph]

Bonjour,

En VB2008, quand je dépose un splitcontainer sur une form, il me crée le split ainsi que 2 panels mais le même petit code qui me permet de dessiner un rectangle par exemple sur une form ne marche pas du tout dans les panels du splitcontainers.

Je n'ai pas de message d'erreur, je ne peux simplement pas dessiner dans les panels.

Même chose si je pose un panel (un troisieme donc) ou une paintbox par dessus un panel du splitcontainer, impossible de dessiner dedans.

Je dois oublier quelquechose ...

Une idée ?

Merci par avance.

S.D.

[tomlev]

chez moi ça marche bien... fais voir ton code

[silverdelph]

Voilà un code tout simple qui desine un rectangle :

Dans le onpaint d'un panel du splitcontainer

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint
 
        Dim monrectangle As Graphics
        Dim CouleurTrait As New Pen(Color.Black)
 
        monrectangle = Me.CreateGraphics
        monrectangle.DrawRectangle(CouleurTrait, 30, 30, 130, 130)
 
End Sub

Le plus fort c'est que si j'enlève l'ancrage du split pour voir dessous, mon rectangle apparait sur la form alors qu'aucun évènement (de la form) n'est utilisé.

[tomlev]

Pourquoi tu fais CreateGraphics alors que tu as déjà le Graphics dans les paramètres de l'évènement ?

Code :

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

1
2
3
4
5
6
Private Sub SplitContainer1_Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles SplitContainer1.Panel1.Paint
 
        Dim CouleurTrait As New Pen(Color.Black)
        e.Graphics.DrawRectangle(CouleurTrait, 30, 30, 130, 130)
 
End Sub

Ca m'étonnerait pas que le problème vienne de là...