module1.bas

来自「mo在地图制作中的介绍」· BAS 代码 · 共 22 行

Attribute VB_Name = "Module1"
Option Explicit
Public DC As New MapObjects2.DataConnection
Public gds As New MapObjects2.GeoDataset
Public FName As String
Public ShpLayer As New MapObjects2.MapLayer
Public addtype As String
Public str As String
Public moSymbol As New MapObjects2.Symbol
Public moPolygons As New Collection
Public molines As New Collection
Public collGtextStrings As New VBA.Collection
Public collGtextPoints As New VBA.Collection

Public g_selectedFeatures As MapObjects2.Recordset
Public g_searchSet As MapObjects2.Recordset
'搜索所依据的几何对象
Public g_searchShape As Object
Public g_selectedBounds As MapObjects2.Rectangle
Public g_searchBounds As MapObjects2.Rectangle