Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/todar/VBA-Userform-EventListener
🎉 A very easy way to add event listeners to a userform.
https://github.com/todar/VBA-Userform-EventListener
eventlistener events userform vba
Last synced: about 2 months ago
JSON representation
🎉 A very easy way to add event listeners to a userform.
- Host: GitHub
- URL: https://github.com/todar/VBA-Userform-EventListener
- Owner: todar
- License: mit
- Created: 2019-03-05T23:06:37.000Z (almost 6 years ago)
- Default Branch: master
- Last Pushed: 2021-08-17T20:56:20.000Z (over 3 years ago)
- Last Synced: 2024-08-13T07:18:19.534Z (5 months ago)
- Topics: eventlistener, events, userform, vba
- Language: VBA
- Homepage: https://www.roberttodar.com/
- Size: 82 KB
- Stars: 26
- Watchers: 6
- Forks: 9
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- Funding: .github/FUNDING.yml
- License: LICENSE
Awesome Lists containing this project
- jimsghstars - todar/VBA-Userform-EventListener - 🎉 A very easy way to add event listeners to a userform. (VBA)
README
# VBA Userform EventListener
A very easy way to add event listeners to a userform.
## Getting Started
> Importing or copying both **EventListenerEmitter.cls** and **EventListenerItem.cls** is **required** in order to work!
Here is a basic template, simply add this to a userform.
```vb
Private WithEvents Emitter As EventListenerEmitter
Private Sub UserForm_Activate()
Set Emitter = New EventListenerEmitter
Emitter.AddEventListenerAll Me
End Sub
```
That's it, now you can start listening for events!
## Listening for the events
You can listen for all events in one event handler **Emitter_EmittedEvent** or each individual controls events. see the example below.
```vb
' EXAMPLE SHOWING A BASIC WAY OF DOING A HOVER EFFECT
Private Sub Emitter_EmittedEvent(Control As Object, ByVal EventName As EmittedEvent, EventParameters As Collection)
' Select statements are really handy working with these events in this way.
Select Case True
' Change color when mouseover, for a fun hover effect :)
Case EventName = MouseOver And TypeName(Control) = "CommandButton"
Control.BackColor = 9029664
' Don't forget to change it back!
Case EventName = MouseOut And TypeName(Control) = "CommandButton"
Control.BackColor = 8435998
End Select
End Sub
```
You can also listen just to specific events as well.
```vb
Private Sub Emitter_Focus(Control As Object)
' CHANGE BORDER COLOR FOR TEXTBOX TO A LIGHT BLUE
If TypeName(Control) = "TextBox" Then
Control.BorderColor = 16034051
End If
End Sub
Private Sub Emitter_Blur(Control As Object)
' CHANGE BORDER COLOR BACK TO A LIGHT GREY
If TypeName(Control) = "TextBox" Then
Control.BorderColor = 12434877
End If
End Sub
```
Or you can listen to specific events on specific controls
```vb
Private Sub Emitter_CommandButtonMouseOver(CommandButton As MSForms.CommandButton)
CommandButton.Backcolor = 9029664
End Sub
Private Sub Emitter_CommandButtonMouseOut(CommandButton As MSForms.CommandButton)
CommandButton.Backcolor = 8435998
End Sub
```
## Note
This is in the early stages, so feel free to use it as you wish. Currently, the events emitted are pretty simple: Click, DoubleClick, MouseOver, MouseOut, MouseMove, MouseDown, and MouseUp.
As I have time I'll be adding more events and seeing if I have any needed improvements.
Feel free to do a pull request if you added to it or improved it in any way!
**Also, I've posted this code on codereview. Feel free to make suggestions or improvements there as well!**