动态界面.mb

来自「mabasic 经典使用案例。主要关于菜单建立」· MB 代码 · 共 14 行

SUB DTJM
   P$="R0300179" R=1 
     FOR I=0 TO 8  STEP 4
       FOR J=0 TO 8 STEP 4
         P$="界面"+STR$(R)
         Open Table P$
         Map From P$
         PositIon (J,I) Units "in"
         Height 3 Units "in"      '窗口高度16最大
         Width 4 Units  "in"      '    宽度12
         R=R+1 IF R>10 THEN R=1 END IF 
      NEXT NEXT
END SUB