列表选择.mb

mapinfo的代码合集

sub LBXZ
   R=0
   dialog  
   title"络屹科技欢迎您查看列表选择对话框的精彩演示" 
   position 340,200               
   control radiogroup
   title "列表选择对话框;浏览文本;尺寸变化;一次放大和缩小;逐步放大和缩小"
   position 30,8
   into R                       
   control okbutton
   title "确定"
   position 20,80
   control cancelbutton
   title "取消"
   position 100,80
   IF R=0 THEN EXIT SUB END IF
   IF R=1 THEN GOTO LB01 END IF
   IF R=2 THEN GOTO LB02 END IF
   IF R=3 THEN GOTO LB03 END IF
   IF R=4 THEN GOTO LB04 END IF
   IF R=5 THEN GOTO LB05 END IF
LB01:'列表选择对话框
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   M1$="络屹科技是高新技术的开拓者"
   FOR I=1 TO 1500
     INPUT #1, z0$ M1$=M1$+";"+z0$
   NEXT  Close File #1
   R=0
   dialog
   title"请您选择络屹科技产品" 
   control listbox
   title M1$
   width 100 height 190
   position 5,5
   into R
   control okbutton
   title "确定"
   position 50,200
   control cancelbutton
   title "取消"
   position 120,200
   IF R=0 THEN EXIT SUB END IF
   EXIT SUB
LB02:'浏览文本
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   M1$="络屹科技是高新技术的开拓者"
   FOR I=1 TO 1800
     INPUT #1, z0$ M1$=M1$+";"+z0$
   NEXT  Close File #1
   R=0
   dialog 
   title"请您浏览络屹科技产品" 
   control listbox
   title M1$
   width 505 height 335
   position 1,1
   into R
   control okbutton
   title "确定"
   position 120,345
   control cancelbutton
   title "取消"
   position 320,345
   IF R=0 THEN EXIT SUB END IF
   EXIT SUB
LB03:'改变尺寸
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   M1$="请您观察尺寸变化"
   FOR I=1 TO 800
     INPUT #1, z0$ M1$=M1$+";"+z0$
   NEXT  Close File #1
   R=0
   FOR I=10 TO 510 STEP 50
      FOR J=10 TO 340 STEP 33
        dialog 
        title"宽度="+I+"  高度="+J 
        control listbox
        title M1$
        width I height J
        position 250-248,160-158
        into R
   NEXT NEXT
   EXIT SUB 
LB04:'一次放大和缩小
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   M1$="请您观察尺寸一次放大和缩小的效果"
   FOR I=1 TO 500
     INPUT #1, z0$ M1$=M1$+";"+z0$
   NEXT  Close File #1
   FOR J=1 TO 5
   X1=50 Y1=30 
   FOR I=1 TO 2
        dialog 
        title"宽度="+X1+"  高度="+Y1+"可以进行5次,现在已经进行了"+J+"次" 
        control listbox
        title M1$
        width X1 height Y1
        position 250-248,160-158
        into R
   X1=X1+445 Y1=Y1+315
   NEXT NEXT 
   EXIT SUB
LB05:'逐步放大和逐步缩小
   OPEN file "对话框文本.MB" FOR INPUT AS #1
   M1$="请您观察尺寸逐步放大和缩小的效果"
   FOR I=1 TO 500
     INPUT #1, z0$ M1$=M1$+";"+z0$
   NEXT  Close File #1
   X1=50 Y1=30 
   FOR I=1 TO 9
        dialog 
        title"宽度="+X1+"  高度="+Y1 
        control listbox
        title M1$
        width X1 height Y1
        position 250-248,160-158
        into R
   X1=X1+50 Y1=Y1+30
   NEXT
   X1=500 Y1=330 
   FOR I=1 TO 9
        dialog 
        title"宽度="+X1+"  高度="+Y1 
        control listbox
        title M1$
        width X1 height Y1
        position 250-248,160-158
        into R
   X1=X1-50 Y1=Y1-30
   NEXT
   EXIT SUB
End sub