Thread: How to code the close button in the form?

Hi Guys,

Can I ask if someone have an idea on how can I write a code in the close button in the form.

Example, if the user click the close button (the red box with X) then a message box will appear if he clicks yes then it will end, if cancel the form will not close.

Thanks!

annir

put this script to your close button (when you click on the close button in your form)

Code:

 
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
Dim response As MsgBoxResult
response = MsgBox("Do you want to close form?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")
If response = MsgBoxResult.Yes Then
Me.Dispose()
ElseIf response = MsgBoxResult.No Then
Exit Sub
End If
End Sub

put this script to your form closing (when you click on the X button on top)

Code:

 
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim response As MsgBoxResult
response = MsgBox("Do you want to close?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")
If response = MsgBoxResult.Yes Then
Me.Dispose()
ElseIf response = MsgBoxResult.No Then
e.Cancel = True
Exit Sub
End If
End Sub

hope this helps you.

Hi,

Thank you very much!

annir

Originally Posted by jacky.goy

put this script to your close button (when you click on the close button in your form)

Code:

 
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
Dim response As MsgBoxResult
response = MsgBox("Do you want to close form?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")
If response = MsgBoxResult.Yes Then
Me.Dispose()
ElseIf response = MsgBoxResult.No Then
Exit Sub
End If
End Sub

put this script to your form closing (when you click on the X button on top)

Code:

 
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim response As MsgBoxResult
response = MsgBox("Do you want to close?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")
If response = MsgBoxResult.Yes Then
Me.Dispose()
ElseIf response = MsgBoxResult.No Then
e.Cancel = True
Exit Sub
End If
End Sub

hope this helps you.

Wow, just look at all of that un-needed redundancy...

To close the form:

Code:

 
Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
    Me.Close()
End Sub

For confirmation:

Code:

 
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    e.Cancel = (MessageBox.Show("Confirm close?", "Closing Window", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel)
End Sub

Originally Posted by annir

Hi Guys,

Can I ask if someone have an idea on how can I write a code in the close button in the form.

Example, if the user click the close button (the red box with X) then a message box will appear if he clicks yes then it will end, if cancel the form will not close.

Thanks!

annir

This code i use in vb 2008
'================================================= ==
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim response As MsgBoxResult
response = MsgBox("Are you sure you want to close the application?", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "Close confirmation")
If response = MsgBoxResult.Yes Then
Me.Close()
ElseIf response = MsgBoxResult.No Then
e.Cancel = True
Exit Sub
End If
End Sub
'========================================

Originally Posted by geomatrix

This code i use in vb 2008
'================================================= ==
Private Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim response As MsgBoxResult
response = MsgBox("Are you sure you want to close the application?", vbYesNo + vbExclamation + vbApplicationModal + vbDefaultButton2, "Close confirmation")
If response = MsgBoxResult.Yes Then
Me.Close()
ElseIf response = MsgBoxResult.No Then
e.Cancel = True
Exit Sub
End If
End Sub
'========================================

Here's something a little cleaner:

Code:

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = MessageBox.Show("Are you sure you want to close the application?", "Close confirmation", MessageBoxButtons.OKCancel, MessageBoxIcon.Exclamation) <> Windows.Forms.DialogResult.OK
    End Sub