Discussion :

[6su7]

Bonjour

http://faqvbnet.developpez.com/?page...ueryendsession

code original :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
'Message Windows QueryEndSession
Private Const WM_QUERYENDSESSION As Integer= &H11;
 
'flag indiquant si la session est en cours de fermeture
Private _systemShutdown As Boolean= false;
 
'Redéfinition de la fonction virtuelle WndProc
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
 
    'Mise dans systemShutdown la présence du message fermeture Windows
    If m.Msg = WM_QUERYENDSESSION Then
    _systemShutdown = true
    base.WndProc(m)
End If
 
End Sub
 
'Handler evenement closing
Private Sub Form1_Closing(object sender, System.ComponentModel.CancelEventArgs e) Handles Form1.Closing
 
    'Si le message fermeture Windows a été envoyé, on l'annule !
    If _systemShutdown Then
 
        e.Cancel = true
        _systemShutdown = false
        MessageBox.Show("Fermeture de session windows annulée")
 
    End If
 
End Sub

Il y a quelque problème dans ce code... j'en suis arrivé là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
     'Message Windows QueryEndSession
    Private Const WM_QUERYENDSESSION As Integer = &H11
 
    'flag indiquant si la session est en cours de fermeture
    Private _systemShutdown As Boolean = False
 
 
    'Redéfinition de la fonction virtuelle WndProc
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
 
        'Mise dans systemShutdown la présence du message fermeture Windows
        If m.Msg = WM_QUERYENDSESSION Then
            _systemShutdown = True
            MyBase.WndProc(m)
        End If
 
    End Sub
 
    'Handler evenement closing
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'Si le message fermeture Windows a été envoyé, on l'annule !
        If _systemShutdown Then
 
            e.Cancel = True
            _systemShutdown = False
            MessageBox.Show("Fermeture de session windows annulée")
 
        End If
 
    End Sub

mais il doit encore en rester ... mon application plante quand j'utilise ce code

Merci
Sébastien

[Ditch]

Que se passe-t-il exactement?

pour ton intervention

[6su7]

un message :

Une exception non gérée du type 'System.ComponentModel.Win32Exception' s'est produite dans system.windows.forms.dll

Informations supplémentaires : Erreur lors de la création d'un handle de fenêtre.

et il me surligne :

Application.Run(Form1) dans mon module principale

[Ditch]

Merci, c'est noté et ce sera corrigé lors de la prochaine mise à jour de la FAQ

[abelman]

Il faut sortir le MyBase.WndProc du If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      'Mise dans systemShutdown la présence du message fermeture Windows
        If m.Msg = WM_QUERYENDSESSION Then
            _systemShutdown = True
        End If 
        MyBase.WndProc(m)

[6su7]

Il faut sortir le MyBase.WndProc du If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
      'Mise dans systemShutdown la présence du message fermeture Windows
        If m.Msg = WM_QUERYENDSESSION Then
            _systemShutdown = True
        End If 
        MyBase.WndProc(m)

ca fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
   'Message Windows QueryEndSession
    Private Const WM_QUERYENDSESSION As Integer = &H11
 
    'flag indiquant si la session est en cours de fermeture
    Private _systemShutdown As Boolean = False
 
 
    'Redéfinition de la fonction virtuelle WndProc
    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
 
        'Mise dans systemShutdown la présence du message fermeture Windows
        If m.Msg = WM_QUERYENDSESSION Then
            _systemShutdown = True
 
        End If
        MyBase.WndProc(m)
    End Sub
 
    'Handler evenement closing
    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        'Si le message fermeture Windows a été envoyé, on l'annule !
        If _systemShutdown Then
 
            e.Cancel = True
            _systemShutdown = False
            MessageBox.Show("Fermeture de session windows annulée")
 
        End If
 
    End Sub

Merci

[6su7]

Autre probleme

Si on ne clique pas tout de suite sur OK lors du message, on a un

Fin du programme - WindowsFromsParkingWindow

[6su7]

Bonjour

En fait il faut sortir le message de l'évenement closing ...

mais je ne vois pas comment

y a pas un evenement after try closing ?

Merci

[lou87]

Je suis désolée mais je ne vois pas de solution...

Mais peut-être quelqu'un en a une idée ?

[abelman]

Si on sort le code du closing on ne peut pas annuler la fermeture de windows.
Windows donne un temps limite aux applications pour se fermer lors de la fermeture de session. Si ce temps est atteint et qu'il n'y a pas d'annulation alors Windows tue le process