[VB.NET] Interdire la sortie sauvage d'un form
Bonjour
Suite au sujet de frechy "GRISER LA CROIX DE FERMETURE" , j'avais proposé ceci :
Code:
1
2
3
| Private Sub V3_Ctrl_Comp_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
e.Cancel = Not FermeForm
End Sub |
avec Fermeform=True sur le clic du bouton de sortie.
Ce à quoi _51 avait répondu :
Pas besoin de variable globale, il suffit de tester le "sender"
Code:
if (sender != bouttonExit)
{
e.cancel = true;
}
Or j'ai essayé de transposer ceci en VB.Net dans mon appli, mais le sender est la fenêtre en closing, et non pas le bouton qui a provoqué ce closing
Code:
1
2
3
4
5
6
7
| Private Sub V3_Arbo_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
Dim CTRL As Control
CTRL = sender
If CTRL.Name <> "Button1" Then
e.Cancel = True
End If
End Sub |
Où est l'erreur SVP ?
