home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 45 / SuperCD45.iso / talleres / vbasic / BNode.cls next >
Text File  |  2000-01-30  |  2KB  |  64 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 = "BNode"
  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. Option Explicit
  17. Private mvarfileName As String 'local copy
  18. Private mvarnextBNode As BNodeList 'local copy
  19. Private mvarattributes As Integer 'local copy
  20. Private mvarprevBNode As BNode 'local copy
  21. Public Property Set prevBNode(ByVal vData As BNode)
  22. 'used when assigning an Object to the property, on the left side of a Set statement.
  23. 'Syntax: Set x.prevBNode = Form1
  24.     Set mvarprevBNode = vData
  25. End Property
  26. Public Property Get prevBNode() As BNode
  27. 'used when retrieving value of a property, on the right side of an assignment.
  28. 'Syntax: Debug.Print X.prevBNode
  29.     Set prevBNode = mvarprevBNode
  30. End Property
  31. Public Property Let attributes(ByVal vData As Integer)
  32. 'used when assigning a value to the property, on the left side of an assignment.
  33. 'Syntax: X.attributes = 5
  34.     mvarattributes = vData
  35. End Property
  36. Public Property Get attributes() As Integer
  37. 'used when retrieving value of a property, on the right side of an assignment.
  38. 'Syntax: Debug.Print X.attributes
  39.     attributes = mvarattributes
  40. End Property
  41. Public Property Set nextBNode(ByVal vData As BNodeList)
  42. 'used when assigning an Object to the property, on the left side of a Set statement.
  43. 'Syntax: Set x.nextBNode = Form1
  44.     Set mvarnextBNode = vData
  45. End Property
  46. Public Property Get nextBNode() As BNodeList
  47. 'used when retrieving value of a property, on the right side of an assignment.
  48. 'Syntax: Debug.Print X.nextBNode
  49.     Set nextBNode = mvarnextBNode
  50. End Property
  51. Public Property Let fileName(ByVal vData As String)
  52. 'used when assigning a value to the property, on the left side of an assignment.
  53. 'Syntax: X.fileName = 5
  54.     mvarfileName = vData
  55. End Property
  56. Public Property Get fileName() As String
  57. 'used when retrieving value of a property, on the right side of an assignment.
  58. 'Syntax: Debug.Print X.fileName
  59.     fileName = mvarfileName
  60. End Property
  61.  
  62.  
  63.  
  64.