GIS应用系统中专题地图的绘制.docVIP

. PAGE .. 重 庆 交 通 大 学 学 生 实 验 报 告 实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 开 课 时 间 2011 至 2012 学年第 1 学期 总 成 绩 教师签名 目录 TOC \o 1-3 \h \z \u HYPERLINK \l _Toc313009240 实验五 GIS应用系统中专题地图的绘制 PAGEREF _Toc313009240 \h 3 HYPERLINK \l _Toc313009241 一、实验内容 PAGEREF _Toc313009241 \h 3 HYPERLINK \l _Toc313009242 二、实验要求 PAGEREF _Toc313009242 \h 3 HYPERLINK \l _Toc313009243 三、实验步骤 PAGEREF _Toc313009243 \h 3 HYPERLINK \l _Toc313009244 1、系统完善； PAGEREF _Toc313009244 \h 3 HYPERLINK \l _Toc313009245 2、标注型专题地图 PAGEREF _Toc313009245 \h 4 HYPERLINK \l _Toc313009246 3、数值型专题地图 PAGEREF _Toc313009246 \h 6 HYPERLINK \l _Toc313009247 4、点密度专题地图 PAGEREF _Toc313009247 \h 10 HYPERLINK \l _Toc313009248 5、分类专题地图 PAGEREF _Toc313009248 \h 13 HYPERLINK \l _Toc313009249 6、图表专题地图 PAGEREF _Toc313009249 \h 16 HYPERLINK \l _Toc313009250 四、实验成果 PAGEREF _Toc313009250 \h 19 HYPERLINK \l _Toc313009251 五、实验心得 PAGEREF _Toc313009251 \h 19 实验五 GIS应用系统中专题地图的绘制 一、实验内容 1、学习运用代码在所编系统中进行专题地图的绘制； 2、完善系统。 二、实验要求 1、完善系统，实现在主窗体中调用多个窗体； 2、实现标注型专题地图的制作； 3、实现数值型专题地图的制作； 4、实现点密度专题地图的制作； 5、实现分类专题地图的制作； 6、实现图表专题地图的制作。 三、实验步骤 1、系统完善； 在主界面窗体中完善系统界面，在“专题地图”菜单栏下添加标注型专题地图、数值型专题地图、点密度专题地图、分类专题地图、标图表专题地图等选项，如图5-1 图5-1（系统界面） 2、标注型专题地图 由于学生水平局限，不能够在一个窗体中完成所有功能的，因此此实验在多个窗体中实现，添加名为“frmlabelrenderer”的窗口，设置其界面。 在代码窗口中写入以下代码： Option Explicit Dim Dbl As Boolean Private Sub DrawLayer() Dim dc As New DataConnection Dim layer As MapLayer dc.Database = App.Path + \..\ + Data If Not dc.Connect Then MsgBox 在指定的文件夹下没找到图层数据文件！ End End If Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(行政区) layer.Symbol.Color = moOrange layer.Symbol.Size = 1 layer.Symbol.Style = 2 layer.Symbol.OutlineColor = moBrown Map1.Layers.Add layer Set layer = New MapLayer Set layer.GeoDataset = dc.FindGeoDataset(行政区) layer.Symbol.Color = moRed