xstorage_next_doc

Visual Basic Syntax

Private Declare Function xstorage_next_doc

Lib "xmllab_dll.dll" 

(ByVal Current As Long,ByRef FIRST_DOCUMENT As Long)
 As Long

Example

The following Microsoft® Visual Basic® example enumerates XDocuments from XStorage and fills List box with Document Object References.

Private Sub fill_loaded()
Dim DocObject, NextDoc, Result, Stack As Long

loaded_documents.Clear

Call xml_mark_gstack(Stack)

Result = xstorage_first_doc(DocObject)

Call xml_release_gstack(Stack)

loaded_documents.AddItem (DocObject)

NextDoc = 0

'Enumerate XDocuments inside XStorage

Do While Result = 0

    Call xml_mark_gstack(Stack)

    Result = xstorage_next_doc (DocObject, NextDoc)

    Call xml_release_gstack(Stack)

    DocObject = NextDoc

    If Result = 0 Then

        loaded_documents.AddItem (NextDoc)

    Else

        Exit Do

    End If

Loop


End Sub

C/C++ Syntax

   

 Under development
 

C/C++ Return Values

C Sample

Under development