Bonjour

Suite au sujet de frechy "GRISER LA CROIX DE FERMETURE" , j'avais proposé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?