OVH Cloud OVH Cloud

fermeture fenetre

1 réponse
Avatar
LOIC
bonjour,

Je cherche à demander une confirmation avant fermeture d'une fenêtre et je
ne comprend pas pourquoi le code ci dessous ne fonctionne pas cela m'emêche
de fermer ma fenêtre à chaque fois que je clique sur oui ou non !!!

Ca doit être une erreur bête masi la je sèche !!

Private Sub Composant_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

MsgBox("Avez vous sauvegardé vos données ?", MsgBoxStyle.YesNo, "Attention")

If MsgBoxResult.No Then

e.Cancel = True

Else

e.Cancel = False

End If

End Sub





Merci

1 réponse

Avatar
LOIC
c'était çà merci quand je disais que ca devait être vraiment bête !!

"Xharkin" a écrit dans le message de news:jpOvu2.$
LOIC :
> bonjour,

> Je cherche à demander une confirmation avant fermeture d'une
> fenêtre et je ne comprend pas pourquoi le code ci dessous ne
> fonctionne pas cela m'emêche de fermer ma fenêtre à chaque
> fois que je clique sur oui ou non !!!

> Ca doit être une erreur bête mais la je sèche !!

> Private Sub Composant_Closing(ByVal sender As Object, ByVal e
> As System.ComponentModel.CancelEventArgs) Handles
> MyBase.Closing

> MsgBox("Avez vous sauvegardé vos données ?",
> MsgBoxStyle.YesNo, "Attention")
> If MsgBoxResult.No Then
> e.Cancel = True
> Else
> e.Cancel = False
> End If
> End Sub

Essayez avec :

Dim ConfirmSvg As MsgBoxResult
ConfirmSvg = MsgBox("Avez vous sauvegardé vos données ?",
MsgBoxStyle.YesNo, "Attention")

If ConfirmSvg = MsgBoxResult.No Then

e.Cancel = True

Else

e.Cancel = False

End If