Close Button

[Ali Rizwan]

Hi all,
We all have seen a close button on right side of title bar on any form in vb6.0
I want that if i click on that button form doesn't terminate a timer control will enabled.
Suppose if i click on close button a msgwill appear or a timer control will enabled true.
But form will not terminated.
Thanx

[Dan2kx]

in excel there is a pice of code known as the Query_close procedure, i have no idea if it works in ur situation but i would do a search for that!

[Tig201]

you can set Cancel to 1 in the form_unload and the form will not close.

Private Sub Form_Unload(Cancel As Integer)
  Cancel = 1
End Sub
 

Just be sure to put it in an If Satement so that you can close the form.

[Killer42]

Generally it's better to use the Form_QueryUnload procedure, because this includes a parameter that tells you why the form is trying to unload (code, Windows shutting down, user clicked "close" button", etc.)

[Ali Rizwan]

Generally it's better to use the Form_QueryUnload procedure, because this includes a parameter that tells you why the form is trying to unload (code, Windows shutting down, user clicked "close" button", etc.)

Thanks Killer.
But how to use it? I have never used this command.
Thanks

[Killer42]

But how to use it? I have never used this command.

You should be able to create the procedure easily enough, just by selecting Form in the left-hand drop-down box (top of the code window), then choosing QueryUnload in the right-hand one.

Then try posting in this code to demonstrate what's going on.

Select Case UnloadMode
  Case vbFormControlMenu
    ' User attempting to close the window.
    MsgBox "Hah! You can't get me that way."
    Cancel = True
  Case vbFormCode
    ' Unload was invoked from my code. Probably should allow it.
  Case vbAppWindows
    ' Windows is ending. Probably should allow it. You
    ' might want to ask "save before exiting?" or something.
  Case vbAppTaskManager
    ' Task Manager is closing me. Probably that pesky user again!
    MsgBox "Nope! Give up, I'm not going anywhere."
    Cancel = True
  Case vbFormMDIForm
    ' Um... this only applies to MDI child forms.
  Case vbFormOwner
    ' Form is closing because its owner is closing.
    ' Whatever that means...
End Select

[jamesd0142]

There is a form closed method which you can use for this.

Double-click your form, and change the form load to form closed in the combo box on the top right of your code.

Thanks

[vdraceil]

If you don't want the form to unload on clicking the close button, it is same as having no close button at the top. Try setting ClipControls and Controlbox properties of the form to false and set form's caption=""

[ThaDu]

Private Sub Form_Unload(Cancel As Integer)
    MsgBox "A"
    Timer1.Enabled = True
    Cancel = 1
End Sub
Private Sub Timer1_Timer()
    End
End Sub

[email removed]

[Killer42]

There is a form closed method which you can use for this.

Not in VB6, there isn't.

[jamesd0142]

Not in VB6, there isn't.

Once again im not using that version sorry.
visual basic 2005 express edition 'forClosed' and im sure its the same in vb.net, or very simular anyways.

Is there any other way of running code when the user closes the form ??

Thanks

in vb.net and vb 2005 express edition this works...

   Private Sub Form1Closing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
        If MessageBox.Show("Are you sure to exit?", "Exit", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
 
    End Sub
 

[Killer42]

In VB6 (which Ali did mention) I believe you're limited to the Form_QueryUnload and Form_Unload event procedures.