第6章_ArcGIS_Engin的e二次开发(矢量数据空间分析).ppt

第6章 ArcGIS Engine二次开发 (矢量数据空间分析);在这一部分中，您将学习到鹰眼、缓冲区分析、叠置分析?、地图编辑及网络分析等ArcGIS Engine二次开发实例。;;; 为 ToolbarControl? 添加地图浏览的功能按钮，如放大、缩小、漫游等?为 MenuStrip中添加两个菜单?;双击菜单栏中的“打开 MXD 文件”添加打开代码。? Dim sFilePath As String 调用OpenFileDialog，获取文件路径并打开地图文件 OpenFileDialog1.FileName = OpenFileDialog1.Title = 打开地图文件 OpenFileDialog1.Filter = MapDocument (*.mxd)|*.mxd If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then sFilePath = OpenFileDialog1.FileName FilePath = sFilePath If Not sFilePath = Then Me.AxMapControl1.LoadMxFile(sFilePath) End If End If Me.AxMapControl1.Extent = Me.AxMapControl1.FullExtent ;在 MapControl 的事件中选择 OnExtentUpdated事件并添加代码：; pGra.DeleteAllElements() Dim pRectangleEle As IRectangleElement pRectangleEle = New RectangleElement Dim pEle As IElement pEle = pRectangleEle pEle.Geometry = pEnv Dim pColor As IRgbColor pColor = New RgbColor pColor.RGB = RGB(255, 0, 0) pColor.Transparency = 255 Dim pOutline As ILineSymbol pOutline = New SimpleLineSymbol pOutline.Width = 1 pOutline.Color = pColor pColor = New RgbColor pColor.RGB = RGB(255, 0, 0) pColor.Transparency = 0; Dim pFillSymbol As IFillSymbol pFillSymbol = New SimpleFillSymbol pFillSymbol.Color = pColor pFillSymbol.Outline = pOutline Dim pFillShapeEle As IFillShapeElement pFillShapeEle = pEle pFillShapeEle.Symbol = pFillSymbol pGra.AddElement(pFillShapeEle, 0) pAv.PartialRefresh(esriViewDrawPhase.esriViewGraphics, Nothing, Nothing) End Sub ;为工程新建一个窗体 Form2,在 Form2中添加第二个 MapControl 控件 并添加如下引用： Imports ESRI.ArcGIS.Geometry 在 Form2的 FormLoad 事件中为 Form2的 MapControl 控件添加地图数据 ;为 Form2 添加 OnMouseDown 事件，并在实践中添加如下代码：;双击 Form1菜单栏中的