1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
   |  
Private Sub frmIngredient_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        'Détection d'une modification sur le form et la datagridview
Me.PlatsBindingSource.EndEdit()
        Me.IngredientsBindingSource1.EndEdit()
        Dim intPlatsModifié As Integer = Me.OsteriaDataSet.Plats.Select("", "", (DataViewRowState.ModifiedOriginal Or (DataViewRowState.ModifiedCurrent Or DataViewRowState.Added))).GetLength(0)
        Dim intdtgridModifié As Integer = Me.OsteriaDataSet.Ingredients.Select("", "", DataViewRowState.ModifiedOriginal Or DataViewRowState.ModifiedCurrent Or DataViewRowState.Added).GetLength(0)
        Dim intReponse As DialogResult
        Try
            If intPlatsModifié > 0 Or intdtgridModifié > 0 Then
                intReponse = MessageBox.Show("Vous avez modifié des données sur " & Me.Text & vbNewLine & "FERMER SANS ENREGISTRER?", "MODIFICATION", MessageBoxButtons.YesNo, MessageBoxIcon.Information)
                If intReponse = Windows.Forms.DialogResult.Yes Then
                    e.Cancel = False 'si on clique oui alors je ferme le formulaire
                Else
                    e.Cancel = True 'si on clique non je laisse le formulaire reste ouvert
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try | 
Partager