SuperMap VB二次开发.pptVIP

SuperMap Objects开发基础 SuperMap Objects开发基础 3.2 控件的关联 SuperLegend控件是对地图窗口SuperMap中显示的图层进行管理，因此，SuperLegend控件需要和SuperMap地图窗口进行关联。工作空间管理控件（SuperWkspManager）是对工作空间中的数据进行可视化显示的控件，因此需和工作空间控件（SuperWorkspace）进行关联。 SuperMap Objects主要控件在 VB中的关联方法如下： SuperLegend.Connect SuperMap.Handle SuperMap.Connect SuperWorkspace.Handle SuperLayout.Connect Superworkspace.Handle SuperWkspManager.Connect Superworkspace.Handle SuperGridView.Connect objRecordset SuperMap Objects开发基础 3.3 数据源的使用 SuperMap Objects开发基础 3.3 数据集的使用 SuperMap Objects开发基础 3.3 控件的断开 应用程序在使用完控件，退出程序之前，除了要释放全局变量之外，还应按照一定的顺序断开控件之间的连接，方法如下(VB6.0): SuperLegend.Disconnect SuperMap.Close SuperMap.Disconnect SuperLayout.Disconnect SuperWkspManager.Disconnect SuperWorkspace.Close Private Sub Form_Load() 建立地图窗口与工作空间的联系，用于显示数据 SuperMap1.Connect SuperWorkspace1.Object Dim strAlias As String 数据源别名 Dim nEngineType As seEngineType 数据源引擎类型 Dim strDataSourceName As String 数据源所在路径 Dim objDataSource As soDataSource 数据源对象,指向打开的数据源 Dim bReadOnly As Boolean 数据源是否只读打开 Dim objLayer As soLayer 图层对象变量,指向将要打开的图层 Dim bAddToHead As Boolean 是否将数据集加到地图最上一层显示 Dim i As Integer 数据集索引 SuperMap Objects开发基础 3.4 例子 strAlias = MyDataSource 别名可任意,但建议取数据源文件名相同的名称，便于区分 nEngineType = sceSDBPlus 可打开不同引擎的数据源，此处打开文件型 SDBPlus strDataSourceName = C:\MyProject\world.sdb 数据源所在路径，也可以是相对路径 bReadOnly = False 非只读打开 打开数据源 Set objDataSource = SuperWorkspace1.OpenDataSource(strDataSourceName, strAlias, nEngineType, bReadOnly) SuperMap Objects开发基础 If objDataSource Is Nothing Then MsgBox 打开数据源失败！, vbInformation Else For i = 1 To objDataSource.Datasets.Count 把数据源中的所有数据集加入到 SuperMap 中显示 bAddToHead = True Set objLayer = SuperMap1.Layers.AddDataset (objDataSource.Datasets.Item(i), bAddToHead) Next End If 刷新地图窗口 SuperMap1.Refresh SuperMap Obj