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