MDI Double Forms

[MattyJ]

I'm working with MDI forms in my current project, and have just run into a couple strange things. My problems started when I was unable to create multiple versions of the same child form, which I need to be able to do.

I looked in the MSDN help, and found that you could do this by using the set command after declaring the form as a variable.

So my program declares a form as follows:

Dim frmOpen as form
Set frmOpen = new frmOpen
frmOpen.show

(I originally tried to use a different name for the variable form, but that gave me errors)

What is strange is that this command calls two versions of the same form, one which loads and does all my planned code, and one that shows itself and sits there. I thought this might be because I was using a variable name that was the same as the name of the form, but this happened even without the same name.

Can anybody help?

Also, is there a better way to call multiple versions of the same child form?


Mat

[moinkhan]

the most efficient way to create multiple forms is to create a Form Array..

Public tCount As Long 'Declare it in some module
Dim ArrForm() As frmOpen 'Don't use frmOpen.show again
 
'Then where you want to create another form
X = X+1
ReDim Preserve ArrForm(X) 
Set ArrForm(UBound(ArrForm)) = New frmOpen
ArrForm(UBound(ArrForm)).Show

[MattyJ]

A Couple questions:

1) Would that entire piece of code be declared in a module? Or would just the declarations be in the module. And can you use the Dim declaration, or would it need to be public?

2) What's the purpose of the tCount declaration? SHould it be used instead of X, or does it have another purpose?

Thanks again,


Mat

[MattyJ]

Is there anybody else who can answer these questions?

Mat

[BuggyProgrammer]

he already said in the comments:


in a module:

Public tCount As Long 'Declare it in some module
Dim ArrForm() As frmOpen 'Don't use frmOpen.show again



wherever you want, form, module, whatever:

X = X+1
ReDim Preserve ArrForm(X)
Set ArrForm(UBound(ArrForm)) = New frmOpen
ArrForm(UBound(ArrForm)).Show

[MattyJ]

Thats what I thought for that question, but I didn't want to assume that was the case (because something small that I misinterpreted might make a very large difference). Instead, I tried to get more info. My apoligies if it was an obvious answer.

But the second question was really the one that I was curious about. In that code, what does tCount do? Is it a counter for the array that should be used instead of X? Regardless, I think it is, and that seems to be working in my code, but I just want to be certain.

Thanks again for the help,


Mat

[BuggyProgrammer]

yah he mixed up the X and the tCount. either replace tCoutn with X or X with tCount

[Wokawidget]

'In a module
Option Explicit
 
Private mcolForms    As New Collection
 
Public Function AddForm(ByRef MyForm As Form) As Boolean
On Error Resume Next
    mcolForms.Add MyForm, MyForm.hWnd & "K"
    If Err.Number = 0 Then
        AddForm = True
    End If
End Function
 
Public Sub RemoveForm(ByRef MyForm As Form)
On Error Resume Next
    mcolForms.Remove MyForm.hWnd & "K"
End Sub
 
'In the MDI form when you want to open another instance of frmOpen
Private Sub OpenNewForm
Dim frmNew As frmOpen
   Set frmNew = New frmOpen
   Load frmNew
   If AddForm(frmNew) Then
      frmNew.Show
   Else
      Unload frmNew
      Set frmNew = Nothing
   End If
End Sub
 
'In every childform
Private Form_Unload()
   RemoveForm Me
End Sub

That's how to keep track of what forms your MDI form has opened...You can add further functiuons to the module to add greater functionality to the collection, ie Count...

Hope this helps...

[moinkhan]

Stupid Me ..
I mixed up X and tCount...
Change the Declaration

Dim X As Long 'Instead of tCount
and the use of it is to keep track of last index on which the form has been loaded...