实验四 MapObjects 程序设计入门.doc

实验四 MO程序设计初步 一、实验目的 1 了解MapObjects的基本情况和主要功能 2 了解MapObjects图层的加载 3 了解MapObjects地图操作的基本功能 4 了解图层的基本功能开发 5 了解com技术开发的思想 二、实验准备 局域网多媒体微机实验室； 实习数据资料准备。 三 实验要求 撰写实验报告 实验类型：综合性 实验学时：2学时 四、实验内容与步骤 1手工图层加栽 1．1 Shapefile文件和图层的基本概念 进行GIS赐开发前，首先要有arcgis格式的GIS图层数据文件。这些文件可以从 ARCInfo中产生，也可以从其它地理信息系统，如MapInfo、GeoMedia、MapGis等系统 中转换而来* M0可以便用的数据文件的格式主要有Shapefile、Coverage、SDE、VPF、和各种CAD文件。这里主要介绍针对Shapefile文件的开发。 Shapefile文件采用早期的dBase数据库管理模式，一个文件夹是一个数据库，文件 夹的不同文件就是数据库中的表，每个表代表GIS图中的一个图层。 每个图层文件必须包含3个以上的特征文件，才能在MO中使用。他们是空间数据文件shp、索引文件shx和属性数据文件dbf。 1.2添加MAP控件 第一步：启动VB6.0，在开始出现的向导中选择新建工程（标准EXE），确定。 第二步：在工具栏上点击右键（工具栏位于VB窗口的左边）在出现的右键菜单中点击“部件”命令。或者在工程菜单中找到部件出现如下窗口： 这样就会在控件中出现 1.3手工加载图层 在Map1上右击，在菜单中选择“特性”，出现如下窗口，点击中间的ADD 或remove，可以加载和卸载图层。（ESRI程序中有样例数据，同学们可以试一下，例如：D:\ESRI\ESRIDATA\WORLD数据） 运行后就可以看到显示的地图： 1.4程序加载图层： 利用dc.Database = 文件路径设置图层文件所在目录，其中，dc.Database = app.path为设置与程序存在的文件夹一样的目录 例如：Option Explicit ‘在窗体模块中强制声明变量’ Private Sub Form_Load() Dim dc As New mapobjects2.DataConnection 创建了对象变量的同时创建实例 Dim layer As MapLayer 创建了一个空的对象变量而未创建实例 Set layer = New MapLayer dc.Database = D:\ESRI\ESRIDATA\WORLD If dc.Connect Then layer.GeoDataset = dc.FindGeoDataset(rivers) Map1.Layers.Add layer Map1.Refresh Else MsgBox 在指定文件夹下面没有找到相应图层数据文件！ End If End Sub 几点说明 ????????? MapLayer对象 表示地理坐标数据层，而这些地理坐标数据在Map控件中可以画出带GeoDataset的一类地理特征集。 ????????? GeoDataset 是MapLayer对象的属性，是一个只写属性，用来设置图层相对应的空间数据和属性数据的数据库。 ????????? DataConnection对象 表示数据库的连接，属性包括Database：设置和读取数据库的连接，如果数据为shape文件时，此值表示shape文件所在的目录路径和目录名，自动产生ODBC连接。 ?在将对象的引用赋给变量、数据类型的元素或可写对象的属性时，须使用关键字“set”，在创建对象类的实例时，须使用关键字“new”。 2地图操作的基本功能 1、地图放大：Map1.Extent 2、地图移动：Map1.pan 3、地图缩小：预先设置缩小倍数 4、恢复原始大小：set map1.extent = map1.fullextent 几点说明： ????????? Extent属性 这是表示当前图形显示范围的一个变量，可以修改和读取这个变量，这个变量的类型为矩形（Rectangle）类型。 ????????? Fullextent属性 表示所有图层总的坐标范围，变量类型为矩形（Rectangle）类型，主要用于图形的全图显示。 ????????? MousePointer 鼠标指针类型变量，可以设置和读取，表示当鼠标在Map控件上移动时鼠标显示的类型。如：Map1.MousePointer = moZoomIn。 例如：Option Explicit Private Sub Command1_Click() Dim r As Ma