vb加mo对地图的放大缩小 PrivateSubMap1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle) IfToolbar1.Buttons(1).Value=tbrPressedThen SetMap1.Extent=Map1.TrackRecta
vb加mo开发的小程序 PrivateSubCommand1_Click() DimiAsInteger DimlayerAsMapLayer DimstatsAsStatistics DimclassAsNewClassBreaksRenderer DimbreakAsDouble Setlayer=Map1.Layer