Difference between revisions of "Using events in VBA"
From Ribbon Commander Documentation
(→Subscribing to control events) |
|||
| Line 48: | Line 48: | ||
End Sub | End Sub | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| + | * Use the VBA environment to insert delegate stubs for member 'm_button' | ||
| + | *: [[Image:InsertingEventStubVBA.png|link=]] | ||
Revision as of 17:14, 17 March 2013
Prerequisites
We recommend you go though Creating an rxCustomUI object with local dispatch scope in VBA before going into this example.
Introduction
All Dynamic RibbonX controls that model UI elements with delegates support VBA events. In order to subscribe to events in VBA we need to write our UI code in a VBA class. Since we are using events instead of delegates, the dispatch scope of our customUI is irrelevant.
Subscribing to control events
- Add a new class to your VBA project and name it clsEventsDemoUI
- Enter the following code to the class module
Private m_customUI As rxCustomUI
Private WithEvents m_button As rxButton
Private Sub Class_Initialize()
' Create a new local contextSet m_customUI = rxCustomUI.Create("my_local_context", "My Local Context", DispatchScope_local)
' Initialize the context's UICreateUI
End Sub
' Initializes the context's UIPrivate Sub CreateUI()
With m_customUI.Clear
' Create a new tabWith .ribbon.tabs.Add(New rxTab)
.label = "Local Ctx Tab"' Create a new groupWith .groups.Add(New rxGroup)
.label = "Local Ctx Group"' Add a new button to the group and subscribe to its events' NOTE: By assigning the new rxButton object reference to the member variable' that has been declared 'WithEvents' we are subscribing to the control's' eventsSet m_button = .Buttons.Add(New rxButton)
End With
End With
' Render the UI.Refresh
End With
End Sub
- Use the VBA environment to insert delegate stubs for member 'm_button'
-
