class modules how to add events - need working stub

[dmcgov]

what is the difference between:

Public WithEvents and
Public Events

can someone write me a template for creating an event in a class module? i have the following code in the class module, but don't know the next step:

Please Login or Register  to view this content.

and the following that raises the event (though i don't know how to call that from the userform):

Please Login or Register  to view this content.

[Andy Pope]

I have written a example as your calendar one if too messed up to easily add code and get it working.

When you are declaring an object that has events, and you want to code against then you use WithEvents

When you are writing code for an class and you want to expose events which could then be used when the object is declared you use Event

Class1 code

Please Login or Register  to view this content.

userform1, with 4 label controls and a scrollbar

Please Login or Register  to view this content.

When the userform is displayed you can click the first 3 labels and the captions will update.

Label4 will update when the scrollbar changes

[robin8114]

So I think this project doesn't require the use of classes

I recommend this video on youtube

Excel Macro Mastery - How to Build a Trading Simulator using Excel VBA
https://youtu.be/vUg-NH-Wqss

It showcases classes brilliantly


also visit this site his site
https://excelmacromastery.com/vba-class-modules/

I am not associated with the creator of this content, but I learned so much from his videos and site

[Andy Pope]

@robin8114, it may not require them but it would be really useful to capture the click event of all those labels in a single code place.

[dmcgov]

thanks andy, will try and dissect your code, will probably have some questions though

thanks robin, one of the first sites i visit when coding is excelmacromastery, great articles and helpme's.

[robin8114]

@Andy Pope, So in this specific instance I would just leave all the userform code in the userform.

But I do like the collection of labels you made.
"RaiseEvents" And "WithEvents" is new to me and it looks amazing, but...

For each label you need to create a new instance of Class1... wont this cause problems down the line with over 50 labels
and then if I add something like:

Me.MyLabel.Caption = "123"

in the MyScroll_Change event, I can only access Label1, All other labels are disconnected from scrollBar

[Andy Pope]

multiple objects should not be an issue.

If you want multiple controls to update at the same time when scrollbar changes you can add more code in the mMyObj_UpdateScroll event.

Not sure what you mean by Me.MyLabel.Caption = "123"
Do you mean change all the label captions at the same time?

[robin8114]

Never mind, I'm playing with your code and I just realized that this is how a worksheet works AND MY MIND IS RACING WITH POSSIBILITIES

[dmcgov]

andy, got the scrollbar change working now (as per your code), however, i can't get the label_click event to fire, it actually worked once but then quit. can you take a peek at my code and tell me what i need to do to fix?

as you can see, most of the code from the userform has been moved into the class (which is what i wanted). now just need the label click to fire...

[Andy Pope]

Your file has too many other issues to be the one to work on.
But the reason for no click capture was you did not create any objects and store them in the collection.


This version includes another class to act as a single entry point for an event.

You still need to create an object for each label, there is a new class with only a reference to the label and the event listner.
The click event in the CMyLabel class then passes the label reference to the event listner. The Event listner then raises an event which is captured by the object in the userform.

This allows the userform to know which label was clicked. It then changes the BackStyle so the fill colour is visible.
Assuming you want the previous label to be unselected there is another object that changes the backstyle of the previously clicked label.

[dmcgov]

ok, i see where i did not add to the collection, should be easy to do. will check back in a bit