Showing Forms dynamically

[Aaron Young]

You could create a Collection to which you could add all the Forms, then use there Key to Call them, eg.

Dim MyCollection As New Collection

Private Sub Command1_Click()
    'Display a Random Form
    MyCollection("Form" & Int((Rnd * 3) + 1)).Show
End Sub

Private Sub Form_Load()
    MyCollection.Add Form1, "Form1"
    MyCollection.Add Form2, "Form2"
    MyCollection.Add Form3, "Form3"
    MyCollection.Add Form4, "Form4"
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]


[This message has been edited by Aaron Young (edited 12-08-1999).]

[KingStu]

thanks, i was wondering also if there was a way to do something like the following, where the forms could be added to the collection in an iterative way. I can't get it to work whether I use an object type or a string. Something like

Dim strForm as string
For i=1 to 4
StrFormName="Form" & i
MyCollection.Add strForm,strForm
Next i

[Aaron Young]

You need to pass the atual Object you wish to Add, passing a String containing the Name of the Form won't work.

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]

[KingStu]

I have an application with forms as follows:
Form1, Form2, Form3, etc
I want to be able to at run time choose which form to display without having to explictly state something like
If x=1 then Form1.show

is there way to say 'form(x).show' for any given "x"? Thanks in advance