系统菜单操作.mb

mapinfo的代码合集

SUB XTCDCZ
Alter Menu  ID 14  Add "资料统计"           '在对象中增加"资料统计"
   Alter Menu  ID 2  Remove  M_EDIT_UNDO       '移去编辑中的撤消菜单栏
NOTE "程序清单在消息框中，请查看。"
W$="系统菜单操作" 
CLOSE ALL OPEN file W$+".MB" 
FOR INPUT AS #1 INPUT #1, z0$
PRINT W$+"程序清单如下:" 
FOR I=1 TO 500 INPUT #1, z0$ 
Z3$=MID$(z0$,17,3)
IF Z3$="请查看" THEN GOTO QW1 END IF
PRINT z0$ NEXT 
QW1: Close File #1
END SUB