单选对话框.mb

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

SUB DXDH 
   z$(1)="分区（单站）分析"
   z$(2)="分区综合分析"
   dialog
   title"欢迎您选择工作分区" 
   position 440,200               
   control radiogroup
   title "分区（单站）;分区综合分析"
   position 30,0   '30,8
   into R                       
   control okbutton
   title "确定"
   position 10,40
   control cancelbutton
   title "取消"
   position 60,40
   IF R=0 THEN EXIT SUB END IF
   NOTE  "您选择了"+z$(R)
END SUB