Le portail francophone de la géomatique

De: Celine Ronte
Bonjour,

J'ai encore un probleme avec mapbasic !
J'essaie de creer un bouton qui affiche une couche quand celle-ci n'est pas affichee et qui l'efface quand elle est affichee mais ce n'est pas si facile !
Je joins le programme qui ne fonctionne pas !

Merci a tous ceux qui pourront m'aider ... en esperant que la manip est possible !

Bonne fin de journee,
Celine

include MapBasic.def
Declare sub main
Declare sub bouton
Declare sub Affiche
Declare sub Efface

Sub main ()
call bouton
end sub

Sub bouton ()
Create Buttonpad Frontiere et villes
As PushButton
Icon 15
If Map Layer 19 off
Then Call Affiche
Else Call Efface
End if

end sub

Sub Affiche ()
set map redraw off
Set Map Layer 19 Display Graphic
Set Map Layer 19 Display Global
set map redraw on
End sub

Sub Efface ()
set map redraw off
Set map layer 19 Display off
Set Map redraw on
End sub