图层控制.mb

很好的MAPINFO源代码可以下载下来看看哦对学习又很的帮助

SUB TCKZ
Close All Interactive
Open Table "行政区划"
Open Table "大型湖泊"
Open Table "主要河道"
Open Table "二级水系"
Open Table "深层观测井"
Map From 行政区划
Position (0,0) Height 12 Width 13
DA01:R=0
    M1$="大型湖泊;主要河道;二级水系;深层观测井;全部增加"
    dialog
    title"络屹科技欢迎您  增加图层" 
    position 0,460               
    control radiogroup
    title M1$
    position 30,8
    into R                       
    control okbutton
    title "确定"
    position 20,80
    control cancelbutton
    title "取消"
    position 80,80
    IF R=0 THEN EXIT SUB END IF
    IF R=1 THEN Add Map Auto Layer 大型湖泊 END IF
    IF R=2 THEN Add Map Auto Layer 主要河道 END IF
    IF R=3 THEN Add Map Auto Layer 二级水系 END IF
    IF R=4 THEN Add Map Layer 深层观测井 END IF
    IF R=5 THEN Add Map Layer 深层观测井,二级水系,主要河道,大型湖泊 END IF
    fi=ASK("请您选择增加图层或关闭图层","增加图层","关闭图层")
    IF FI="TRUE" THEN GOTO DA01 END IF
    IF FI="FALSE" THEN GOTO DA02 END IF
  M1$="行政区划;大型湖泊;主要河道;二级水系;深层观测井;全部关闭"
  Close All Interactive
  Open Table "行政区划"
  Open Table "大型湖泊"
  Open Table "主要河道"
  Open Table "二级水系"
  Open Table "深层观测井"
  Map From 行政区划
  Position (0,0) Height 12 Width 13
  Add Map Auto Layer 大型湖泊
  Add Map Auto Layer 主要河道
  Add Map Auto Layer 二级水系
  Add Map Auto Layer 深层观测井
  DA02: R=0
    dialog
    title"络屹科技欢迎您  关闭图层" 
    position 0,440               
    control radiogroup
    title M1$
    position 30,8
    into R                       
    control okbutton
    title "确定"
    position 20,90
    control cancelbutton
    title "取消"
    position 80,90
    IF R=0 THEN EXIT SUB END IF
    IF R=1 THEN Remove Map Layer 行政区划 END IF
    IF R=2 THEN Remove Map Layer 大型湖泊 END IF
    IF R=3 THEN Remove Map Layer 主要河道 END IF
    IF R=4 THEN Remove Map Layer 二级水系 END IF
    IF R=5 THEN Remove Map Layer 深层观测井 END IF
    IF R=6 THEN Close All Interactive END IF
    GOTO DA02
END SUB