动态界面.mb

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

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