home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / TAPI_Calle2081388302007.psc / CTAPICallNode.cls < prev    next >
Text File  |  2007-08-30  |  2KB  |  58 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "CTAPICallNode"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. ' TAPI Call Node (Caller, Called) (managed by the Call Obj)
  15.  
  16. '********************************************************
  17. ' Code Sample by Gregory Fox, Data Management Associates, Inc.
  18. ' Portions borrowed and modified from publically posted samples.
  19. ' Provided AS-IS.  Not tested in a production environment.
  20. '********************************************************
  21.  
  22. Option Explicit
  23.  
  24.  
  25. Private msID As String
  26. Private msName As String
  27. Private msStatus As String
  28. Private mbInfoChanged As Boolean        'cleared, then set by UpdateCallInfo() when this info actually changes
  29.  
  30. Public Property Let ID(ByVal newValue As String)
  31.     msID = newValue
  32. End Property
  33. Public Property Get ID() As String
  34.     ID = msID
  35. End Property
  36.  
  37. Public Property Let Name(ByVal newValue As String)
  38.     msName = newValue
  39. End Property
  40. Public Property Get Name() As String
  41.     Name = msName
  42. End Property
  43.  
  44. Public Property Let Status(ByVal newValue As String)
  45.     msStatus = newValue
  46. End Property
  47. Public Property Get Status() As String
  48.     Status = msStatus
  49. End Property
  50.  
  51. Public Property Let InfoChanged(ByVal newValue As Boolean)
  52.     mbInfoChanged = newValue
  53. End Property
  54. Public Property Get InfoChanged() As Boolean
  55.     InfoChanged = mbInfoChanged
  56. End Property
  57.  
  58.