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 / CALLBACK / CLBK_CLI.CLS < prev    next >
Encoding:
Visual Basic class definition  |  1996-11-23  |  1.1 KB  |  34 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CbClientClass"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = False
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11. 'This internal class is created by the client and passed to the remote server.
  12. 'The remote server hangs onto it and "feeds it" data periodically.
  13. 'Note: the class properties (hit F4) mark this class as Public.  This
  14. 'allows it to be used by the external clock server.
  15.  
  16. Private Sub class_terminate()
  17.   Debug.Print "CbClientProj.CbClientClass Terminated."
  18. End Sub
  19.  
  20. Private Sub class_initialize()
  21.   Debug.Print "CbClientProj.CbClientClass Initialized."
  22. End Sub
  23.  
  24. Public Sub TellTime(sCurTime As String)
  25.   'This is the *public* method the server calls to update the client's time.
  26.   'In a real scenario, the server would typically be doing somethig
  27.   'much more substantial... such as delivering stock quotes, user
  28.   'requested news articles... or business reports.  Note, it this sub
  29.   'were not marked as public, the server could not call it.
  30.   
  31.     frmCBCli.lblTime.Caption = sCurTime
  32. End Sub
  33.  
  34.