实验二 地图显示和图层控制.docx

实验二 地图显示和图层控制实验数据：country.shp、 rivers.shp、 cities.shp实验内容：1. 加载图层及相关操作2. 使用ArcGIS Engine中封装好的对象实现地图的操作3. 使用TocControl控件控制图层4. 使用TextElement绘制标注5. 鹰眼图功能的实现1）使用程序动态地向MapControl中添加图层(1)使用相对路径加载图层（要求同学们重点掌握这种加载图层的方式）Private Sub Form_Load()用相对路径打开数据，使程序具有通用性 MapControl1.AddShapeFile App.Path + .dataworld, country.shp MapControl1.AddShapeFile App.Path + .dataworld, rivers.shp MapControl1.AddShapeFile App.Path + .dataworld, cities.shpEnd Sub3）图层的相关操作（1）返回图层名称在列表框中显示出地图中各个图层的图层名，如下图所示：（2）控制图层的显示通过复选框控制图层的显示与隐藏，如下图所示：（3）控制图层的显示顺序通过拖动列表框中的图层名来控制图层的显示顺序，如下图所示：Private Sub List1_MouseMove(button As Integer, shift As Integer, X As Single, Y As Single)If button = 1 ThenIf idx (-1) Then item = List1.List(idx) End IfEnd IfEnd Sub代码：Private Sub List1_MouseDown(button As Integer, shift As Integer, X As Single, Y As Single)Dim i As IntegerIf button = 1 Then For i = 0 To (form5.List1.ListCount - 1) If List1.Selected(i) = True Then idx = i Exit For End If Next iEnd IfEnd SubPrivate Sub List1_MouseUp(button As Integer, shift As Integer, X As Single, Y As Single)Dim j As IntegerIf idx (-1) Then If item abcdefghijklmnopqrstuvwxyz Then For j = 0 To (form5.List1.ListCount - 1) If List1.Selected(j) = True Then Dim pMovedLyr As ILayer Set pMovedLyr = form5.MapControl1.Layer(idx) form5.MapControl1.MoveLayerTo idx, j item = abcdefghijklmnopqrstuvwxyz idx = (-1) form5.MapControl1.Refresh form5.TOCControl1.Update Exit For End If Next j Dim plyr As ILayer Dim k As Integer For k = 0 To (form5.MapControl1.LayerCount - 1) Set plyr = form5.MapControl1.Layer(k) form5.List1.List(k) = Next k End IfEnd IfCall Form6.SmallMap_UpDateDataEnd Sub2.使用ArcGIS Engine中封装好的对象实现地图的操作2）使用TocControl控件对图层进行高级操作（1）修改图层的名称（2）拖动图层改变图层的叠放顺序在TocControl控件的属性页中把“Enable Layer Drag and Drop”复选框选上即可以实现拖动图层改变图层顺序的操作。（3）在TocControl上给图层添加快捷菜单这部分实验要求鼠标右键点击TocControl控件的不同部位弹出不同的快捷菜单，并实现相应的功能。 当鼠标右键单击TocControl控件中的地图图标时，弹出如下的快捷菜单 当鼠标右键单击TocControl控件中的某个图层时，弹出如下的快捷菜单4.使用TextElement绘制标注选择country图层作为标注图层，以国家名进行图层的标注。标注的结果如下图所示：5.鹰眼图功能的实现具体要求： 实现鹰眼图和主地图同时装载一致的数据 当在主地图中进行缩放、漫游等操作时，同时更新鹰眼图到对应的范围和位置 在鹰眼图中点击地图或者拖动矩形框时，主地图能够定位到对应的范围和位置代码：Dim pFillSymbol As IFillSymbolSet pFillSymbol = New SimpleFillSymbolpFillSymbol.Color = pColorpFillSymbol.Outline = pOutlineDim pFillshapeEle As IFillShapeElementSet pFillshapeEle = pElepFillshapeEle.Symbol = pFillSymbolSet pEle = pFillshapeElepGraphicsContainer.AddElement pEle, 0pActiveView.PartialRefresh esriViewGraphics, Nothing, NothingIf button = 1 Then定义并实例化一个点对象Dim ppoint As IPointSet ppoint = New Point获得地图上的一个点坐标ppoint.PutCoords mapX, mapY使用centerat方法把主图中的显示范围设定为以点坐标为中心pEnv.CenterAt ppointMapControl1.Extent = pEnvEnd IfEnd SubSet pEnv = newEnvelope 得到新的范围Set pGraphicsContainer = MapControl2.MapSet pActiveView = pGraphicsContainer在绘制新的矩形框前，清除Map对象中的所有图形元素pGraphicsContainer.DeleteAllElementsDim pRectangelEle As IRectangleElement 定义一个矩形元素对象Set pRectangelEle = New RectangleElementDim pEle As IElementSet pEle = pRectangelElepEle.Geometry = pEnvDim pColor As IRgbColorSet pColor = New RgbColorpColor.RGB = 255pColor.Transparency = 255产生一个线符号对象Dim pOutline As ILineSymbolS