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 '''是否為編輯的點移動狀態(tài)
    Public strFiledName As String '''編輯圖形字段名
    Public rsGrecordset As PClient.GRecordset '''用以編輯的記錄集全局對象
    Public gobjHandleStyle, gobjHandleStyle1 As New PView.HandleStyle()
    '''︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼︼

    Public vbCommon As New VBCommon.VBGisLib()
End Module