modglobals.vb

用VB.NET开发的GeoMedia一个实例

Option Strict Off
Option Explicit On 

Module Modpublics
    Public gobjConnection As New PClient.Connection()
    Public gobjGeomEdit As PClient.GeometryEditService
    Public objGeomDig As PClient.GeometryDigitizeService


    Public Const MSGBOX_ERROR As Double = (MsgBoxStyle.OKOnly + MsgBoxStyle.Exclamation)
    Public Const MSGBOX_INFO As Double = (MsgBoxStyle.OKOnly + MsgBoxStyle.Information)
    Public Const MSGBOX_QUESTION As Double = (MsgBoxStyle.OKCancel + MsgBoxStyle.Exclamation)
    Public nNextColor As Short

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

    Public vbCommon As New VBCommon.VBGisLib()
End Module