BindingNavigator.DeleteItem message confirmation

Bonjour à tous,

Dans un BindingNavigator, le bouton DeleteItem. Pour essayer de sécuriser le process, je veux mettre un avertissement et n'effacer la ligne que si confirmation.
Je fais donc ça :

Code:

---

1 2 3

If MessageBox.Show("Vous allez supprimer des données, êtes-vous sûr?", "Supprimer les données?", MessageBoxButtons.OKCancel) = Windows.Forms.DialogResult.Cancel Then Exit Sub End I

---

J'ai bien mon message, je clique sur Cancel, (dans ce cas, j'ai mis un msgbox), le bouton Cancel est bien vu, ma ligne Exit Sub est bien traitée, mais macache : l'effacement se fait quand même! Pourquoi tant de haine?:mrgreen:

Exit sub est un truc que j'utilise souvent en vba, mais peut-être pas adéquat en VB.Net?

Merci d'avance,

JFB

C'est pas un truc du type e.Handled pour indiqué que tu t'en charges ?

Merci CyrilAnge de t'intéresser à mon cas... :-)

Je viens de regarder vite fait, mais ne vois pas du tout comment utiliser ce e.handled... si quelqu'un a une idée, elle est la bienvenue! :D

Amicalement,

JFB

Bonjour,

Je me réponds, avec la seule solution que j'ai trouvée (et qui marche :-)

Dans le BindingNavigator, mettre la propriété DeleteItem à 'aucun'.

Mettre ce genre de code sur le click du bouton Deleteitem :

Code:

---

1 2 3 4 5 6 7 8 9

If MessageBox.Show("Voulez-vous vraiment supprimer cet utilisateur? Ceci est irréversible.", "Confirmer Suppression?", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.Yes Then Try Adm_USERBindingSource.RemoveCurrent() Me.Adm_USERBindingSource.EndEdit() Me.TableAdapterManager.UpdateAll(Me.AdmUsersDataSet) Catch ex As Exception MessageBox.Show("Oops : " & ex.Message.ToString) End Try End If

---

Et voilà... il existe peut-être un truc plus générique, mais je n'ai pas trouvé :-)

Amicalement,

JFB