空间数据的显示和基本操作

空间数据的显示和基本操作第1页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作第2页，课件共30页，创作于2023年2月本章目标通过本章学习，能够使用SuperMapObjects控件编写代码，掌握并实现以下基本功能：

1、打开各种数据源；

2、显示空间几何图形；

3、能进行地图的放大、缩小等基本操作；

4、对地图窗口中的图层进行管理。第3页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作本章内容

4.1打开数据源

4.2空间数据的显示

4.3地图放大、缩小、漫游等基本操作

4.4图层管理第4页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.1打开数据源打开数据源思路：第5页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.1打开数据源控件

SuperWorkSpace、Button按钮事件

SuperWorkSpace.OpenDatasourceSuperWorkspace.OpenDatasourceEx

传递的参数不同，Ex用于打开数据库类型数据源第6页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.1打开数据源加载控件：SuperMapCoreControls核心控件，并将SuperWorkSpace控件添加到窗体上。控件及对象方法、事件功能描述SuperWorkspace1OpenDataSource打开数据源文件soDataSource打开数据源文件：语法描述soDatasourceSuperWorkspace.OpenDataSource(strDataSourceNameAsString,strAliasAsString,nEngineTypeAsseEngineType,bReadOnlyAsBoolean)第7页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作参数可选类型描述strDataSourceName必选String数据源文件全路径名（*.sdb）strAlias必选String数据源标识名（在同一个工作空间中必须唯一）nEngineType必选seEngineType数据源引擎类型bReadOnly必选Boolean是否只读4.1打开数据源参数说明：第8页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作实例：编写代码实现打开SDB数据源功能（1）窗体设计：添加Command控件到窗体上，将Command1.Caption属性设置为“打开数据源”。第9页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作（2）代码：PrivateSubCommand1_Click（）'打开数据源

DimobjDsAssoDataSource'定义数据源对象变量

DimstrDsNameAsString'定义数据源名称变量

