地理信息系统编程设计报告.docVIP

课程设计一 ArcEngine地图显示与浏览 一．准备工作 打开VB，添加控件 添加控件到窗体 3．添加工具栏 效果如下 二．操作步骤 （1）通过设置MapControl和TOCControl控件的属性，完成对图层的加载和控制 1）使用属性向MapControl中添加图层； 效果如下 2）在TOCControl控件的属性中绑定MapControl控件。 效果如下： （2）编程实现动态向MapControl中添加图层 Private Sub 打开文件_Click() Dim pGxDialog As IGxDialog Dim pGxFilter As IGxObjectFilter Dim pEnumGxObjects As IEnumGxObject Dim pLayer As IFeatureLayer Dim pGxDataset As IGxDataset Set pGxDialog = New GxDialog 过滤非FeatureClasses类型的对象 Set pGxFilter = New GxFilterFeatureClasses With pGxDialog .AllowMultiSelect = True 允许选择多个文件 .Title = 打开... .ButtonCaption = 添加图层 Set .ObjectFilter = pGxFilter .DoModalOpen Me.hWnd, pEnumGxObjects ========================= 如果是保存 .Title = 保存... .DoModalSave Me.hWnd ========================= End With If pEnumGxObjects Is Nothing Then Exit Sub pEnumGxObjects.Reset 重置枚举器 遍历所有在GxDialog对话框中选择的对象，并加载到MapControl Set pGxDataset = pEnumGxObjects.Next While Not pGxDataset Is Nothing Set pLayer = New FeatureLayer Set pLayer.FeatureClass = pGxDataset.Dataset pLayer.Name = pLayer.FeatureClass.AliasName Me.MapControl1.AddLayer pLayer 下一个 Set pGxDataset = pEnumGxObjects.Next Wend Me.TOCControl1.Update 刷新TocControl Call SmallMap_UpDateData Me.SmallMap.Refresh Dim pmap As IMap Dim a As Integer 得到控件中地图 Set pmap = MapControl1.Map 清空combo控件中文字 Combo1.Clear 遍历所有图层将图层名称加入combo控件 For a = 0 To pmap.LayerCount - 1 Combo1.AddItem pmap.Layer(a).Name Next 初始显示最上层图层名称 Combo1.ListIndex = 0 m_moveft = False End Sub 运行效果： （3）编程实现MapControl中图层的移动、隐藏和卸载 这三种功能均需要调用函数GetLayerByName Private Function GetLayerByName(ByRef Mapctrl As MapControl, ByVal strName As String) As ILayer Dim i, Count As Integer With Mapctrl Count = .LayerCount For i = 0 To Count - 1 If (.Layer(i).Name = strName) Then Set GetLayerByName = .Layer(i) Exit Function End If Next End W