mod_public.bas

ArcEngine 这是基于AE组件的源代码

Attribute VB_Name = "Mod_public"

'用于判断是否arcEngine有效
Public m_pAoInitialize As IAoInitialize

'用于保存或加入新图层
Public m_pDocument As IMapDocument


'用于保存MXD文件路径
Public m_MxdPath As String
Public m_MxdFileName As String

'用于保存数据库的连接信息
Public m_Server As String
Public m_Instance As String
Public m_User As String
Public m_PassWord As String
Public m_version As String


'连接属性
Public m_pWorkspaceFactory As IWorkspaceFactory
Public m_pFeatureWorkspace As IFeatureWorkspace
Public m_pWorkspace As IWorkspace
Public m_pPropSet As IPropertySet


Public m_pVersionedWorkspace As IVersionedWorkspace


'编辑变量

Public m_bEditingFtr As Boolean
Public m_bSketching As Boolean
Public m_bSelecting As Boolean
Public m_bRolateing As Boolean


Public m_pCurrentLayer As ILayer

Public m_pMap As iMap



Public Measure_Cursor  As esriSystem.OLE_HANDLE


Option Explicit
'用于判断用户所操作的功能
Public m_CheckOperate As Long


Public Const isUndo = 101
Public Const isRedo = 102
Public Const isQuery = 103
Public Const isSelect = 104


Public Const isZoomOut = 51
Public Const isZoomIn = 52
Public Const isZoomPan = 53
Public Const isZoomFull = 54


Public Const isStartEdit = 151
Public Const isStopEdit = 152
Public Const isDeleteEdit = 153

Public Const isEditTask = 154
Public Const isEditTarget = 155

Public Const isMeasure = 201
Public Const isTip = 202
Public isCheckTip As Long
Public isCheckTipListIndex As Long


Public Const isRolateFeature = 210