mdi with and childform closing

  • Thread starter Thread starter andreas
  • Start date Start date
A

andreas

I can open several childforms with the following sub in de mdi form after
clicking a button

Private Sub NewWindow()

Dim ch As New ChildForm()
ch.MdiParent = Me
ch.Text = "Textwindow nr " & Me.MdiChildren.Length.ToString
ch.Show()

end sub

I want to open automatically a new childform when the last childform is
closed or closing.

I have tried with a event but changing the line in the sub in <dim
Withevents
ch as new Childform()> fails.

Thanks for any response.
 
andreas said:
I can open several childforms with the following sub in de mdi form
after clicking a button

Private Sub NewWindow()

Dim ch As New ChildForm()
ch.MdiParent = Me
ch.Text = "Textwindow nr " & Me.MdiChildren.Length.ToString
ch.Show()

end sub

I want to open automatically a new childform when the last childform
is closed or closing.

I have tried with a event but changing the line in the sub in <dim
Withevents
ch as new Childform()> fails.
Click to expand...

Withevents can only be used at class level because it internally adds
properties to the class. Properties can only be at class level, not a
procedure level. Use Addhandler/RemoveHandler instead.


--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html
 
Thanks for the information.
I tried addhandler/removehandler but has no solution.
Who gives me a sample code ?
F.e. after closing a child let run a sub in the parent form
 
andreas said:
Thanks for the information.
I tried addhandler/removehandler but has no solution.
Who gives me a sample code ?
Click to expand...

Dim ch As New ChildForm()
addhandler ch.closed, addressof onchildformclosed
ch.MdiParent = Me
ch.Text = "Textwindow nr " & Me.MdiChildren.Length.ToString
ch.Show()



private sub onchildformclosed(...)
removehandler (directcast(sender, form)).closed, _
addressof onchildformclosed
'open another form as written in your first post
F.e. after closing a child let run a sub in the parent form
Click to expand...
'this can also be done here
end sub



--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html
 
Back
Top