How can I limit the number of child document windows in a text editor

Good Morning Everyone!

I have a text editor with an MDI. It's possible to have dozens of child windows open by repeatedly clicking "New" on the toolbar.

How can I limit that number to two or three?

(Code examples are always appreciated!)

Thanks.

Wendy

try this

Code:

---

Private Sub mnuNew_Click()
  Dim NewForm As New Form1
  Static Counter As Integer
  Counter = Counter + 1
    If Counter <= 3 Then
      Set NewForm = New Form1
      Load NewForm
    End If
End Sub

---

Thanks Wasiq!

I made a couple of changes to fit it into my code and it works Great. Saved me a lot of time.

Thanks again.

Wendy

OOPS! I now have a related problem.

I need to be able to reset the counter when one or more of the child forms are closed. As it is now, once you open three files, you can't open another even if you close the first three.

Any help is appreciated.

Wendy


Here'my code:

code-------------------------------------------------------

Private Sub mnuFileNewWorksheet_Click()
'Purpose: Add and allow up to 3 empty child windows and new documents.

Dim fd As New frmDoc

Static Counter As Integer

Counter = Counter + 1
If Counter <= 3 Then
Set fd = New frmDoc

Load fd 'Load a new child window

iDocCounter = iDocCounter + 1 'increment the child window counter
fd.Caption = "Worksheet (" & CStr(iDocCounter) & ")"
fd.Show 'Show the new child window
StatusBar1.Panels(1).Text = "Worksheet Created"
End If

End Sub

code-----------------------------------------------------

[Edited by Wendy Jackson on 09-07-2000 at 02:16 PM]

try this, it should work

add the following code to a module

Code:

---

Public Counter As Integer

---

add the following to your mdi child windows unload event

Code:

---

Private Sub Form_Unload(Cancel As Integer)
If Counter > 0 Then
    Counter = Counter - 1
End If
End Sub

---

add the following to the menu or button which you use to open a new child window

Code:

---

Private Sub mnuOpen_Click()
Dim NewForm As New Form1
Counter = Counter + 1
If Counter <= 3 Then
    Set NewForm = New Form1
    Load NewForm
End If
End Sub

---

Sorry. It doesn't Work.

Exerything works except the counter is either not being reset on unload or something else is keeping me from loading more than three forms.

Three forms load and unload great, but after that you cannot load another form until you restart the editor.

Any suggestions?

Wendy

Sorry! but there was a little mistake. The 'counter=counter+1' line needed to be enclosed in the if clause. Its working fine now. try it.

add the following code to a module

Code:

---

Public Counter As Integer

---

add the following to your mdi child windows unload event

Code:

---

Private Sub Form_Unload(Cancel As Integer)
If Counter > 0 Then
    Counter = Counter - 1
End If
End Sub

---

add the following to the menu or button which you use to open a new child window

Code:

---

Private Sub mnuNew_Click()
Dim NewForm As New Form1
If Counter < 3 Then
    Counter = Counter + 1
    Set NewForm = New Form1
    Load NewForm
End If
End Sub

---

Thanks again, Wasiq!

I had just found the problem and was testing it when your post came. It seems to be working great!

Thanks a bunch!

Wendy