Force a Form to Hide

[VB_GOD]

How would I force a form to hide? After logging off and logging back on, the forms on my VB Service app no longer respond to the .Hide command nor the visible property ... any ideas?

[RobDog888]

How about using this...

'SHOWWINDOW COMMANDS
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10

Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Call ShowWindow(App.hwnd, SW_HIDE)

[VB_GOD]

Ok, the problem was that for some reason the Form_QueryUnload doesn't get called when the Form's close button is clicked ...

Can anyone suggest a solution to this? Maybe subclassing the form to recieve the clicked event of the form's close button?

[Arc]

My guess would be that you're using the "END" statement in the unload button. BUt it's kinda hard to tell since you've shown no code.

[VB_GOD]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ShowWindow Me.hwnd, SW_HIDE
End Sub
Real complex stuff...

But the unload method is not the problem, I even tested it by making a message box popup if queryunload is called, but it never does, thus it is never called. And the X button on the form goes acts wierd too, after the log off/log on it doesn't "act" normally ... its hard to explain ... it doesn't depress properly sometimes ...

Maybe there is some way I can use API to re-initialize the form controls? I know you can manipulate them with API ... anything is worth a try.

[kleinma]

Originally posted by VB_GOD
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ShowWindow Me.hwnd, SW_HIDE
End Sub

lol well that is why...

first of all... your in the queryunload routine..which means hiding the form is pointless.. because it is being unloaded from memory... plus the fact that you are sending a message via api to the window (which is why .show/.hide and .visible doesn't work after you do this).. you don't need to do this... try something like this

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    if UnloadMode = vbFormControlMenu Then'X button
        Cancel = True
        Me.Hide
    end if
End Sub

this will make it so when the form is closed... if the user closed it with the X button.. it doesn't unload the form from memory.. but just hides it.. and you can get it back using the .show method of the form

[VB_GOD]

Still doesn't work .....
I think windows messes it up when it logs off ... even if I intercept WM_ENDSESSION = &H16 or WM_QUERYENDSESSION = &H11 messages to the form or not.

[kleinma]

Originally posted by VB_GOD
Still doesn't work .....
I think windows messes it up when it logs off ... even if I intercept WM_ENDSESSION = &H16 or WM_QUERYENDSESSION = &H11 messages to the form or not.

well then try

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    if UnloadMode = vbFormControlMenu or UnloadMode = vbAppWindows Then'X button
        Cancel = True
        Me.Hide
    end if
End Sub

although windows might unload the form anyway... u would have to try it

[VB_GOD]

I would say that fixes it ... but only because it prevents windows from shutting down in the first place . So this is not of much help .. lol.

[kleinma]

Originally posted by VB_GOD
I would say that fixes it ... but only because it prevents windows from shutting down in the first place . So this is not of much help .. lol.

maybe I don't understand what you are looking to do then.. i thought you didn't want it to shutdown.. only hide