home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 March / pcp161a.iso / handson / files / vbwkshp / Node.cls < prev    next >
Encoding:
Visual Basic class definition  |  1999-11-27  |  1.9 KB  |  54 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 = "Node"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
  16. Attribute VB_Ext_KEY = "Member0" ,"Collection1"
  17. 'local variable(s) to hold property value(s)
  18. Private mvarfileName As String 'local copy
  19. Private mvarnextNode As NodeList 'local copy
  20. Private mvarattributes As Integer 'local copy
  21. Public Property Let attributes(ByVal vData As Integer)
  22. 'used when assigning a value to the property, on the left side of an assignment.
  23. 'Syntax: X.attributes = 5
  24.     mvarattributes = vData
  25. End Property
  26. Public Property Get attributes() As Integer
  27. 'used when retrieving value of a property, on the right side of an assignment.
  28. 'Syntax: Debug.Print X.attributes
  29.     attributes = mvarattributes
  30. End Property
  31. Public Property Set nextNode(ByVal vData As NodeList)
  32. 'used when assigning an Object to the property, on the left side of a Set statement.
  33. 'Syntax: Set x.nextNode = Form1
  34.     Set mvarnextNode = vData
  35. End Property
  36. Public Property Get nextNode() As NodeList
  37. 'used when retrieving value of a property, on the right side of an assignment.
  38. 'Syntax: Debug.Print X.nextNode
  39.     Set nextNode = mvarnextNode
  40. End Property
  41. Public Property Let fileName(ByVal vData As String)
  42. 'used when assigning a value to the property, on the left side of an assignment.
  43. 'Syntax: X.fileName = 5
  44.     mvarfileName = vData
  45. End Property
  46. Public Property Get fileName() As String
  47. 'used when retrieving value of a property, on the right side of an assignment.
  48. 'Syntax: Debug.Print X.fileName
  49.     fileName = mvarfileName
  50. End Property
  51.  
  52.  
  53.  
  54.