modglobals.bas

有关geomedia的一个全新的gis工程

Attribute VB_Name = "modGlobals"
Option Explicit


Global gobjConnection As New PClient.Connection
Global gobjGeomEdit As GeometryEditService
Global objGeomDig As GeometryDigitizeService


Global Const MSGBOX_ERROR = (vbOKOnly + vbExclamation)
Global Const MSGBOX_INFO = (vbOKOnly + vbInformation)
Global nNextColor As Integer

'''图形编辑变量
'''︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻︻
Global pnt1             As New Point                        '''点对象
Global IsSnap           As Boolean                          '''判断是否需要捕捉点
Global snapPnt          As Point                            '''捕获点
Global Myindex          As Integer                          '''捕获点的索引值
Global bCanEdit         As Boolean                          '''标记是否可编辑图形
Global pnt1Geom         As New PointGeometry
Global snapType         As Long                             '''捕获类型
Global bMovePoint       As Boolean                          '''是否为编辑的点移动状态
Global strFiledName     As String                           '''编辑图形字段名
Global rsGrecordset     As GRecordset                       '''用以编辑的记录集全局对象
Global gobjHandleStyle  As New HandleStyle
'''︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