Pour y voir plus clair, il devient nécessaire d'effacer tous ces rectangles, ce qui est un peu fastidieux à la main.
Pour faciliter l'effacement , créer un autre bouton et compléter son gestionnaire d'événements Click comme suit :
Attention ce premier script ne fonctionne correctement que s'il n'y a pas de rectangles déjà créés et non effacés au moment où vous créez le bouton
| Script 3a |
|---|
Sub Click(Source As Buttoncontrol)
Set dessin=currentdocument.drawnobjects(currentdocument.drawnobjects.count-1)
If dessin Isa "rectangle" Then dessin.clear
End Sub
|
Ce script efface les rectangles un par un à chaque clic du bouton.
Si vous avez du courage, si vous avez tracé beaucoup trop de rectangles, ou si vous faites du copier-coller, vous pouvez le compléter comme ci-dessous (Script 3b)
Ce second script fonctionne dans tous les cas : il efface tous les objets dessinés sauf les boutons.
| Script3b |
|---|
Sub Click(Source As Buttoncontrol)
comptebouton=0
For i=0 To currentdocument.drawnobjects.count-1
If currentdocument.drawnobjects(i) Isa "buttonControl" Then Comptebouton=comptebouton+1
Next
dc=1
While Currentdocument.drawnobjects.count>comptebouton
Set dessin= Currentdocument.drawnobjects(Currentdocument.drawnobjects.count-dc)
If not(dessin Isa "ButtonControl") Then dessin.clear else dc=dc+1
Wend
End Sub
|
C'est un peu plus long à taper , mais un seul clic efface tous les rectangles d'un coup ! Nous saurons expliquer un peu plus tard la signification de chaque ligne
©2003 Scientillula.net