[RESOLVED] The close (X) not working..

[khandu]

I copied this code from somewhere who suggested in this form for the (X) button on top left of my MDIParent ( frmmain ) form.. but when I press the button.. it simply exits the program without the popup.. whats wrong with the code

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Select Case MsgBox("Are You Sure You want to exit the Program?", vbYesNo, " Exit Application")
        Case vbYes
        Call closealldb
          End
        Case vbNo
          Exit Sub
        End Select
End Sub

[Hack]

Try this

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim vbResponse As VbMsgBoxResult
vbResponse = MsgBox("Are You Sure You want to exit the Program?", vbYesNo, " Exit Application")
 
    Select Case vbResponse
        Case vbYes
          Unload Me
        Case vbNo
          Cancel = -1
    End Select
End Sub

Never, ever, ever use END.

[khandu]

not working still

am i suppose to change anything ?? like form_queryunload

it simply closes the MDI without asking for the msgbox

[Hack]

am i suppose to change anything ?? like form_queryunload

Yes...you are supposed to change what you have with what I posted.

[gavio]

Just a tip... NEVER use End Forget that it even exists...

[khandu]

Yes...you are supposed to change what you have with what I posted.

ofcourse i did put your code.. that is not working too..

the close button just closes it without the msgbox coming..

[Hack]

Zip your project and attach it....I want to take a look.

[khandu]

Here..

it is a MDIparent form..

Can u modify and make it work..

also y is it not working ?? due to MDI parent??

[Hack]

I can't open .rar files.

Do you have Winzip?

[RobDog888]

If its an MDI app then are you trying to catch the MDIParent forms 'x' click? If so then its a different procedure.

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
End Sub

[khandu]

yep..

resolved and repped

[RobDog888]

Thanks. Btw, most members have winzip or some other zip utility. Not too many have winrar.

[Al42]

Rob, grab a copy of 7Zip.

[RobDog888]

Naw but Thanks. I'm trying to keep my new system lite as possible. rar files are rare when compared to zip files. I dont even have winzip installed as Vista has compression/uncompression in zip format built in.