home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD14546252001.psc / AddChild.cls next >
Encoding:
Visual Basic class definition  |  2001-01-08  |  1.8 KB  |  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 = "AddChild"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. 'Module Level Comment-----------------------------------------------------------
  15. '
  16. 'Project name   : XMLTree
  17. 'Module name    : AddChild
  18. 'Classification : Class Module
  19. 'Created        : 02 January 2001
  20. 'Author         : Paul Stevens
  21. 'Description    :
  22. '
  23. 'Dependencies   : MSXML3, MSComctlLib.Treeview
  24. 'Issues         :
  25. 'Revision(s)    : Paul Stevens
  26. '-------------------------------------------------------------------------------
  27. Private Instance As Long
  28. Public Function HasChild(Node As IXMLDOMNode, Treeview As Object, ChildParentName As String)
  29. Dim Counter As Long
  30. Dim AddNode As New AddNode
  31. Dim AddProperty As New AddProperty
  32.  
  33. On Error Resume Next
  34.  
  35.     'we will loop through each of the child nodes of the current parent node
  36.     For Counter = 0 To Node.childNodes.length - 1
  37.         AddNode.AddChildNode Node.childNodes(Counter), ChildParentName, Treeview, , , Instance
  38.         'check if the node has propertys inside of it and add them as neccesary
  39.         If Node.Attributes.length > 0 Then
  40.             If Not ParsingPropertys Then
  41.                 ParsingPropertys = True
  42.                 AddProperty.HasPropertys Node, Treeview, CurrentNode
  43.             End If
  44.         End If
  45.     Next Counter
  46.  
  47. End Function
  48.  
  49. Private Sub Class_Initialize()
  50.     Instance = GlobalInstance + 1
  51.     GlobalInstance = Instance
  52.     Debug.Print Instance
  53. End Sub
  54.  
  55. Private Sub Class_Terminate()
  56.     GlobalInstance = GlobalInstance - 1
  57. End Sub
  58.