VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPointingServices"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

'*** geoInterface API function declarations
Private Declare Function fnEiqvChangePointingProc Lib "EIQVBI.DLL" _
    (ByVal lHView As Long, _
     ByVal procname As String) As Long

Private Declare Function fnEiqvFreePST Lib "EIQVBI.DLL" _
    () As Long

Private Declare Function fnEiqvInitPointing Lib "EIQVBI.DLL" _
    (ByVal lHView As Long) As Long

Private Declare Function fnEiqvLoadPST Lib "EIQVBI.DLL" _
    (ByVal FileName As String) As Long

Private Declare Function fnEiqvPtgRetCode Lib "EIQVBI.DLL" _
    (ByVal lHView As Long, _
     ByVal rc As Long) As Long

Private Declare Function fnEiqvQueryPtgProc Lib "EIQVBI.DLL" _
    (ByVal lHView As Long, _
     ByVal lOpt As Long, _
     setid As Long, _
     ByVal setname As String, _
     procid As Long, _
     ByVal procname As String) As Long

Private Declare Function fnEiqvSelectPointingSet Lib "EIQVBI.DLL" _
    (ByVal lHView As Long, _
     ByVal setname As String) As Long

Private Declare Function fnEiqvTermPointing Lib "EIQVBI.DLL" _
    (ByVal lHView As Long) As Long

'*** Module variable declarations
Private mobjError As clsError         ' API error handler
Private mobjEnvironment As clsEnvironment
'*** Public property declarations
Public Property Let pobjError(objError As clsError)
    Set mobjError = objError
End Property
Public Property Get pobjError() As clsError
    Set pobjError = mobjError
End Property
'*** Public property declarations
Public Property Let pobjEnvironment(objEnvironment As clsEnvironment)
    Set mobjEnvironment = objEnvironment
End Property
Public Property Get pobjEnvironment() As clsEnvironment
    Set pobjEnvironment = mobjEnvironment
End Property
'*** Public method declarations
Public Sub sbChangePointingProc(ByVal lHView As Long, ByVal sProcName As String)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvChangePointingProc(lHView, sProcName)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.sbChangePointingProc", _
        "fnEiqvChangePointingProc", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbChangePointingProc", Err.Description)

End Sub
Public Function fnGetPtgRetCode(ByVal lHView As Long) As Long

    Dim lReturnCode As Long
    Dim lPtgRetCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvPtgRetCode(lHView, lPtgRetCode)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.fnGetPtgRetCode", _
        "fnEiqvPtgRetCode", lReturnCode)
    
    fnGetPtgRetCode = lPtgRetCode

CommonExit:
    Exit Function

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.fnGetPtgRetCode", Err.Description)

End Function
Public Sub sbLoadPST(ByVal sFileName As String)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvLoadPST(sFileName)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("sbLoadPST", _
        "eiqvLoadPST", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbLoadPST", Err.Description)

End Sub
'*** Public method declarations
Public Sub sbFreePST()

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvFreePST()
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("sbFreePST", _
        "fnEiqvFreePST", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbFreePST", Err.Description)

End Sub
Public Sub sbInitialize(ByVal lHView As Long)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvInitPointing(lHView)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.sbInitialize", _
        "fnEiqvInitPointing", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbInitialize", Err.Description)
    
End Sub
Public Sub sbQueryPtgProc(ByVal lHView As Long, _
    ByVal lOpt As Long, _
    ByVal lSetIt As Long, _
    ByVal sSetName As String, _
    ByVal lProcId As Long, _
    ByVal sProcName As String)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvQueryPtgProc(lHView, lOpt, lSetIt, sSetName, lProcId, sProcName)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.sbQueryPtgProc", _
        "fnEiqvQueryPtgProc", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbQueryPtgProc", Err.Description)

End Sub
Public Sub sbSelectPointingSet(ByVal lHView As Long, ByVal sSetName As String)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvSelectPointingSet(lHView, sSetName)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.sbSelectPointingSet", _
        "fnEiqvSelectPointingSet", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbSelectPointingSet", Err.Description)

End Sub
Public Sub sbStart(lHView As Long)
    
    Dim objEiqMap As eiqmap

    On Error GoTo ErrorHandler

    Call pobjEnvironment.sbGetMap(lHView, objEiqMap)

    Call objEiqMap.StartPointing

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbStart", Err.Description)

End Sub
Public Sub sbStop(ByVal lHView As Long)

    Dim objEiqMap As eiqmap

    On Error GoTo ErrorHandler

    Call pobjEnvironment.sbGetMap(lHView, objEiqMap)

    Call objEiqMap.StopPointing

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbStop", Err.Description)

End Sub
Public Sub sbStartDpe(ByVal lHView As Long, ByVal dpe_type As Long)
    
    Dim objEiqMap As eiqmap

    On Error GoTo ErrorHandler

    Call pobjEnvironment.sbGetMap(objEiqMap, objEiqMap)

    Call objEiqMap.StartDpe(dpe_type)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbStartDpe", Err.Description)

End Sub
Public Sub sbStopDpe(ByVal lHView As Long)
    
    Dim objEiqMap As eiqmap

    On Error GoTo ErrorHandler

    Call pobjEnvironment.sbGetMap(lHView, objEiqMap)

    Call objEiqMap.StopDpe

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbStopDpe", Err.Description)

End Sub
Public Sub sbTerminate(ByVal lHView As Long)

    Dim lReturnCode As Long

    On Error GoTo ErrorHandler

    lReturnCode = fnEiqvTermPointing(lHView)
    If lReturnCode <> 0 Then Call pobjError.sbEiqErrorHandler("clsPointingServices.sbTerminate", _
        "fnEiqvTermPointing", lReturnCode)

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbTerminate", Err.Description)
    
End Sub
Public Sub sbUndoDpe(ByVal lHView As Long)
    
    Dim objEiqMap As eiqmap

    On Error GoTo ErrorHandler

    Call pobjEnvironment.sbGetMap(lHView, objEiqMap)

    Call objEiqMap.UndoDpe

CommonExit:
    Exit Sub

ErrorHandler:
    Call pobjError.sbVBErrorHandler(Err.Number, "clsPointingServices.sbUndoDpe", Err.Description)

End Sub
Private Sub Class_Initialize()

    pobjError = New clsError

End Sub
Private Sub Class_Terminate()

    pobjError = Nothing

End Sub