duplicating forms at runtime RESOLVED

[simgirl]

How do you duplicate a form at run time? I got a form called frmComputerCards. I wanting to duplicate the form and have it work the same way that frmcomputercards works. Is that possible?

[PilgrimPete]

Something like this:

Sub FireUpForms(ByVal iNumForms As Integer)
    Dim oForm As frmComputerCards
    Dim i As Integer
        For i = 0 To iNumForms - 1
        Set oForm = New frmComputerCards
        oForm.Show
        Set oForm = Nothing
    Next i
End Sub

[szlamany]

How do you duplicate a form at run time? I got a form called frmComputerCards. I wanting to duplicate the form and have it work the same way that frmcomputercards works. Is that possible?

or something like this:

Dim FormObj as Form
Set FormObj = Forms.Add("frmComputerCards")
Load FormObj

[Wokawidget]

or something like this:

Dim FormObj as Form
Set FormObj = Forms.Add("frmComputerCards")
Load FormObj

Does that actually create an instance of frmComputerCards?
I use:

Private Sub ShowNewForm()
Dim frmNew   As frmMyForm
   Set frmNew = New frmMyForm
   Load frmNew
   frmNew.Show
   Set frmNew = Nothing
End Sub

This can be extended to show items from a DB.
Etc.

Private Sub ShowUser(ByVal plngUserID As Long)
Dim frmNew   As frmUser
   'code to load user data/object (this can also be in the form load if you want)
   Set frmNew = New frmMyForm
   'pass data/object to form
   Load frmNew
   frmNew.Show
   Set frmNew = Nothing
End Sub

Woka

[szlamany]

Does that actually create an instance of frmComputerCards?
I use:

Private Sub ShowNewForm()
Dim frmNew   As frmMyForm
   Set frmNew = New frmMyForm
   Load frmNew
   frmNew.Show
   Set frmNew = Nothing
End Sub

This can be extended to show items from a DB.
Etc.

Private Sub ShowUser(ByVal plngUserID As Long)
Dim frmNew   As frmUser
   'code to load user data/object (this can also be in the form load if you want)
   Set frmNew = New frmMyForm
   'pass data/object to form
   Load frmNew
   frmNew.Show
   Set frmNew = Nothing
End Sub

Woka

Yes it does - and the reason we use it is because the FORM name can be in a variable. That's helpful in a MDI-type app.

You would have to have a different line of code for every FORM you could possibly add.

[Wokawidget]

I didn't know that.
Very handy to know

Woka

[simgirl]

I am able now to duplicate a form but not changing anything on the duplicated form at run time. I can't change the text in labels or anything. How can I fix that problem?

frmMenu

Set frmComputerCards1 = New frmComputerCards
frmComputerCards1.Caption = "Computer Player 1"
frmComputerCards1.Show


I'm trying to make changes to that new form from the main players game screen form. Why am I getting this problem?

[Wokawidget]

Set frmComputerCards1 = New frmComputerCards
Load frmComputerCards1
frmComputerCards1.Caption = "Computer Player 1"
frmComputerCards1.txtUsername.Text = "Woka"
frmComputerCards1.Show

Woka

[szlamany]

Keep in mind that "frmComputerCards1" is a form object local to whatever sub/func you are creating the new instance of the form in.

It will not be the name of the form throughout the program - right?

We always use the FORMS() collection to access the forms we "duplicate"...

[Wokawidget]

I would write this as:

Dim frmNew    As frmComputerCards
   Set frmNew = New frmComputerCards
   Load frmNew
   With frmNew
      .Caption = "Woof"
      .txtUsername.Text = "Woka"
      .Show
   End With
   Set frmNew = Nothing

szlamany, yup, you are right. frmNew will only be a local object name in the confines of the funtion you have: Dim frmNew As, in.

Woof

[simgirl]

Thanks that helped a lot. I got 1 last question related to this topic. If I want the user to be able to choose between 1 to 8 computer players. Whats the easiest way to load the forms?

[szlamany]

Use either method - FORMS.ADD("formname") or the .SHOW/LOAD method with a FORM object.

But then in some GLOBAL array you could store the (FORMS.COUNT-1) value of the newly added form.

You can refer to the form by FORMS(x).whatever with x being the value of the newly added form.

[simgirl]

Thanks everybody for your help.