Stop Form Closing 1

[sha76]

Hi,

Is there any code I can put in the unload event (or somewhere else) to keep a form open if the user chooses to from a message box?
I want to avoid disabling the close button & putting in my own as the form's in danger of getting a bit overcrowded!

Thanks for your help,

Sharon

 

[TorF]

Are you searching for this ?

Private Sub Form_Unload(Cancel As Integer)
Dim Result As VbMsgBoxResult

Result = MsgBox("Do you really want to close this window ?", vbYesNo, "Quit&quot

Cancel = Result = vbNo
End Sub

 

[Junior1544]

This makes for harder error checking, but less code...

This is how i prafer to do it...
Though both should work equily well...



Private Sub Form_Unload(Cancel As Integer)
if msgbox("Do you want to close this form?", vbyesno) = vbyes then cancel = true
End Sub junior1544@jmjpc.net
Life is change. To deny change is to deny life.

 

[TorF]

Why so much complications ?

Private Sub Form_Unload(Cancel As Integer)
Cancel = vbNo = MsgBox("Do you really want to close this window ?", vbYesNo, "Quit&quot
End Sub

 

[Junior1544]

There ya go, even less then mine...

I like it when people out-program me... makes me work harder Thank you.

junior1544@jmjpc.net
Life is change. To deny change is to deny life.