mdi with and childform closing

[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.

 

[Armin Zingler]

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.

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

 

[andreas]

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

 

[Armin Zingler]

Thanks for the information.
I tried addhandler/removehandler but has no solution.
Who gives me a sample code ?

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

'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