ARCMAp实例.ppt

在VB环境中加载Mapcontrol的步骤 第一步：首先透过“部件”在form工具箱中添 加MapControl控件，然后通过拖动双击map控件 的方法，将控件添加到form窗体之上，并调 整大小。 * 选择将要显示在地图上的数据 你可以通过 地图控件的属性页上的属性设置功能，指定将被显示在地图上的数据. 第二步：在地图控件上方点击右键，出现右键菜单.在 出现的右键菜单中选择“Properties…”命令，以显示 控件的属性页。 * 第三步：点击图层列表框中的图层 ，然后点 击“属性”。可对图层的属性进行设置 添加地图 文档文件 * 第四步：运行工程在工具栏上 点击运行按钮测试你的程序，如果要停止程序运行在VB工具栏上 点击停止按钮 最后一步，保存工程 * 添加代码实现放缩功能 例子：在form窗体上加载地图控件，4个命令按钮分别实现放大、缩小、全图显示、退出的功能，当鼠标在map地图上点击左键时实现拉框放大，点击右键时实现漫游功能。 //实现放大的代码 Dim pEnv As esriGeometry.IEnvelope Set pEnv = New esriGeometry.Envelope Set pEnv = MapControl1.Extent pEnv.Expand 0.5, 0.5, True