多选择对话框.mb

来自「很好的MAPINFO源代码可以下载下来看看哦对学习又很的帮助」· MB 代码 · 共 71 行

SUB DXZ
      R=0 
      N=34
      dialog
      title "  本次选择共有"+N+"个对象" 
      'position 350,100
      control statictext
      title "请您选择省份："
      position 10,10
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,10             '90为窗口开始坐标 
      into R
   control statictext
      title "请您选择城市："'
      position 10,30
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,30             '90为窗口开始坐标 
      into R

      control statictext
      title "请您选择城市："
      position 10,50
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,50             '90为窗口开始坐标 
      into R
      
      control statictext
      title "请您选择城市："
      position 10,70
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,70             '90为窗口开始坐标 
      into R

      control statictext
      title "请您选择城市："
      position 10,90
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,90             '90为窗口开始坐标 
      into R
      control statictext
      title "请您选择城市："
      position 10,110
      control popupmenu
      title "安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
      position 20,5
      width 110  height 210      '110为窗口宽度
      position 90,110             '90为窗口开始坐标 
      into R

      control okbutton
      title "确定"
      position 20,240
      control cancelbutton
      title "取消"
      position 130,240
END SUB