Declaring Classes for UserForm - advance VBA

[jaryszek]

Hi People,

I'm trying to add properties to my userform1.

I have function declared in class module:

Function Login() As String
Login = Environ("USERNAME")
End Function

And i want to have a property from userform1 object inside userform1 for each private sub (userform_activate, listbox_change etc.).

How can I do this?

I would like to have property like this (and when I have userform2 - i want to have this property also here if it is possible).

Please Login or Register  to view this content.

Thank You in advance for your help,
Best regards,
Jacek Antek

[jaryszek]

Has anyone had similar problem?

Best Regards,
Jacek Antek

[xlnitwit]

Hi,

What problem are you facing with adding a property to your userform? A userform is itself a class and therefore adding a property to it is no different to adding a property to any other class.

[jaryszek]

Hi,

The problem is that I have to everywhere in my code pass my Login Function to get current login.

In my code i am declaring class:

Please Login or Register  to view this content.

In class module i have function.

Please Login or Register  to view this content.

First question is : why in my userform1 I have to declare Public login as string ?
I thought when you have your own propety declared to userform it will be enough.

Second question:
I want to have public Login variable in my whole project - in module, in userform etc. Now I have to call this function now in module (in userform it is working), but i have to do this second time in
my called Sub Routine again, for example i can use function to get this variable once again. I want to have it declared only once for all modules in my project.
It is possible ?

Please help,
Jacek Antek

[xlnitwit]

I fear you have not posted sufficient code to answer your first question. Nowhere have you indicated how or where you have implemented any property.

For your second question I can see no good reason not to use a function for this. You may declare a public variable to hold the value but you will still have to call the function initially. You might simply rewrite the function to use a Static variable and return that if it is not empty.

[jaryszek]

I fear you have not posted sufficient code to answer your first question. Nowhere have you indicated how or where you have implemented any property.

Ok, this is improvement:

Module:

Please Login or Register  to view this content.

Class MyForm:

Please Login or Register  to view this content.

Userform1:

Please Login or Register  to view this content.

So 2 problems:

Do once time function Login to pass it to Userform and to other Sub (to Send_Email Sub for example) in other modules.

What do you mean by rewriting function to do static variable ? What is it ?

Best Regards,
Jacek Antek

[Kyle123]

Why not just use a module for your login routine? It acts as a static class to all intents and purposes

[jaryszek]

Thank You Kyle123,

In module (start _module)I start my code and define property login from class to userfom, next im going through userforms and last action is calling Sub_email from userfrom. I dont know why but my macro do not return to first module (start_module) when my userform is unloaded... If there will be a chance to return from Userform to start module i could do Public variable Login which should be working in calling sub routines ?

Best Regards,
Jacek Antek

[Kyle123]

Sorry, I really don't understand any of that - if you want some help, please post all your code - not just snippits

Also an example workbook would be much better

[jaryszek]

Ok,

no problem

I have attached my macro.

Best Regards,
Jacek Antek