OleDll "VBDOM" Class "Document" Only this object can be created. All other objects are accessed or created from the document. Functions: Properties: Methods: Started: 30.02.2001 Modified: 30.02.2001 ===============================================================================]]> cacheAddElement cacheAddElement Sub  Friend Sub cacheAddElement ( ByVal id As String,  objElement As Element )]]> id id String objElement objElement Element createElement createElement Function Element  Public Function createElement ( ByVal tagName As String ) As Element]]> tagName tagName String documentElement documentElement Property Get Element  Public Property Get documentElement ( ) As Element]]> internalGetElement internalGetElement Function Element  Friend Function internalGetElement ( ByVal id As String,  ByVal isNew As Boolean,  ByVal strTag As String ) As Element]]> id id String isNew isNew Boolean strTag strTag String load load Function Boolean  Public Function load ( ByVal xmlSource As String ) As Boolean]]> xmlSource xmlSource String nodeFromID nodeFromID Function Element  Public Function nodeFromID ( ByVal idString As String ) As Element]]> idString idString String save save Sub  Public Sub save ( ByVal destination As String )]]> destination destination String selectNodes selectNodes Function NodeList  Public Function selectNodes ( ByVal queryString As String ) As NodeList]]> queryString queryString String selectSingleNode selectSingleNode Function Element  Public Function selectSingleNode ( ByVal queryString As String ) As Element]]> queryString queryString String Class "Element" appendChild appendChild Function Element  Public Function appendChild ( ByVal newChild As Element ) As Element]]> newChild newChild Element backup backup Sub  Private Sub backup ( ByVal toBackup As Boolean )]]> toBackup toBackup Boolean deleteElement deleteElement Sub  Private Sub deleteElement ( )]]> getAttribute getAttribute Function String  Public Function getAttribute ( ByVal name As String ) As String]]> name name String id id Property Let  Friend Property Let id ( ByVal strId As String )]]> strId strId String insertElement insertElement Sub  Private Sub insertElement ( )]]> load load Sub  Private Sub load ( )]]> ownerDocument ownerDocument Property Get Document  Public Property Get ownerDocument ( ) As Document]]> ownerDocument ownerDocument Property Set  Friend Property Set ownerDocument ( ByRef doc As Document )]]> doc doc Document parentNode parentNode Property Get Element  Public Property Get parentNode ( ) As Element]]> reload reload Sub  Friend Sub reload ( )]]> removeChild removeChild Function Element  Public Function removeChild ( ByVal childNode As Element ) As Element]]> childNode childNode Element restore restore Sub  Friend Sub restore ( )]]> selectNodes selectNodes Function NodeList  Public Function selectNodes ( ByVal queryString As String ) As NodeList]]> queryString queryString String selectSingleNode selectSingleNode Function Element  Public Function selectSingleNode ( ByVal queryString As String ) As Element]]> queryString queryString String setAttribute setAttribute Sub  Public Sub setAttribute ( ByVal name As String,  ByVal value As String )]]> name name String value value String setDefAttribute setDefAttribute Sub  Friend Sub setDefAttribute ( ByVal strAttributeName As String )]]> Also emulates element text (text()). This means that there caan be only one text node. ===============================================================================]]> strAttributeName strAttributeName String setNew setNew Sub  Friend Sub setNew ( ByVal blnIsNew As Boolean )]]> blnIsNew blnIsNew Boolean setTag setTag Sub  Friend Sub setTag ( ByVal strTagName As String )]]> strTagName strTagName String text text Property Get String  Public Property Get text ( ) As String]]> text text Property Let  Public Property Let text ( ByVal strNewText As String )]]> strNewText strNewText String updateAttribute updateAttribute Sub  Private Sub updateAttribute ( ByVal strName As String )]]> strName strName String updateElement updateElement Sub  Private Sub updateElement ( )]]> Class "NodeList" item item Property Get Element  Public Property Get item ( ByVal index As Long ) As Element]]> index. Purpose: Returns reference to a node by index. Remarks: None ===============================================================================]]> index index Long length length Property Get Long  Public Property Get length ( ) As Long]]> load load Sub  Private Sub load ( )]]> setOwnerDocument setOwnerDocument Sub  Friend Sub setOwnerDocument ( ByRef doc As Document )]]> doc doc Document setQueryString setQueryString Sub  Friend Sub setQueryString ( ByVal strQueryString As String )]]> strQueryString strQueryString String setTag setTag Sub  Friend Sub setTag ( ByVal strTagName As String )]]> strTagName strTagName String Module "Utilities" formatMessage formatMessage Function String  Public Function formatMessage ( ByVal format As String,  ParamArray args ( ) ) As String]]> format format String args args Variant