Le portail francophone de la géomatique

include "mapbasic.def"
include "icons.def" 
Declare sub main
Declare sub VerifProcActive
global BtonCheck as logical 
'-------------
Sub main()
'-------------
Create ButtonPad "Activer / Désactiver" As 
ToggleButton
HelpMsg "\nActiver / Désactiver" 
Calling VerifProcActive
Icon 20 'MI_ICON_POLYGON 
ID 1210
unCheck 
Width 10 
Position (5,5) Units "cm"
show 
end sub
'-------------
Sub VerifProcActive()
'-------------
if BtonCheck = true then
'calling test1
note "Bouton Désactivé "
BtonCheck = False
else 
'calling test2
note "Bouton Activé "
BtonCheck = true
end if 
end sub