VB - Forms - Unload a form in the Form_Load() event

[MerrionComputin]

If you putthe command "Unload me" in the VB Form_Load() event it generates a runtime error "The object was unloaded".

Instead use the Postmessage API to post a WM_CLOSE message to it...

Option Explicit
 
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE = &H10
 
Private Sub Form_Load()
 
PostMessage Me.hwnd, WM_CLOSE, 0, 0
 
End Sub

[Cimperiali]

...

Have a nice day, you ApiGuru

[krtxmrtz]

What's the purpose of unloading a form that's being loaded? I'm just curious... In what kind of task would that be useful?

[MerrionComputin]

For example, in the Microsoft Template "Startup Tips" form, if you have a registry entry "Show tips at startup" set to false the form just unloads itself...of course MS didn't test their code so in fact you get a runtime error *sigh*

[James Stanich]

I have always accomplished this with a timer. Good piece of code.

[manavo11]

James, do you do something like this(just wondering)?

Dim Whatever As Boolean 
 
Private Sub Form_Load() 
Timer1.Interval = 100 
Timer1.Enabled = False 
'For some reason Whatever is True 
Whatever = True 
 
If Whatever = True Then 
  Timer1.Enabled = True 
End If 
End Sub 
 
Private Sub Timer1_Timer() 
Unload Me 
End Sub

[lilford]

Unload Me command in Form_Load() does not give any error. So what is the point in using this lengthy code????

[krtxmrtz]

Originally posted by lilford
Unload Me command in Form_Load() does not give any error. So what is the point in using this lengthy code????

He's right, I have tested this in VB5 and VB6 and no error pops up.
How about VB.Net?

[Merrion]

Yes - well if you test this by showing the form from code rather than just having it as the startup form it raises runtime error '364' Object Was Unloaded.

e.g. in Form_1 Load:

Option Explicit
 
Private Sub Form_Load()
 
Form2.Show
 
End Sub

and in Form2:

Option Explicit
 
Private Sub Form_Load()
 
Unload Me
 
End Sub

[lilford]

You r rite buddy. it does raise the error and the code works fine..Thumbs up buddy.

[aafuss]

The code works extremely well. Tried it with form unload-worked as well.