Returns reference of the XDocument rooot
Status:
Ready
Private Declare Function xdocument_root
Lib "xmllab_dll.dll"(ByVal DocObject As Long)
As Long
The following Microsoft® Visual Basic® example shows how to obtain XDocument root
reference
Private Sub loaded_documents_Click()Dim XMLFILENAME As StringEnd Sub
Dim DocObject, XML_ROOT As Long
Dim Index As Integer
DocObject = loaded_documents.List(loaded_documents.ListIndex)
' convert to integer
XMLFILENAME = File1.Path & "\" & "xml_laboratory.xml"
XML_ROOT = xdocument_root (DocObject)
If XML_ROOT <> 2 Then
loaded_filename.Caption = "Saveto: " & XMLFILENAME
Call xdocument_node_2_file(XML_ROOT, XMLFILENAME)
WebBrowser.Navigate2 ("file://" & XMLFILENAME)
Else
loaded_filename.Caption = "Failed to obtain Document Root" & XMLFILENAME
End If
Under development
Under development
|
Contact Us | | |
|
© 1997-2003 EDMGROUP (Australia) Pty Ltd. All rights reserved. |