Discussion :

[silverdelph]

Bonjour, après avoir rempli un évènement onpaint d'un panel avec un petit code qui trace un rectangle.

Code :

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

1
2
Dim CouleurTrait As New Pen(Color.Black)
        e.Graphics.DrawRectangle(CouleurTrait, 30, 30, 130, 130)

j'aimerais rajouter un deuxième rectangle en cliquant sur un bouton cette fois-ci.

Comment faire sachant qu'il faut que le dessin persiste.

Je pense à la surcharge du onpaint mais je ne sais pas faire.
Est-ce la bonne solution ?

Merci.

[salihovic]

tu peus ajouter une variable pour indiquer que tu aime dessiner...
par exemple

Code :

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

dim CanDrawRectangle as boolean=false

en cliquant sur le bouton on a

Code vb :

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

1
2
3
4
 
CanDrawRectangle =not CanDrawRectangle  '(ceci pour afficher ou cacher le rectangle)
 
panel.invalidate()'pour rafraichir l'image...

et dans le paint du panel...

Code vb :

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

1
2
3
4
5
6
7
8
9
 
Dim CouleurTrait As New Pen(Color.Black)
e.Graphics.DrawRectangle(CouleurTrait, 30, 30, 130, 130)
 
if CanDrawRectangle then 'cette condition permet de tester si on veu bien que le dessin se fait ou pas...
 
dim Pen as new Pen(color.Red,2) 'c'est un grand trait...
e.graphics.drawRectangle(pen,40,50,60,60) ' c'est un petit rectangle...
end if