strDsName=App.Path&''\world\world.sdb'''数据源相对路径

SetobjDs=SuperWorkspace1.OpenDataSource(strDsName,"world",sceSDBPlus,False)'打开数据源

IfobjDsIsNothingThen'判断是否打开成功

MsgBox''打开数据源失败！''ExitSubElseMsgBox''打开数据源成功！''EndIfSetobjDs=Nothing'释放变量EndSub第10页，课件共30页，创作于2023年2月本章内容

4.1打开数据源

4.2空间数据的显示

4.3地图放大、缩小、漫游等基本操作

4.4图层管理第4章空间数据的显示和基本操作第11页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.2空间数据的显示

加载控件：加载SuperMapCoreControls核心控件、工作空间管理器控件SuperWkspManager控件，并将SuperMap、SuperWorkspace控件和SuperWkspManager控件添加到窗体上。在工作空间中打开的数据源，可以通过VB中的TreeView控件、ListView控件将其显示出来。SuperMapObjects为了降低开发难度，提高开发效率，提供了专门的辅助控件——工作空间管理器控件SuperWkspManager，其主要功能是将工作空间中管理的所有数据进行树状的直观显示。显示方法只需以下两个步骤：

第12页，课件共30页，创作于2023年2月

Load/Unload事件

SuperWkspManager.ConnectSuperWorkspace.Handle

SuperMap1.ConnectSuperWorkspace1.Handle

SuperWkspManager.Disconnect

SuperWkspManager.Refresh控件

SuperWorkSpace、SuperWkspManager、SuperMap第4章空间数据的显示和基本操作第13页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作控件及对象方法、事件功能描述SuperWkspManager1LDbClick当用户在选项卡列表中某一项上双击鼠标左键时触发SuperMap1soLayers(对象)AddDataset用于把一个数据集添加到地图的图层集合中（1）将工作空间管理器控件和工作空间控件进行关联，方法为：PrivateSubForm_Load()SuperWkspManager1.ConnectSuperWorkspace1.Handle'在相关控件之间建立连接EndSub（2）在打开数据源成功后，刷新工作空间管理控件，方法为：SuperWkspManager1.Refresh

通过以上两个步骤，可将工作空间中的数据显示出来，但并没有将图形显示出来，以下通过实例介绍通过工作空间管理器控件打开数据集显示图形方法和过程。第14页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作语法描述１、工作空间管理控件的双击事件SuperWkspManager.LDbClick(nFlagAsSeSelectedItemFlag,strSelectedAsString,strParentAsString)参数说明：参数可选类型描述nFlag必选seSelectedItemFlag当前选中的项(Item)的类型，如数据源、数据集、地图、布局、线型库、符号库等。strSelected必选String选中的项的文本。如果是数据源，则是数据源别名；如果是数据集或者地图、布局，则是其名称。strParent必选String选中对象的父节点的名称，对数据集来说，就是数据源的名称，其他类型的选中无用。第15页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作参数可选类型描述objDataset必选soDataset要添加的数据集对象，可以是soDatasetVector或soDatasetRaster对象。bAddToHead必选Boolean表示是否将数据集添加到SuperMap最顶层，True表示添加到最顶层；False表示添加到最底层。语法描述

2、添加数据集到地图窗口的图层集中soLayersoLayers.AddDataset(objDatasetAssoDataset,bAddToHeadAsBoolean)参数说明：第16页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作实例：

双击工作空间管理器中的某个数据集后，即可将该数据集显示在地图窗口上窗体设计：将工作空间管理器控件、地图窗口控件添加到窗体上即

SuperWkspManager1、SuperMap1主要步骤：（1）判断选中的节点是否是数据集（IfnFlag=scsDatasetThen）；（2）将选中节点的父节点字符串（strParent）作为数据源的别名，获得要显示的数据集对应的数据源；（3）将选中节点的字符串（strSelected）作为数据集的名称，得到点中的数据集；（4）将步骤3中得到的数据集添加到地图窗口的图层中；（5）刷新地图窗口。第17页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作SuperWkspManager_LDbClick(nFlagAsSeSelectedItemFlag,strSelectedAsString,strParentAsString)DimobjDsAssoDataSource'数据源变量

DimobjDtAssoDataset'数据集变量

IfnFlag=scsDatasetThen'如果点中的是数据集

SetobjDs=SuperWorkspace1.Datasources(strParent)IfNot(objDsIsNothing)Then'如果数据源非空

SetobjDt=objDs.Datasets(strSelected)IfNot(objDtIsNothing)Then'如果数据集非空‘将选中的数据集添加到地图窗口的层中进行显示

SuperMap1.Layers.AddDatasetobjDt,TrueSuperMap1.RefreshEndIfEndIfEndIfSetobjDt=NothingSetobjDs=Nothing代码：第18页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作注：地图窗口中显示的图形数据来自于工作空间。因此，在显示数据之前，需要将SuperMap控件和SuperWorkspace控件进行关联。方法是：SuperMap1.ConnectSuperWorkspace1.Handle（通常写在Form_Load事件中），在使用完后需要断开控件之间的连接。PrivateSubForm_Load()SuperWkspManager1.ConnectSuperWorkspace1.Handle‘加载地图列表时需关联

SuperMap1.ConnectSuperWorkspace1.Handle‘地图显示时需关联EndSubPrivateSubForm_Unload(CancelAsInteger)SuperWkspManager1.DisconnectSuperMap1.CloseEndSub第19页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作本章内容

4.1打开数据源

4.2空间数据的显示

4.3地图放大、缩小、漫游等基本操作

4.4图层管理第20页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.3地图放大、缩小、漫游等基本操作控件及对象属性、方法功能描述SuperMap1Action改变地图窗口的当前操作ViewEntire全图显示语法描述SuperMap1.ActionseAction

通过该接口可以方便地实现地图窗口中的五十多种基本操作和编辑功能，包括：（1）基本操作功能：如放大、缩小、漫游、自由缩放和选择等功能；（2）图层基本编辑功能：如在地图窗口图层中直接创建点、线、面，以及圆、弧、椭圆等参数化的几何对象，还可以进行节点编辑，以及生成流动注记等功能；（3）跟踪层的相应功能：直接在跟踪层上添加各种几何对象。第21页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作参数常数描述seActionscaPan地图漫游scaZoomIn地图放大scaZoomOut地图缩小scaZoomFree地图自由缩放scaSelect单点方式选择目标scaRectSelect矩形方式选择目标scaCircleSelect圆形方式选择目标scaRegionSelect多边形方式选择目标…………参数说明：第22页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作实例：在地图窗口中进行放大、缩小、平移、自由缩放、全图和选择基本操作。本实例是增加了Toolbar与ImageList控件，制作了图标工具栏，实现了相应功能。代码：

PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1:SuperMap1.Action=scaPanCase2:SuperMap1.Action=scaZoomInCase3:SuperMap1.Action=scaZoomOutCase4:SuperMap1.Action=scaZoomFree2Case5:SuperMap1.ViewEntireCase6:SuperMap1.Action=scaSelectCase7:SuperMap1.Action=scaRectSelectCase8:SuperMap1.Action=scaCircleSelectCase9:SuperMap1.Action=scaRegionSelectEndSelectEndSub第23页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作

运行结果：第24页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作本章内容

4.1打开数据源

4.2空间数据的显示

4.3地图放大、缩小、漫游等基本操作

4.4图层管理第25页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作4.4图层管理采用SuperLegend图例控件进行图层管理图例控件用于管理地图窗口中所有图层的状态，使用非常方便。（1）将图例控件与地图控件相关联，方法是：SuperLegend1.ConnectSuperMap1.Handle；（2）当地图窗口中的图层发生变化时刷新图例，方法是：SuperLegend1.Refresh；（3）修改图例中图层属性后会触发SuperLegend_Modified事件，在该事件中刷新地图即可看到图层修改的结果。使用图例控件后，其对图层的基本控制的功能全部封装在控件的右键菜单中，用户可以直接使用完成对图层的控制。第26页，课件共30页，创作于2023年2月第4章空间数据的显示和基本操作控件及对象属性、事件功能描述SuperLegendModified当改变了图层的可见、可选择、可捕捉和设置图层风格等操作后触发此事件BackColor返回/设置图例控件的背景色EditLabels返回/设置是否可以编辑图例中显示的图层的名称Font返回