Difference between revisions of "Using XML in VBA"

From Ribbon Commander Documentation
Jump to: navigation, search
(→‎Serializing to XML)
Line 25: Line 25:
 
</syntaxhighlight>
 
</syntaxhighlight>
  
−
The following xml code is printed out to the debug window:
+
The VBA code above prints out the following XML code to the debug window:
 
<syntaxhighlight lang="xml">
 
<syntaxhighlight lang="xml">
 
<button supertip="My button supertip" enabled="true" label="My Button"></button>
 
<button supertip="My button supertip" enabled="true" label="My Button"></button>
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 +
== Instantiating from XML ==
 +
<syntaxhighlight lang="vb" line>
 +
Public Sub InstantiateButtonFromXML()
 +
 +
    ' Create a new button
 +
    Dim myButton As rxButton
 +
    Set myButton = New rxButton
 +
   
 +
    myButton.readXml "<button supertip=""My button supertip"" enabled=""true"" label=""My Button""/>"
 +
   
 +
    Debug.Print "supertip=[" & myButton.supertip & "], enabled=[" & myButton.Enabled & "], label=[" & myButton.Label & "]"
 +
 +
End Sub
 +
</syntaxhighlight>
 +
 +
The VBA code above prints out the following XML code to the debug window:
 +
<pre>supertip=[My button supertip], enabled=[-1], label=[My Button]</pre>

Revision as of 23:03, 14 March 2013

Introduction

Dynamic RibbonX controls are both

  • Serializable to XML
  • Instantiatable from XML

Serializing to XML

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

The VBA code above prints out the following XML code to the debug window: 

<button supertip="My button supertip" enabled="true" label="My Button"></button>

Instantiating from XML

  1. Public Sub InstantiateButtonFromXML()
  2.  
  3.     ' Create a new button
  4.     Dim myButton As rxButton
  5.     Set myButton = New rxButton
  6.  
  7.     myButton.readXml "<button supertip=""My button supertip"" enabled=""true"" label=""My Button""/>"
  8.  
  9.     Debug.Print "supertip=[" & myButton.supertip & "], enabled=[" & myButton.Enabled & "], label=[" & myButton.Label & "]"
  10.  
  11. End Sub

The VBA code above prints out the following XML code to the debug window: 

supertip=[My button supertip], enabled=[-1], label=[My Button]
Retrieved from ‘https://documentation.ribboncommander.com/index.php?title=Using_XML_in_VBA&oldid=2010’