moddefinition.bas

地理信息系统工程案例精选程序,本书所有案例均需要单独配置

Attribute VB_Name = "modDefinition"

Public Const NoneRenderer = -1
Public Const ClassRenderer = 0
Public Const ValueRenderer = 1
Public Const LabelRenderer = 2
Public Const DocMax = 20
Public Const PicMax = 20

Public Enum SearchTYPE
    byPoint = 0
    byCircle = 1
    byPolygon = 2
    byRectangle = 3
    byExpression = 4
End Enum

Public Enum ModifyTYPE
    Add = 0
    Del = 1
    Edit = 2
    Move = 3
End Enum

Public Type RGBColor
    Red As Integer
    Green As Integer
    Blue As Integer
End Type

Private Type DocDef
    strName As String
    strPath As String
End Type

'最大图层数
Public Const CusLayerMax = 100
'每层允许最大数据连接数
Public Const CusRelationMax = 10
'每层允许最大隐藏字段数
Public Const HideFieldMax = 10
'最大分组数
Public Const LayerGroupMax = 10
'每组允许包含图层数
Public Const LayerGroupContentMax = 20

'数据连接
Public Type CusRelations
    '源表中的键，默认为sid
    FromField As String
    '数据库名（或xBase数据库目录）
    Database As String
    '表名
    Table As String
    '目标表中的键，默认为sid
    ToField As String
End Type
    
'图层信息结构
Public Type CusLayer
    '图层名
    strName As String
    '图层文件的路径
    strPath As String
    '标注所依据的字段
    strLabelField As String
    '隐藏字段信息
    HideField(0 To HideFieldMax) As String
    '隐藏字段数
    HideFieldCount As Long
    '数据连接信息
    Relation(0 To CusRelationMax) As CusRelations
    '数据连接数
    RelationCount As Long
    '图片字段
    PictureField As String
    '其它数据连接
    MultiRelate As CusRelations
    '是否显示标注
    bVisibleOfLabel As Boolean
    '是否显示在图例中
    bVisibleInTreeview As Boolean
    '图层是否可编辑
    bEditable As Boolean
    '数据是否可视
    bVisibleOfData As Boolean
     
End Type

'图层分组信息结构
Type cusLayerGroup
    '组名
    strGroupName As String
    '组中所有层的索引
    lLayerIndex(0 To LayerGroupContentMax) As Long
    '组中所有层的层名
    llayerName(0 To LayerGroupContentMax) As String
    '组中所有层数
    lLayerCount As Long
    
End Type

Public CustomLayers(0 To CusLayerMax) As CusLayer
Public CustomLayerCount As Long
Public LayerGroup(0 To LayerGroupMax) As cusLayerGroup
Public LayerGroupCount As Long
Public bIsDbaseDatabase As Boolean

Public bIsConfig As Boolean
Public strFunName As String                        '现在正在进行的操作，(根据frmMain中activebar中的按钮状态确定)

Public RecModify As MapObjects2.Recordset          'the Recordset which will be changed
Public RecQuery As MapObjects2.Recordset           'the Recordset which was the Result of a query

Public g_searchSet As MapObjects2.Recordset
Public g_searchShape As Object                     'the Shape which the recQuery will be generated by

Public g_searchExpression As String                'Search Expression

Public g_HighlightShape As Object
Public g_HighlightSymbol As New Symbol

Public Partition As Single
Public ActiveLayer As Long

Public m_mapTip As New MapTip

Public bLocked As Boolean

Public LastExtent As New MapObjects2.Rectangle
Public NextExtent As New MapObjects2.Rectangle

'-------------------------------------------------------------------------------
'Definitions Below is the Arguments which can be changed by User
'These Arguments set the Environment of ProMap
'-------------------------------------------------------------------------------

Public Search_PointTolerance As Long          'the tolerance of point used by SearchMethod
Public Search_MaxResult As Long               'the max search results' quantity,if exceed,then ask user whether to display
Public Color_HighLight As Long
Public Color_RecQuery As Long