MDI CHILD Form Problem

[ADO DOT NET]

Hi,

It's my 1st time that I use mdi forms.

 

However, my startup form is named "Form1" and its "IsMdiContainer" property is set to true.

I only have another form named "DocumentForm" which just contains a Microsoft DHTML Editing control.

And I open it from MainForm using:

       Dim Document As DocumentForm = New DocumentForm
       Document.MdiParent = Me
       Document.WindowState = FormWindowState.Maximized
       Document.Show()
       Document.Update()

It seems to be OK, but when I want to get "DocumentForm.DHTMLEdit.IsDirty" property from MainForm, I cannot!

How can I access these from MainForm?

Thanks.

[snarfblam]

The easiest way to do this is to go to the designer of DocumentForm, select your DHTML control, and set its "Modifiers" property to "Friend" or "Public." You also need to keep a reference to your document form, probably using a class-level variable (unless you are using a version of VB that supports default instances and it is enabled).

[ADO DOT NET]

The easiest way to do this is to go to the designer of DocumentForm, select your DHTML control, and set its "Modifiers" property to "Friend" or "Public."

 

>> I set it to Public.

 

 

You also need to keep a reference to your document form, probably using a class-level variable (unless you are using a version of VB that supports default instances and it is enabled).

 

>> I don't understand this section, what should I do exactly? I use VB.NET 2005. Thanks:)

[ADO DOT NET]

It's a little bit complicated!

Can you be good enough and open my very simple sample project?

It's should be easy! It's my 1st time I'm using mdi/child forms:(

Please help me.

WindowsApplication2.zip

[snarfblam]

[Color=Green]' Option 1 - Only works if there is only one Form2, not very MDI friendly.
[/Color]  [Color=Blue]  Private Sub [/Color]NewDocumentToolStripMenuItem_Click([Color=Blue]ByVal [/Color]sender [Color=Blue]As [/Color]System.Object, [Color=Blue]ByVal [/Color]e [Color=Blue]As [/Color]System.EventArgs) [Color=Blue]Handles [/Color]NewDocumentToolStripMenuItem.Click
       Form2.Text = "New Document " + ([Color=Blue]Me[/color].MdiChildren.Length + 1).ToString()
       Form2.MdiParent = [Color=Blue]Me[/Color]
       Form2.WindowState = FormWindowState.Maximized
       Form2.Show()
       Form2.Update()
   [Color=Blue]End Sub[/Color]

   [Color=Blue]Private Sub [/Color]ShowTextInTheSelectedChildFormToolStripMenuItem_Click([Color=Blue]ByVal [/Color]sender [Color=Blue]As [/Color]System.Object, [Color=Blue]ByVal [/Color]e [Color=Blue]As [/Color]System.EventArgs) [Color=Blue]Handles [/Color]ShowTextInTheSelectedChildFormToolStripMenuItem.Click
       MessageBox.Show(Form2.TextBox1.Text)
 [Color=Blue]  End Sub[/Color]

[Color=Green]' Option 2 - Probably better[/Color]
   [Color=Blue]Dim [/Color]Documents [Color=Blue]As New [/Color]List([Color=Blue]Of [/Color]Form2) [Color=Green]' Depending on your approach, you might not need this.[/Color]

  [Color=Blue] Private Sub [/Color]NewDocumentToolStripMenuItem_Click([Color=Blue]ByVal [/Color]sender [Color=Blue]As [/Color]System.Object, [Color=Blue]ByVal [/Color]e [Color=Blue]As [/Color]System.EventArgs) [Color=Blue]Handles [/Color]NewDocumentToolStripMenuItem.Click
       [Color=Blue]Dim [/Color]Document [Color=Blue]As [/Color]Form2 = [Color=Blue]New [/Color]Form2
       Document.Text = "New Document " + ([Color=Blue]Me[/color].MdiChildren.Length + 1).ToString()
       Document.MdiParent = [Color=Blue]Me[/Color]
       Document.WindowState = FormWindowState.Maximized
       Document.Show()
       Form2.Update()

       Documents.Add(Document)
[Color=Blue]    End Sub[/Color]

   [Color=Blue]Private Sub [/Color]ShowTextInTheSelectedChildFormToolStripMenuItem_Click([Color=Blue]ByVal [/Color]sender [Color=Blue]As [/Color]System.Object, [Color=Blue]ByVal [/Color]e [Color=Blue]As [/Color]System.EventArgs) [Color=Blue]Handles [/Color]ShowTextInTheSelectedChildFormToolStripMenuItem.Click
      [Color=Green] ' I don't know how you plan on picking wich document to perform the action

       ' This would perform the action on all documents
[/Color]        [Color=Blue]For Each [/Color]Document [Color=Blue]As [/Color]Form2 [Color=Blue]In [/Color]Documents
           MessageBox.Show(Document.TextBox1.Text)
       [Color=Blue]Next[/Color]


       [Color=Green]' This would perform the action on the currently active document
[/Color]        [Color=Blue]Dim [/Color]SingleDocument [Color=Blue]As [/Color]Form2 = [Color=Blue]TryCast[/Color](Me.ActiveMdiChild, Form2)
       [Color=Blue]If [/Color](Form2 [Color=Blue]IsNot Nothing[/Color]) [Color=Blue]Then[/Color]
           MessageBox.Show(SingleDocument.TextBox1.Text)
       [Color=Blue]End If
   End Sub[/Color]