You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
882 B
29 lines
882 B
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
Persistable = 0 'False
|
|
DataBindingBehavior = 0 'vbNone
|
|
DataSourceBehavior = 0 'vbNone
|
|
END
|
|
Attribute VB_Name = "EventReturn"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = True
|
|
Attribute VB_Description = "APE Expediter Event Return Interface"
|
|
Option Explicit
|
|
|
|
'******************
|
|
'Events
|
|
'******************
|
|
Public Event ServiceResult(ByVal sServiceID As String, ByVal vServiceReturn As Variant, ByVal sServiceError As String)
|
|
Attribute ServiceResult.VB_Description = "Returns a Service Request result"
|
|
|
|
'*******************
|
|
'Friend methods
|
|
'*******************
|
|
Friend Sub RaiseServiceResult(sServiceID As String, vServiceReturn As Variant, sServiceError As String)
|
|
RaiseEvent ServiceResult(sServiceID, vServiceReturn, sServiceError)
|
|
End Sub
|
|
|