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

实验二 地图显示和图层控制实验数据：country.shp、 rivers.shp、 cities.shp实验内容：加载图层及相关操作使用ArcGIS Engine中封装好的对象实现地图的操作使用TocControl控件控制图层使用TextElement绘制标注鹰眼图功能的实现1）使用程序动态地向MapControl中添加图层(1)使用相对路径加载图层（要求同学们重点掌握这种加载图层的方式）Private Sub Form_Load()用相对路径打开数据，使程序具有通用性 MapControl1.AddShapeFile App.Path + \..\data\world\, country.shp MapControl1.AddShapeFile App.Path + \..\data\world\, rivers.shp MapControl1.AddShapeFile App.Path + \..\data\world\, 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 Thenidx = 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 = abcdefghijklmnopqrstuvwxyzidx = (-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) = plyr.name Next k End IfEnd IfCall Form6.SmallMap_UpDateDataEnd Sub2.使用ArcGIS Engine中封装好的对象实现地图的操作2）使用TocControl控件对图层进行高级操作（1）修改图层的名称（2）拖动图层改变图层的叠放顺序在TocControl控件的属性页中把“Enable Layer Drag and Drop”复选