Difference between revisions of "A 'hello world' VBA program"
From Ribbon Commander Documentation
(→Creating a tab) |
|||
| Line 1: | Line 1: | ||
== Creating a tab == | == Creating a tab == | ||
* Enter the code below in a standard VBA module | * Enter the code below in a standard VBA module | ||
| − | <syntaxhighlight lang="vb"> | + | <syntaxhighlight lang="vb" line> |
Public Sub CreateMyUI() | Public Sub CreateMyUI() | ||
| Line 23: | Line 23: | ||
* Run the sub to create an empty tab labeled 'My First Tab' | * Run the sub to create an empty tab labeled 'My First Tab' | ||
*: [[image: EmptyTab.png]] | *: [[image: EmptyTab.png]] | ||
| + | |||
| + | == Code Analysis == | ||
| + | <syntaxhighlight lang="vb"> | ||
| + | ' Get a reference to the default rxCustomUI instance | ||
| + | Dim myCustomUI As rxCustomUI | ||
| + | Set myCustomUI = rxCustomUI.defaultInstance | ||
| + | </syntaxhighlight> | ||
Revision as of 17:09, 10 March 2013
Creating a tab
- Enter the code below in a standard VBA module
Public Sub CreateMyUI()
' Get a reference to the default rxCustomUI instanceDim myCustomUI As rxCustomUI
Set myCustomUI = rxCustomUI.defaultInstance' Create a new tabDim myTab As rxTab
Set myTab = myCustomUI.ribbon.tabs.Add(New rxTab)
' Give the new tab a labelmyTab.Label = "My First Tab"' Render the UImyCustomUI.Refresh
End Sub
- Run the sub to create an empty tab labeled 'My First Tab'
-
Code Analysis
' Get a reference to the default rxCustomUI instance Dim myCustomUI As rxCustomUI Set myCustomUI = rxCustomUI.defaultInstance
