MDIForm

[SomethinCool]

ok...i have a MDIForm with a regular form inside of it..now when i click New i want it to come up with the same form1 over again..like in MSWord when you click new..and a new document comes up over and over and over again? yeah...anyone understand this post at all?

[chrisjk]

Use this code for the New thing in your MDI form

Private Sub mnuNew_Click()
 
    Static lDocumentCount As Long
    Dim frmD As Form1
    lDocumentCount = lDocumentCount + 1
    Set frmD = New Form1
    frmD.Caption = "Document " & lDocumentCount
    frmD.Show
 
End Sub

[SomethinCool]

Ok that worked but...when i clicked new..it came up with the form1 and then another window with Document 1....how would i fix it?

[chrisjk]

You must have screwed up elsewhere because on it's own it works fine...

[SomethinCool]

send me that program you made..i'll check what i did....

[chrisjk]

Ah! I didn't save it...hang on have to build it again.
A "please" wouldn't go amiss either!

[Khavoerm]

Did you put the frmD MDIChild property to true? If no, this maybe your problems.

[chrisjk]

Here:

[SomethinCool]

Oh..oops..lol sorry..i was kinda rushing and crap..here..if this will make you happy..

Can i please please pleaaaaase have that program you made?

ok...well since it's here..thanks..i'll check it out.

[Khavoerm]

It works well on my computer

[SomethinCool]

ohhh i found the problem..look..this is what i did....now i need help again..

'this is for Form1 (the MDIChild)
Private Sub Form_Resize()
    RichTextBox1.Width = Form1.Width - 100
    RichTextBox1.Height = Form1.Height - 400
End Sub

and every time it does that..it brings up this.....

[chrisjk]

Try this instead. You can't reference Form1 directly anymore.

Private Sub Form_Resize()
 
RichTextBox1.Width = Me.ScaleWidth - 120
RichTextBox1.Height = Me.ScaleHeight - 120
 
End Sub