home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / APE / AEQUEUE / CLSSERVC.CLS < prev    next >
Encoding:
Visual Basic class definition  |  1996-11-07  |  1.8 KB  |  34 lines

  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "clsService"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = False
  10. Option Explicit
  11. '-------------------------------------------------------------------------
  12. 'This class is used a structure for holding queued
  13. 'Service requests.  Objects of this class are
  14. 'added to the gcQueue collection
  15. '-------------------------------------------------------------------------
  16. Public ID As Long               'Service Request ID
  17. Public Command As String        'Service Command used passed to Worker
  18. Public Data As Variant          'Service Data passed to Worker
  19. Public CallBack As APEInterfaces.Client  'Callback object Expediter will use to call
  20.                                 'Client application back
  21. Public CallBackMode As Integer  'Defines if and how data should be returned
  22.                                 'to client.  See "Callback mode keys" in modAEConstants
  23. Public EventObject As aeexpediter.EventReturn 'sync object to return results through
  24.                                 'back to calling client
  25. Public Status As Integer        'Status flag, see global constants
  26. Public DataPresent As Boolean   'Flag, if true, data needs to goto to Service object
  27.                                 'Pass Data to Service object
  28. Public ReturnData As Variant    'Data to be returned to Client application.  The
  29.                                 'results of a Service Request processed by a
  30.                                 'worker.  The Expediter will get this.
  31. Public ReturnError As String    'Error description to return to client.  Description
  32.                                 'of error that occured while processing service
  33.                                 'request.
  34.