tu peus ajouter une variable pour indiquer que tu aime dessiner...
par exemple
dim CanDrawRectangle as boolean=false
en cliquant sur le bouton on a
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...
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 |
Partager