實验五图层加载与显示控制.docVIP

实验五 图层加载与显示控制 一、实验目的 学习程序运行前、运行时MO图层加载的方法 学习SHP图层、SDE图层、CAD 、Coverage图层图层加载和栅格数据加载方法 学习图层顺序控制、显示与否控制、矢量图层色彩控制等 二、实验内容 运用各种不同的方法加载各种矢量图层数据 运用各种方法加载栅格图层数据 图层的上移、下移、隐藏、放大、缩小、漫游 三、实验环境与数据 VB6 MapObjects2.4 Xiangprj.shp Ntschool.shp 四、实验要求 掌握程序运行前、运行时MO图层加载的方法。 掌握SHP图层、Coverage图层、SDE图层、CAD图层加载和栅格数据加载方法。 掌握图层顺序控制、显示与否控制、矢量图层色彩控制等。 五、实验任务 （一）程序演示 演示Shp矢量图层的加载 演示不同格式的栅格图层的加载 演示ArcInfo的Cov格式的图层加载 演示SDE图层的加载 演示CAD图层的加载 显示与隐藏演示 图层顺序控制演示 放大与缩小演示 漫游与全图演示 （二）实现方法 Shp矢量图层的加载 Shp矢量数据的加载分为四个过程： 通过定义一个地理数据连接对象Dc，确定Dc连接的数据库，从而建立一个到包含Shp文件的文件夹的连接 使用FindGeodataset方法在新建的数据连接下的查找需要的地理数据集合 建立一个矢量图层对象，将找到的地理数据集合赋给矢量图层对象的地理数据集合属性 将矢量图层添加到地图控件中，刷新地图 将以上过程编写成VB代码如下： 定义一个地理数据连接对象dc 定义一个地理数据集对象gs 定义一个矢量图层对象mlyr Dim dc As New mapobjects2.DataConnection Dim gs As mapobjects2.GeoDataset Dim Mlyr As New mapobjects2.MapLayer 确定地理数据连接对象dc的属性 dc.Database = E:\mydoc\GIS二次开发\data 判断连接是否成功 If dc.Connect Then 查找连接对象中指定名称的地理数据集 Set gs = dc.FindGeoDataset(newcun) End If 判断是否是符合要求的地理数据集 If Not gs Is Nothing Then 将找到的地理数据集赋给mlyr的地理数据集对象 Set Mlyr.GeoDataset = gs End If 判断图层是否有效 If mlyr.Valid Then 将图层加载到地图中 Map1.Layers.Add Mlyr 刷新地图 Map1.Refresh End If MsgBox gs.Name 这是直接指定Shp文件所在的文件夹的加载方法，也可以通过通用对话框方式加载。但是基本过程一样。所不同的只是修改数据联接对象的数据库属性和地理数据集的名称属性。具体方法参见实验一。 不同格式的栅格图层的加载 栅格数据加载的方法比较简单，包括一下三个过程： 定义一个栅格图层对象ilyr 确定这个栅格图层对象使用的栅格数据文件 将这个栅格图层对象加载到地图控件中 代码如下： 定义一个栅格图层对象 Dim ilyr As New mapobjects2.ImageLayer 确定这个对象使用的栅格数据文件 ilyr.File = E:\mydoc\GIS二次开发\data\南通市区图.jpg 将这个图层对象加载到地图控件中 Map1.Layers.Add ilyr 刷新地图 Map1.Refresh 栅格数据的加载也可以使用通用对话框，不仅利用通用对话框选择文件，也可以利用通用对话框选择不同的栅格数据类型。MapObjects支持的栅格数据类型由安装时的选项确定。 SDE图层的加载 SDE是空间数据引擎的简称，空间数据引擎是操作保存在数据库中的空间数据的软件工具。由于需要操作数据库，所以必须用符合数据库的要求使用数据库。数据库保存了大量的数据，为了安全使用必须使用具有用户权限的用户名和密码，因此在连接SDE时首先需要明确连接的数据库服务器是什么、用户名是什么、密码、数据库。 具体过程如下： 建立数据库连接对象，定义数据库连接对象的各种属性，包括服务器、用户名、密码、数据库 建立地理数据集对象，运用FindGeodataset方法寻找新建连接下的地理数据集 建立矢量图层对象，将找到的地理数据集赋给图层对象的地理数据集属性 添加图层 刷新地图 Vb代码如下： 定义一个地理数据连接对象dc Dim dc As New MapObjects2.DataConnection 定义一个地理数据集对象gs Dim gs As MapObjects2.GeoDataset 定义一个矢量图层对象lyr D