一级菜单.mb

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

"456齐齐哈尔市" Calling YJCD,
"457双鸭山市" Calling YJCD,
"458绥芬河市" Calling YJCD,
"459绥化地区" Calling YJCD,
"460铁力市" Calling YJCD,
"461五大连池市" Calling YJCD,
"462伊春市" Calling YJCD,
"463肇东市" Calling YJCD,
"464鄂州市" Calling YJCD,
"465恩施州" Calling YJCD,
"466黄岗市" Calling YJCD,
"467黄石市" Calling YJCD,
"468荆门市" Calling YJCD,
"469荆沙市" Calling YJCD,
"470潜江市" Calling YJCD,
"471武汉市" Calling YJCD,
"472十堰市" Calling YJCD,
"473神农架林区" Calling YJCD,
"474随州市" Calling YJCD,
"475天门市" Calling YJCD,
"476仙挑市" Calling YJCD,
"477咸宁市" Calling YJCD,
"478襄樊市" Calling YJCD,
"479孝感市" Calling YJCD,
"480武汉市" Calling YJCD,
"481宜昌市" Calling YJCD,
"482彬州市" Calling YJCD,
"483长沙市" Calling YJCD,
"484常德市" Calling YJCD,
"485衡阳市" Calling YJCD,
"486怀化地区" Calling YJCD,
"487邵阳市" Calling YJCD,
"488湘潭" Calling YJCD,
"489湘西自治州" Calling YJCD,
"490益阳市" Calling YJCD,
"491永州市" Calling YJCD,
"492岳阳市" Calling YJCD,
"493张家界市" Calling YJCD,
"494株州市" Calling YJCD,
"495白城市" Calling YJCD,
"496白山市" Calling YJCD,
"497长春市" Calling YJCD,
"498吉林市" Calling YJCD,
"499辽源市" Calling YJCD,
"500四平市" Calling YJCD,
"501中山市" Calling YJCD,
"502百色地区" Calling YJCD,
"503北海市" Calling YJCD,
"504防城港市" Calling YJCD,
"505贵港市" Calling YJCD,
"506桂林" Calling YJCD,
"507河池地区" Calling YJCD,
"508柳州地区" Calling YJCD,
"509南宁地区" Calling YJCD,
"510钦州市" Calling YJCD,
"511梧州地区" Calling YJCD,
"512玉林地区" Calling YJCD,
"513安顺地区" Calling YJCD,
"514毕节地区" Calling YJCD,
"515黔南州" Calling YJCD,
"516贵阳市" Calling YJCD,
"517六盘水市" Calling YJCD,
"518黔东南州" Calling YJCD,
"519铜仁地区" Calling YJCD,
"520黔西南州" Calling YJCD,
"521遵义地区" Calling YJCD,
"522海口市" Calling YJCD,
"523保定市" Calling YJCD,
"524沧州市" Calling YJCD,
"525德市" Calling YJCD,
"526邯郸市" Calling YJCD,
"527衡水市" Calling YJCD,
"528廊坊市" Calling YJCD,
"529秦皇岛市" Calling YJCD,
"530石家庄市" Calling YJCD,
"531唐山市" Calling YJCD,
"532邢台市" Calling YJCD,
"533张家口市" Calling YJCD,
"534安阳市" Calling YJCD,
"535开封市" Calling YJCD,
"536南阳市" Calling YJCD,
"537平顶山市" Calling YJCD,
"538商丘地区" Calling YJCD,
"539新乡市" Calling YJCD,
"540信阳地区" Calling YJCD,
"541许昌市" Calling YJCD,
"542郑州市" Calling YJCD,
"543安达市" Calling YJCD,
"544北安市" Calling YJCD,
"545大庆市" Calling YJCD,
"546富锦市" Calling YJCD,
"547哈尔滨" Calling YJCD,
"548鹤岗市" Calling YJCD,
"549黑河市" Calling YJCD,
"550鸡西市" Calling YJCD,
"551大兴安岭地区" Calling YJCD,
"552佳木斯市" Calling YJCD,
"553密山市" Calling YJCD,
"554牡丹江市" Calling YJCD,
"555七台河市" Calling YJCD,
"556齐齐哈尔市" Calling YJCD,
"557双鸭山市" Calling YJCD,
"558绥芬河市" Calling YJCD,
"559绥化地区" Calling YJCD,
"560铁力市" Calling YJCD,
"561五大连池市" Calling YJCD,
"562伊春市" Calling YJCD,
"563肇东市" Calling YJCD,
"564鄂州市" Calling YJCD,
"565恩施州" Calling YJCD,
"566黄岗市" Calling YJCD,
"567黄石市" Calling YJCD,
"568荆门市" Calling YJCD,
"569荆沙市" Calling YJCD,
"570潜江市" Calling YJCD,
"571武汉市" Calling YJCD,
"572十堰市" Calling YJCD,
"573神农架林区" Calling YJCD,
"574随州市" Calling YJCD,
"575天门市" Calling YJCD,
"576仙挑市" Calling YJCD,
"577咸宁市" Calling YJCD,
"578襄樊市" Calling YJCD,
"579孝感市" Calling YJCD,
"580武汉市" Calling YJCD,
"581宜昌市" Calling YJCD,
"582彬州市" Calling YJCD,
"583长沙市" Calling YJCD,
"584常德市" Calling YJCD,
"585衡阳市" Calling YJCD,
"586怀化地区" Calling YJCD,
"587邵阳市" Calling YJCD,
"588湘潭" Calling YJCD,
"589湘西自治州" Calling YJCD,
"590益阳市" Calling YJCD,
"591永州市" Calling YJCD,
"592岳阳市" Calling YJCD,
"593张家界市" Calling YJCD,
"594株州市" Calling YJCD,
"595白城市" Calling YJCD,
"596白山市" Calling YJCD,
"597长春市" Calling YJCD,
"598吉林市" Calling YJCD,
"599辽源市" Calling YJCD,
"600四平市" Calling YJCD,
"601中山市" Calling YJCD,
"602百色地区" Calling YJCD,
"603北海市" Calling YJCD,
"604防城港市" Calling YJCD,
"605贵港市" Calling YJCD,
"606桂林" Calling YJCD,
"607河池地区" Calling YJCD,
"608柳州地区" Calling YJCD,
"609南宁地区" Calling YJCD,
"610钦州市" Calling YJCD,
"611梧州地区" Calling YJCD,
"612玉林地区" Calling YJCD,
"613安顺地区" Calling YJCD,
"614毕节地区" Calling YJCD,
"615黔南州" Calling YJCD,
"616贵阳市" Calling YJCD,
"617六盘水市" Calling YJCD,
"618黔东南州" Calling YJCD,
"619铜仁地区" Calling YJCD,
"620黔西南州" Calling YJCD,
"621遵义地区" Calling YJCD,
"622海口市" Calling YJCD,
"623保定市" Calling YJCD,
"624沧州市" Calling YJCD,
"625德市" Calling YJCD,
"626邯郸市" Calling YJCD,
"627衡水市" Calling YJCD,
"628廊坊市" Calling YJCD,
"629秦皇岛市" Calling YJCD,
"630石家庄市" Calling YJCD,
"631唐山市" Calling YJCD,
"632邢台市" Calling YJCD,
"633张家口市" Calling YJCD,
"634安阳市" Calling YJCD,
"635开封市" Calling YJCD,
"636南阳市" Calling YJCD,
"637平顶山市" Calling YJCD,
"638商丘地区" Calling YJCD,
"639新乡市" Calling YJCD,
"640信阳地区" Calling YJCD,
"641许昌市" Calling YJCD,
"642郑州市" Calling YJCD,
"643安达市" Calling YJCD,
"644北安市" Calling YJCD,
"645大庆市" Calling YJCD,
"646富锦市" Calling YJCD,
"647哈尔滨" Calling YJCD,
"648鹤岗市" Calling YJCD,
"649黑河市" Calling YJCD,
"650鸡西市" Calling YJCD,
"651大兴安岭地区" Calling YJCD,
"652佳木斯市" Calling YJCD,
"653密山市" Calling YJCD,
"654牡丹江市" Calling YJCD,
"655七台河市" Calling YJCD,
"656齐齐哈尔市" Calling YJCD,
"657双鸭山市" Calling YJCD,
"658绥芬河市" Calling YJCD,
"659绥化地区" Calling YJCD,
"660铁力市" Calling YJCD,
"661五大连池市" Calling YJCD,
"662伊春市" Calling YJCD,
"663肇东市" Calling YJCD,
"664鄂州市" Calling YJCD,
"665恩施州" Calling YJCD,
"666黄岗市" Calling YJCD,
"667黄石市" Calling YJCD,
"668荆门市" Calling YJCD,
"669荆沙市" Calling YJCD,
"670潜江市" Calling YJCD,
"671武汉市" Calling YJCD,
"672十堰市" Calling YJCD,
"673神农架林区" Calling YJCD,
"674随州市" Calling YJCD,
"675天门市" Calling YJCD,
"676仙挑市" Calling YJCD,
"677咸宁市" Calling YJCD,
"678襄樊市" Calling YJCD,
"679孝感市" Calling YJCD,
"680武汉市" Calling YJCD,
"681宜昌市" Calling YJCD,
"682彬州市" Calling YJCD,
"683长沙市" Calling YJCD,
"684常德市" Calling YJCD,
"685衡阳市" Calling YJCD,
"686怀化地区" Calling YJCD,
"687邵阳市" Calling YJCD,
"688湘潭" Calling YJCD,
"689湘西自治州" Calling YJCD,
"690益阳市" Calling YJCD,
"691永州市" Calling YJCD,
"692岳阳市" Calling YJCD,
"693张家界市" Calling YJCD,
"694株州市" Calling YJCD,
"695白城市" Calling YJCD,
"696白山市" Calling YJCD,
"697长春市" Calling YJCD,
"698吉林市" Calling YJCD,
"699辽源市" Calling YJCD,
"700四平市" Calling YJCD,
"701中山市" Calling YJCD,
"702百色地区" Calling YJCD,
"703北海市" Calling YJCD,
"704防城港市" Calling YJCD,
"705贵港市" Calling YJCD,
"706桂林" Calling YJCD,
"707河池地区" Calling YJCD,
"708柳州地区" Calling YJCD,
"709南宁地区" Calling YJCD,
"710钦州市" Calling YJCD,
"711梧州地区" Calling YJCD,
"712玉林地区" Calling YJCD,
"713安顺地区" Calling YJCD,
"714毕节地区" Calling YJCD,
"715黔南州" Calling YJCD,
"716贵阳市" Calling YJCD,
"717六盘水市" Calling YJCD,
"718黔东南州" Calling YJCD,
"719铜仁地区" Calling YJCD,
"720黔西南州" Calling YJCD,
"721遵义地区" Calling YJCD,
"722海口市" Calling YJCD,
"723保定市" Calling YJCD,
"724沧州市" Calling YJCD,
"725德市" Calling YJCD,
"726邯郸市" Calling YJCD,
"727衡水市" Calling YJCD,
"728廊坊市" Calling YJCD,
"729秦皇岛市" Calling YJCD,
"730石家庄市" Calling YJCD,
"731唐山市" Calling YJCD,
"732邢台市" Calling YJCD,
"733张家口市" Calling YJCD,
"734安阳市" Calling YJCD,
"735开封市" Calling YJCD,
"736南阳市" Calling YJCD,
"737平顶山市" Calling YJCD,
"738商丘地区" Calling YJCD,
"739新乡市" Calling YJCD,
"740信阳地区" Calling YJCD,
"741许昌市" Calling YJCD,
"742郑州市" Calling YJCD,
"743安达市" Calling YJCD,
"744北安市" Calling YJCD,
"745大庆市" Calling YJCD,
"746富锦市" Calling YJCD,
"747哈尔滨" Calling YJCD,
"748鹤岗市" Calling YJCD,
"749黑河市" Calling YJCD,
"750鸡西市" Calling YJCD,
"751大兴安岭地区" Calling YJCD,
"752佳木斯市" Calling YJCD,
"753密山市" Calling YJCD,
"754牡丹江市" Calling YJCD,
"755七台河市" Calling YJCD,
"756齐齐哈尔市" Calling YJCD,
"757双鸭山市" Calling YJCD,
"758绥芬河市" Calling YJCD,
"759绥化地区" Calling YJCD,
"760铁力市" Calling YJCD,
"761五大连池市" Calling YJCD,
"762伊春市" Calling YJCD,
"763肇东市" Calling YJCD,
"764鄂州市" Calling YJCD,
"765恩施州" Calling YJCD,
"766黄岗市" Calling YJCD,
"767黄石市" Calling YJCD,
"768荆门市" Calling YJCD,
"769荆沙市" Calling YJCD,
"770潜江市" Calling YJCD,
"771武汉市" Calling YJCD,
"772十堰市" Calling YJCD,
"773神农架林区" Calling YJCD,
"774随州市" Calling YJCD,
"775天门市" Calling YJCD,
"776仙挑市" Calling YJCD,
"777咸宁市" Calling YJCD,
"778襄樊市" Calling YJCD,
"779孝感市" Calling YJCD,
"780武汉市" Calling YJCD,
"781宜昌市" Calling YJCD,
"782彬州市" Calling YJCD,
"783长沙市" Calling YJCD,
"784常德市" Calling YJCD,
"785衡阳市" Calling YJCD,
"786怀化地区" Calling YJCD,
"787邵阳市" Calling YJCD,
"788湘潭" Calling YJCD,
"789湘西自治州" Calling YJCD,
"790益阳市" Calling YJCD,
"791永州市" Calling YJCD,
"792岳阳市" Calling YJCD,
"793张家界市" Calling YJCD,
"794株州市" Calling YJCD,
"795白城市" Calling YJCD,
"796白山市" Calling YJCD,
"797长春市" Calling YJCD,
"798吉林市" Calling YJCD,
"799辽源市" Calling YJCD,
"800四平市" Calling YJCD,
"901中山市" Calling YJCD,
"902百色地区" Calling YJCD,
"903北海市" Calling YJCD,
"904防城港市" Calling YJCD,
"905贵港市" Calling YJCD,
"906桂林" Calling YJCD,
"907河池地区" Calling YJCD,
"908柳州地区" Calling YJCD,
"909南宁地区" Calling YJCD,
"910钦州市" Calling YJCD,
"911梧州地区" Calling YJCD,
"912玉林地区" Calling YJCD,
"913安顺地区" Calling YJCD,
"914毕节地区" Calling YJCD,
"915黔南州" Calling YJCD,
"916贵阳市" Calling YJCD,
"917六盘水市" Calling YJCD,
"918黔东南州" Calling YJCD,
"919铜仁地区" Calling YJCD,
"920黔西南州" Calling YJCD,
"921遵义地区" Calling YJCD,
"922海口市" Calling YJCD,
"923保定市" Calling YJCD,
"924沧州市" Calling YJCD,
"925德市" Calling YJCD,
"926邯郸市" Calling YJCD,
"927衡水市" Calling YJCD,
"928廊坊市" Calling YJCD,
"929秦皇岛市" Calling YJCD,
"930石家庄市" Calling YJCD,
"931唐山市" Calling YJCD,
"932邢台市" Calling YJCD,
"933张家口市" Calling YJCD,
"934安阳市" Calling YJCD,
"935开封市" Calling YJCD,
"936南阳市" Calling YJCD,
"937平顶山市" Calling YJCD,
"938商丘地区" Calling YJCD,
"939新乡市" Calling YJCD,
"940信阳地区" Calling YJCD,
"941许昌市" Calling YJCD,
"942郑州市" Calling YJCD,
"943安达市" Calling YJCD,
"944北安市" Calling YJCD,
"945大庆市" Calling YJCD,
"946富锦市" Calling YJCD,
"947哈尔滨" Calling YJCD,
"948鹤岗市" Calling YJCD,
"949黑河市" Calling YJCD,
"950鸡西市" Calling YJCD,
"951大兴安岭地区" Calling YJCD,
"952佳木斯市" Calling YJCD,
"953密山市" Calling YJCD,
"954牡丹江市" Calling YJCD,
"955七台河市" Calling YJCD,
"956齐齐哈尔市" Calling YJCD,
"957双鸭山市" Calling YJCD,
"958绥芬河市" Calling YJCD,
"959绥化地区" Calling YJCD,
"960铁力市" Calling YJCD,
"961五大连池市" Calling YJCD,
"962伊春市" Calling YJCD,
"963肇东市" Calling YJCD,
"964鄂州市" Calling YJCD,
"965恩施州" Calling YJCD,
"966黄岗市" Calling YJCD,
"967黄石市" Calling YJCD,
"968荆门市" Calling YJCD,
"969荆沙市" Calling YJCD,
"970潜江市" Calling YJCD,
"971武汉市" Calling YJCD,
"972十堰市" Calling YJCD,
"973神农架林区" Calling YJCD,
"974随州市" Calling YJCD,
"975天门市" Calling YJCD,
"976仙挑市" Calling YJCD,
"977咸宁市" Calling YJCD,
"978襄樊市" Calling YJCD,
"979孝感市" Calling YJCD,
"980武汉市" Calling YJCD,
"981宜昌市" Calling YJCD,
"982彬州市" Calling YJCD,
"983长沙市" Calling YJCD,
"984常德市" Calling YJCD,
"985衡阳市" Calling YJCD,
"986怀化地区" Calling YJCD,
"987邵阳市" Calling YJCD,
"988湘潭" Calling YJCD,
"989湘西自治州" Calling YJCD,
"990益阳市" Calling YJCD,
"991永州市" Calling YJCD,
"992岳阳市" Calling YJCD,
"993张家界市" Calling YJCD,
"994株州市" Calling YJCD,
"995白城市" Calling YJCD,
"996白山市" Calling YJCD,
"997长春市" Calling YJCD,
"998吉林市" Calling YJCD,
"999辽源市" Calling YJCD,
"1000四平市" Calling YJCD
 alter menu bar add "一级菜单"  
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
NOTE "本一级菜单创建了1000个菜单项"
END SUB