load userform

[codesmith]

hi all, why is this giving me a type mismatch error?

Sub loadMenu(menu As UserForm)
    Load menu
    menu.Show
    
    'usage: call loadmenu(mainMenu) ***Where mainMenu is a menu object
    
End Sub

thanks in advance...

 

[HalfAce]

Hello codesmith,
Not sure why you're getting a type mismatch, I just get a compile error.
Anyway, (for all I know about what you're doing) this seems like a bit more code than needed. From what I can tell, all you'd need would be:

Sub loadMenu()
    menu.Show
End Sub

in a standard module. (Assuming mainMenu is a userform, they can't show without loading first so you don't need to tell it to load beforehand.)

Hope it helps. (If it doesn't then perhaps you can elaborate a bit.)

 

[xenou]

I agree - I'm not sure you need the variable passed here:

Sub LoadMenu()
Dim Menu as UserForm1
Set Menu = New UserForm1
Menu.Show
End Sub

Showing the form will load it if it isn't already loaded. Does this form lose scope when the sub ends? I've never loaded a form this way.

 

[codesmith]

you see i want to create a routine which accepts a menu name, and loads it (displays too).

similarly i want to create another which will close and hide it.

 

[xenou]

Normally you Dim the userform object in the main/calling sub...You could instantiate the form right off the bat I guess...

Sub Main()
Dim menu as new UserForm1
~~code
Call LoadMenu(menu)
~~code
End Sub

I believe that instantiating the object in the declarations takes more memory, but memory is cheap these days. I'm not sure I see why not just:

Sub Main()
Dim menu as UserForm1
~~code
Set menu = New UserForm1
menu.show
~~code
End Sub

Or

Sub Main()
Dim menu as New UserForm1
~~code
menu.show
~~code
End Sub

But I guess there's a reason.

 

[mikerickson]

This form take string input

Dim menuName as String
MenuName = "Userform1"

Userforms.Add(MenuName).Show

or

Dim menuName As String
Dim newUF As Object

menuName = "Userform1"
Set newUF = UserForms.Add(menuName)
newUF.TextBox1.Text = "Hello"
newUF.Show

 

[xenou]

Beautiful...

 

[mikerickson]

Using the .Add method, one can have multiple instances of the same UF.

 

[codesmith]

how about if I already have a set of forms ?

say I had a user form called "subMenuXYZ"

and I wanted to go:

call loadForm("subMenuXYZ")
'where loadform() loads, then shows.

 

[mikerickson]

You could substitute "subMenuXYZ" for "Userform1" in the posted code.

On the other hand, one userform with a Multi-Page control might be easier to work with than several userforms.