How to know the loaded Form has been loaded to finish?

[yxq]

Hi
When a sub-Form are loading, how to know the sub-Form has been loaded to
finish(all work end)?
I wrote the code
*********************************************
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Private Obj-sub-Form As Form
Obj-sub-Form = New sub-Form ()
Obj-sub-Form.MdiParent = Me
Obj-sub-Form.Show()
Me.Cursor = System.Windows.Forms.Cursors.Default
*********************************************
I found the cursor has restored to default, but the sub-Form has not been
loaded to finish yet!

How to do?

Thanks

[Armin Zingler]

"yxq" <ga***@163.net> schrieb

Hi
When a sub-Form are loading, how to know the sub-Form has been
loaded to
finish(all work end)?
I wrote the code
*********************************************
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Private Obj-sub-Form As Form
Obj-sub-Form = New sub-Form ()
Obj-sub-Form.MdiParent = Me
Obj-sub-Form.Show()
Me.Cursor = System.Windows.Forms.Cursors.Default
*********************************************
I found the cursor has restored to default, but the sub-Form has not
been loaded to finish yet!

How to do?

It must have been loaded because the load event is fired before the form is
shown. The form is not shown before the load event (/onload) has finished.

What makes you think it has not been loaeded?
--
Armin

[Herfried K. Wagner [MVP]]

* "yxq" <ga***@163.net> scripsit:

When a sub-Form are loading, how to know the sub-Form has been loaded to
finish(all work end)?
I wrote the code
*********************************************
Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
Private Obj-sub-Form As Form
Obj-sub-Form = New sub-Form ()
Obj-sub-Form.MdiParent = Me
Obj-sub-Form.Show()
Me.Cursor = System.Windows.Forms.Cursors.Default
*********************************************
I found the cursor has restored to default, but the sub-Form has not been
loaded to finish yet!

I am not able to repro that. Why not change the cursor in the child
form's 'Load' event handler?

\\\
.... Sub Form1_Load(...) ...
...
Me.Show()
Me.MdiParent.Cursor = ...
End Sub
///

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>