文件名称：DBS组件开发示例-基于微信平台的气象信息可视化
文件大小：706KB
文件格式：PDF
更新时间：2024-06-28 04:36:51
MAPGIS67 二次开发 教程 VB 中地从书
11.4 DBS组件开发示例 11.4.1 组件开发的一般步骤： 在 Visual Basic程序中使用图库组件对象所要求的步骤是： 1) 嵌入图库组件对象类型库。 2) 建立图库组件对象。 在Visual Basic中有两个方法用于建立MAPGIS对象，这两个方法都涉及到使用Dim语句声明 特定类型的对象变量。为了实际建立一个MAPGIS对象的新实例，可以在Dim语句中使用New关 键字或者使用CreateObject函数。 方法一：使用New关键字创建新的MAPGIS对象的语句是： Dim pDBSLayer As New DBSLayer 方法二：使用CreateObject函数声明和创建一个新的MAPGIS对象： Dim pDBSLayer As DBSLayer Set pDBSLayer = CreateObject("MapGisDBSCom.DBSLayer") 3) 使用图库组件对象和其他 VB对象。 4) 基本的图库操作以及其它操作。 5) 释放图库组件对象。 11.4.2 DBS组件开发示例 该示例程序包括 DBS文件的打开，显示以及纯属性条件数据提取等部分的内容，具体步骤如下： 1) 添加 EditView控件，该控件对象封装了MAPGIS编辑处理的基本方法，包括了几乎所有点、 线、区的编辑功能以及图层处理、数字化和基本的文件操作等功能，还封装了与图形显示有关的操 作，如：放大窗口、缩小窗口、移动窗口、坐标转换、闪烁图元。这里我们将利用它来进行 DBS 的显示。 2) 定义相关变量。 3) 建立 DBSArea和 DBSLayer对象。 Dim pDBSArea As DBSArea '图库工作区对象 Dim pDBSLayer As DBSLayer '显示对象 Set pDBSLayer = New DBSLayer Set pDBSArea = pDBSLayer.WorkArea '一定要用 set