对话框控件实验.mb

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

SUB DHSY 
   W$="对话框控件实验" 
   CLOSE ALL OPEN file W$+".MB"
   FOR INPUT AS #1 
   M1$=""
   FOR I=1 TO 14   
   INPUT #1,z0$ 
   R=LEN (Z0$)
   Z3$=MID$(z0$,2,R-1)
   M1$=M1$+";"+Z3$
   NEXT Close File #1 
   R=LEN (M1$)
   M1$=MID$(M1$,2,R-1)
   R=0
   dialog
   title"络屹科技欢迎您使用对话框控件实验程序" 
   position 340,0               
   control radiogroup
   title M1$
   position 30,8
   into R                       
   control okbutton
   title "确定"
   position 50,220
   control cancelbutton
   title "取消"
   position 130,220
   M1$="安徽省;北京市;福建省;甘肃省;广东省;广西;贵州省;海南省;河北省;河南省;黑龙江省;湖北省;湖南省;吉林省;江西省;辽宁省;内蒙古;青海省;山东省;陕西省;四川省;天津市;西藏;新疆;云南省;浙江省;重庆市"
   IF R=0 THEN EXIT SUB END IF
   IF R=1 THEN GOTO DH01 END IF
   IF R=2 THEN GOTO DH02 END IF
   IF R=3 THEN GOTO DH03 END IF
   IF R=4 THEN GOTO DH04 END IF
   IF R=5 THEN GOTO DH05 END IF
   IF R=6 THEN GOTO DH06 END IF
   IF R=7 THEN GOTO DH07 END IF
   IF R=8 THEN GOTO DH08 END IF
   IF R=9 THEN GOTO DH09 END IF
   IF R=10 THEN GOTO DH10 END IF
   IF R=11 THEN GOTO DH11 END IF
   IF R=12 THEN GOTO DH12 END IF
   IF R=13 THEN GOTO DH13 END IF
   IF R=14 THEN GOTO DH14 END IF
DH01:'没有title语句的对话框
   dialog
   control statictext
   title "同时按二次Ctrl^Alt^Del才能退出"
   position 30,10
   EXIT SUB
DH02:'statictext控件(对话框尺寸演示)
   FOR I=20 TO 200 STEP 10
      FOR J=10 TO 200 STEP 10
         dialog
         title "宽度="+I+"高度="+J
         control statictext
         title "statictext控件实验"
         position I,J         
      NEXT
   NEXT EXIT SUB
DH03:'EditText控件(对话框尺寸演示)
   FOR I=20 TO 200 STEP 10
      FOR J=10 TO 200 STEP 10
        dialog
        title "宽度="+I+"高度="+J
        Control EditText
        Value "EditText控件"  
        Into M1$           
        position I,J         
      NEXT
   NEXT EXIT SUB
DH04:'GroupBox控件
   FOR I=50 TO 90 STEP 10
      FOR J=0 TO 60 STEP 5
         dialog
         title "GroupBox控件实验  高="+I+"宽="+J
         Control GroupBox
         Title "络屹科技广交朋友"
         PositIon I,J
         width I-20 height J-10
   NEXT NEXT
   EXIT SUB
DH05:'penpicker控件(选择线型)
   FOR I=0 TO 900 STEP 100 FOR J=0 TO 600 STEP 50
      dialog
      title "络屹科技请您选择线型" 
      position I,J        '前数为距左距离
      control statictext
      title "距左I值="+I+"  距上J值="+J+" 按右上角的X,进行下一个位置"
      control penpicker
      position 80,20      '前数为边框宽度 后为高度
      width 10 height 10  '10为方框
   NEXT NEXT
   EXIT SUB
DH06:'BrushPicker控件(填充样式)
   dialog
   title "络屹科技请您选择填充样式"
   position 450,250    '前数为距左距离
   control BrushPicker
   position 60,20      '前数为边框宽度 后为高度
   width 10 height 10  '10为方框
   EXIT SUB
DH07:'FontPicker控件(字符样式)
   dialog
   title "络屹科技请您选择字符样式"
   position 450,250    '前数为距左距离
   control FontPicker
   position 60,20      '前数为边框宽度 后为高度
   width 10 height 10  '10为方框
   EXIT SUB
DH08:'SymbolPicker控件(选择符号)
   dialog
   title "络屹科技请您选择符号"
   position 450,250    '前数为距左距离
   control SymbolPicker
   position 60,20      '前数为边框宽度 后为高度
   width 10 height 10  '10为方框
   EXIT SUB
DH09:'MultiListBox控件
   dialog
   title"络屹科技欢迎您使用对话框实验程序" 
   position 440,150               
   control MultiListBox
   title M1$
   position 40,20
   into R                       
   control okbutton
   title "确定"
   position 20,120
   control cancelbutton
   title "取消"
   position 90,120
DH10:'PopupMenu控件
   dialog
   title "络屹科技请您运行PopupMenu控件"
   position 450,250 
   Control PopupMenu
   title M1$
   Value 2
   Into R
   ID 6
   position 90,5
   EXIT SUB
DH11:'CheckBox控件
   dialog
   title "络屹科技请您运行CheckBox控件"
   position 450,350
   Control CheckBox
   Title "功能确认框"
   ID 7
   PositIon 50,20
   EXIT SUB
DH12:'OkButton和CancelButton控件
   dialog
   title "络屹科技请您运行OkButtonh和CancelButton控件"
   Control OkButton
   title "确定"
   position 20,30
   'Calling r
   Control CancelButton
   title "取消"
   EXIT SUB
DH13:'默认位置和尺寸的OkButton和CancelButton控件
   Dialog
   Title"络屹科技请您运行OkButtonh和CancelButton控件"
   Control OkButton
   Title"查找"
   Control CancelButton
   Title"取消"
   EXIT SUB
DH14:'指出位置的OkButton和CancelButton控件
   Dialog
   Title"络屹科技请您运行OkButtonh和CancelButton控件"
   width 200 height 50      '200为宽度,50为高度
   Control OkButton
   Title"查找符合条件的对象"
   position 15,30
   Control CancelButton
   Title"取 消 查 找 对 象"
   position 115,30
   EXIT SUB
END SUB