Declaring Classes for UserForm - advance VBA

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).

Private Sub UserForm_Activate()

dim Name as string 
dim LastRow as long 

LastRow  = A_Wniosek.Range("A1").CurrentRegion.Rows.Count

Name = userform1.login() & "_" & LastRow

end sub

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

Has anyone had similar problem?

Best Regards,
Jacek Antek

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:

Dim Moja As New MyForm

UserForm1.Login = Moja.Login()

In class module i have function.

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

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

Originally Posted by 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.

Ok, this is improvement:

Module:

Sub Wniosek()

Dim Moja As New MyForm

UserForm1.Login = Moja.Login()

UserForm1.Show

Class MyForm:

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

Userform1:

Public Login As String
Private Sub UserForm_Activate()

Dim W As Long
Dim numer As String

W = A_Wniosek.Range("A1").CurrentRegion.Rows.Count
numer = Me.Login & "_" & Format(W, "000000")

Label_Numer_zgloszenia = numer

Call Send_Mail

End Sub

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

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

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

Ok,

no problem

I have attached my macro.

Best Regards,
Jacek Antek