Discussion :

[Jayme65]

Bonjour,

Je me rends compte que quand je donne l’ordre de quitter à mon programme...celui ci ne peut s'empêcher de continuer à exécuter les lignes qui suivent quand même!! Est-ce bien normal? ;-)

Voici un exemple simple qui permet de le vérifier:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Class MainWindow 
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Dim test As Integer = 1
        If test = 1 Then
            MsgBox("First Message Box", 48, "Attention")
            Me.Close()
        End If
        If test = 1 Then
            MsgBox("Second Message Box", 48, "Attention2")
            Me.Close()
        End If
    End Sub
End Class

Vous verrez que rien n'empêche la deuxième fenêtre de s'ouvrir!
Comment faire svp, pour un arrêt "immédiat"??

Si je remplace le 'Me.Close' en 'Application.Current.Shutdown()'...il n'y a qu'une seule fenêtre qui s'affiche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Class MainWindow 
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Dim test As Integer = 1
        If test = 1 Then
            MsgBox("First Message Box", 48, "Attention")
            Application.Current.Shutdown()
        End If
        If test = 1 Then
            MsgBox("Second Message Box", 48, "Attention2")
            Application.Current.Shutdown()
        End If
    End Sub
End Class

...mais j'ai comme message "A first chance exception of type 'System.NullReferenceException' occurred in WpfApplication1.exe". Ce qui est moins "grave" car l'utilisateur final ne verra pas cette erreur du debugger...mais quand même, je voudrais savoir comment y arriver "proprement"!

D'avance merci!

[Pol63]

me.close ne fait que fermer la fenetre, ca n'empeche en rien l'exécution du code qui suit (et c'est logique)
on eut alors utiliser exit sub pour sortir de la sub

après un shutdown je mettais exit sub aussi, mais apparemment ca ne continue pas l'exécution de la sub et donc ca serait inutile

le first chance veut simpelement dire qu'une erreur a été catchée, ca peut etre dans le framework ...

[Jayme65]

La solution, pour moi, a été de placer un 'Return' pour sortir du sub. L'application se ferme alors sans que je vois apparaitre la deuxième fenêtre (qui n'était là, dans mon exemple, que pour illustrer que le code continuait à se dérouler même après l'instruction 'Me.Close'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Class MainWindow 
    Private Sub MainWindow_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Dim test As Integer = 1
        If test = 1 Then
            MsgBox("First Message Box", 48, "Attention")
            Application.Current.Shutdown()
            Return
        End If
        If test = 1 Then
            MsgBox("Second Message Box", 48, "Attention2")
        End If
    End Sub
End Class