How to use GetParent and GetParent2

Download Chilkat XML ActiveX

How to use GetParent and GetParent2. This is a snippet of the document used in this example:

Dim xml0 As New ChilkatXml
Dim xml As ChilkatXml

'  The Chilkat XML component is freeware.

'  Load an XML document.  Typically you might call LoadXml
'  to load an XML file.  This example loads an XML file from
'  a URL:
Set xml = xml0.HttpGet("http://www.chilkatsoft.com/testData/bookstore.xml")

'  The xml object points to the root node of the XML document.

'  Set bookNode equal to the 1st child of the root.
Dim bookNode As ChilkatXml
Set bookNode = xml.GetChild(0)

'  Set titleNode equal to the title child of bookNode:
Dim titleNode As ChilkatXml
Set titleNode = bookNode.GetChildWithTag("title")

'  Call GetParent to return a new object pointing to the parent node:
Dim bookNode2 As ChilkatXml
Set bookNode2 = titleNode.GetParent()

'  bookNode2 and bookNode point to the same node.

'  Call GetParent2 (which returns nothing) to modify the internal
'  pointer within the calling object so that it points to the immediate parent:
titleNode.GetParent2 

'  Now titleNode points to the same node as bookNode2 and bookNode.
'  To prove it, generate the XML sub-tree rooted at the calling
'  node and display each:
Dim str1 As String
Dim str2 As String
Dim str3 As String
str1 = bookNode.GetXml()
str2 = bookNode2.GetXml()
str3 = titleNode.GetXml()

Text1.Text = Text1.Text & str1 & vbCrLf
Text1.Text = Text1.Text & str2 & vbCrLf
Text1.Text = Text1.Text & str3 & vbCrLf