Difference between revisions of "Using XML in VBA"

Public Sub SerializingButton()
 
    ' Create a new button
    Dim myButton As rxButton
    Set myButton = New rxButton
 
    ' Build up state
    With myButton
        .label = "My Button"
        .enabled = rxTrue
        .supertip = "My button supertip"
 
        ' Serialize to XML
        Debug.Print .XML
    End With
 
End Sub

1. Public Sub InstantiateButtonFromXML()

3.     ' Create a new button

4.     Dim myButton As rxButton

5.     Set myButton = New rxButton

7.     myButton.readXml "<button supertip=""My button supertip"" enabled=""true"" label=""My Button""/>"

9.     Debug.Print "supertip=[" & myButton.supertip & "], " & _

10.                 "enabled=[" & (myButton.Enabled = rxTrue) & "], " & _

11.                 "label=[" & myButton.Label & "]"

13. End Sub