[RESOLVED] On Exit...

VB Code:

Private Sub frmInventory_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Dim yesToUpdate As Integer
 
        If changes Then
            yesToUpdate = MsgBox("Changes made are not save, do you want to save the changes ?", MsgBoxStyle.DefaultButton1 + MsgBoxStyle.YesNoCancel, "Save Changes")
            If yesToUpdate = vbYes Then
                MsgBox("update")
            ElseIf yesToUpdate = vbCancel Then
                MsgBox("Close the msgbox,but not close the form")
            End If
 
            changes = False
        End If
        cnn.Close()
    End Sub

What I want is if I click the "Cancel" button of he message box, I dont want the form to be closed. Only "Yes" and "No" will close the form.

Any idea how to achieve that?

Your using the wrong event then. You need to use the Closing event so you can intercept the unloading and cancle it. ;)

VB Code:

Private Sub frmInventory_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    Dim yesToUpdate As Integer
    
    If changes Then
            yesToUpdate = MsgBox("Changes made are not save, do you want to save the changes ?", MsgBoxStyle.DefaultButton1 + MsgBoxStyle.YesNoCancel, "Save Changes")
            If yesToUpdate = vbYes Then
                MsgBox("update")
            ElseIf yesToUpdate = vbCancel Then
                MsgBox("Close the msgbox,but not close the form")
                e.Cancel = True
            End If
            changes = False
        End If
        cnn.Close()
End Sub

Wow...It works..

Thanks.

Hi, i also need to implement similar function to what you have here, any idea hwo i can make this happy to my set of closing instead with a Yes and No too? Coding is as of below:

VB Code:

Private Sub Download_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Module2.sending("<logout/>")
        Try
            mySocket.Close()
        Catch ex As Exception
            MessageBox.Show("Program Terminated...")
        End Try
        Application.Exit()
        'Me.Close()
    End Sub