实验五--图层加载与显示控制

实验五--图层加载与显示控制

实验五图层加载与显示控制

一、实验目的

1.学习程序运行前、运行时MO图层加载的方

法

2.学习SHP图层、SDE图层、CAD 、Coverage

图层图层加载和栅格数据加载方法

3.学习图层顺序控制、显示与否控制、矢量图层

色彩控制等

二、实验内容

1.运用各种不同的方法加载各种矢量图层数据

2.运用各种方法加载栅格图层数据

3.图层的上移、下移、隐藏、放大、缩小、漫游

三、实验环境与数据

VB6

MapObjects2.4

Xiangprj.shp

Ntschool.shp

四、实验要求

1.掌握程序运行前、运行时MO图层加载的方

法。

2.掌握SHP图层、Coverage图层、SDE图层、CAD图层加载和栅格数据加载方法。

3.掌握图层顺序控制、显示与否控制、矢量图层

色彩控制等。

五、实验任务

（一）程序演示

1、演示Shp矢量图层的加载

2、演示不同格式的栅格图层的加载

3、演示ArcInfo的Cov格式的图层加载

4、演示SDE图层的加载

5、演示CAD图层的加载

6、显示与隐藏演示

7、图层顺序控制演示

8、放大与缩小演示

9、漫游与全图演示

（二）实现方法

1、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

'将图层加载到地图中

yers.Add Mlyr

'刷新地图

Map1.Refresh

'End If

MsgBox

这是直接指定Shp文件所在的文件夹的加载方

法，也可以通过通用对话框方式加载。但是基本过程一样。所不同的只是修改数据联接对象的数据库属性和地理数据集的名称属性。具体方法参见实验一。

2、不同格式的栅格图层的加载

栅格数据加载的方法比较简单，包括一下三个过程：

步骤一定义一个栅格图层对象ilyr

步骤二确定这个栅格图层对象使用的栅格数据文件

步骤三将这个栅格图层对象加载到地图控件中

代码如下：

'定义一个栅格图层对象

Dim ilyr As New mapobjects2.ImageLayer

'确定这个对象使用的栅格数据文件

ilyr.File = "E:\mydoc\GIS二次开发\data\南通市区图.jpg"

'将这个图层对象加载到地图控件中

yers.Add ilyr

'刷新地图

Map1.Refresh

栅格数据的加载也可以使用通用对话框，不仅利用通用对话框选择文件，也可以利用通用对话框选择不同的栅格数据类型。MapObjects支持的栅格数据类型由安装时的选项确定。3、SDE图层的加载

SDE是空间数据引擎的简称，空间数据引

擎是操作保存在数据库中的空间数据的软件工具。由于需要操作数据库，所以必须用符合数据库的要求使用数据库。数据库保存了大量的数据，为了安全使用必须使用具有用户权限的用户名和密码，因此在连接SDE时首先需要明确连接的数据库服务器是什么、用户名是什么、密码、数据库。

具体过程如下：

步骤一建立数据库连接对象，定义数据库连接对象的各种属性，包括服务器、用户名、密

码、数据库

步骤二建立地理数据集对象，运用FindGeodataset方法寻找新建连接下的地

理数据集

步骤三建立矢量图层对象，将找到的地理数据集赋给图层对象的地理数据集属性步骤四添加图层

步骤五刷新地图

Vb代码如下：

'定义一个地理数据连接对象dc

Dim dc As New MapObjects2.DataConnection '定义一个地理数据集对象gs

Dim gs As MapObjects2.GeoDataset

'定义一个矢量图层对象lyr

Dim lyr As New MapObjects2.MapLayer

'定义数据库连接对象需要连接的SDE数据库，