Help with application's help

[Crazyf]

Hello everyone,
I have created a small application in vb6 includes a chm html help file. My application has one mdiform and the other forms are mdi childs. It works fine but there is a problem. When i run the program the form i see is the mdiform it is the main form for my program if open from menu the help file and if i close the application from X button the vb6 closes unormally. I don't know why does this happen. I am thinging the maybe i have to subclass the chm file to be mdichild but i don't know how to do because i am new in vb6 to do this and i don't know too, if it's really feasible. Also I am wantering that maybe happens something else and the vb6 close unormally. I don't know what to suppose.
Any help will be much appreciated.

Thank you
in advanced

 

[BobRodes]

Well, you can prevent the user from closing the main form with the x button, too, or do some cleaning up that could prevent the problem.

Check out the QueryUnload event at

http://msdn2.microsoft.com/en-us/library/aa445536(VS.60).aspx

and see if that solves your problems.

HTH

Bob

 

[Crazyf]

Thank you much Bob, that doesnot solve my problem. I tried in the query unload event mdimainform.UnloadAllForms the advantage of this statement is that the vb6 doesn't ends unormally but when the application has been closed by the user the chm html help file is still opened. Is there a way to unload the .chm (html help file) with code through vb6 and how?

 

[BobRodes]

Oh, I see what you're asking. It's because the help file opens in a different process.

Check OpenProcess and CloseHandle in the Windows API. You can do a search on this site for code samples.

Bob

 

[zemp]

See thread764-1382048.

zemp

 

[Crazyf]

Thank both of you.
Bob I am not familiar with subclasses in windows api.
Zemp this doesnot solve my problem.
I declared these in my module .bas and i called the quithelp in the mdiform query unload and now it works fine.

Const HH_CLOSE_ALL = &H12
Public Sub QuitHelp()
hwndHelp = HTMLHelp(0&, "", HH_CLOSE_ALL, ByVal 0&)
End Sub