[RESOLVED] On Exit...

[ryanlcs]

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?

[RobDog888]

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

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

[ryanlcs]

Wow...It works..

Thanks.

[waynescence]

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:

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