Difference between revisions of "A 'hello world' VBA program"

From Ribbon Commander Documentation
Jump to: navigation, search
(→‎Creating a tab)
(→‎Creating a tab)
Line 1: Line 1:
 
== Creating a tab ==
 
== Creating a tab ==
−
Enter the code below in a standard VBA module and run it to create a tab labeled 'My First Tab'
+
# Enter the code below in a standard VBA module
−
 
+
#: <syntaxhighlight lang="vb">
−
<syntaxhighlight lang="vb">
+
#: Public Sub CreateMyUI()
−
Public Sub CreateMyUI()
+
#:      
−
      
+
#:     ' Get a reference to the default rxCustomUI instance
−
     ' Get a reference to the default rxCustomUI instance
+
#:     Dim myCustomUI As rxCustomUI
−
     Dim myCustomUI As rxCustomUI
+
#:     Set myCustomUI = rxCustomUI.defaultInstance
−
     Set myCustomUI = rxCustomUI.defaultInstance
+
#:      
−
      
+
#:     ' Create a new tab
−
     ' Create a new tab
+
#:     Dim myTab As rxTab
−
     Dim myTab As rxTab
+
#:     Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
−
     Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
+
#:      
−
      
+
#:     ' Give the new tab a label
−
     ' Give the new tab a label
+
#:     myTab.Label = "My First Tab"
−
     myTab.Label = "My First Tab"
+
#:      
−
      
+
#:      
−
      
+
#:     ' Render the UI
−
     ' Render the UI
+
#:     myCustomUI.Refresh
−
     myCustomUI.Refresh
+
#:      
−
      
+
#: End Sub
−
End Sub
+
#: </syntaxhighlight>
−
</syntaxhighlight>
+

Revision as of 16:59, 10 March 2013

Creating a tab

  1. Enter the code below in a standard VBA module 
    #: Public Sub CreateMyUI()
    ' Get a reference to the default rxCustomUI instance
    Dim myCustomUI As rxCustomUI
    Set myCustomUI = rxCustomUI.defaultInstance
    ' Create a new tab
    Dim myTab As rxTab
    Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
    ' Give the new tab a label
    myTab.Label = "My First Tab"
    ' Render the UI
    myCustomUI.Refresh
    End Sub