Discussion :

[BRUNO71]

Bonjour,

J’ai besoin d’une explication sur la fermeture d’un form à l’aide de la croix.
J’utilise cette procédure qui va bien :

Code :

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

1
2
3
4
5
6
 Private Sub Page_Principale_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
          If (MsgBox("Voulez-vous quitter l'application ?", vbYesNo, "Fermeture de l'application") = vbYes) Then
         Else
         e.Cancel = True
         End If
    End Sub

En parallèle dans un autre form j’ai besoin d’ouvrir une page avec ce code :

Code :

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

1
2
3
4
5
6
7
8
 Private Sub Btn_annuler_courrier_Click(sender As Object, e As EventArgs) Handles Btn_annuler_courrier.Click
 
        Page_démarrage.Show()
        Page_démarrage.Text_message.Text = "Courrier Annulé..."
        Page_démarrage.Btn_démarrer_application.Text = "Ok"
        Me.Close()
 
    End Sub

Muni d’un bouton pour réafficher la page principale (celle qui possède la croix).

Code :

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

1
2
3
4
Private Sub Btn_démarrer_application_Click(sender As Object, e As EventArgs) Handles Btn_démarrer_application.Click
        Page_Principale.Show()
        Me.Close()
    End Sub

Dans cette procédure je ne souhaite pas voir apparaitre le message de départ utilisé avec la croix !
Au moment du Me.Close()....le message arrive !
C’est dommage, comment faire ?
Peut-on afficher le message uniquement lorsque la croix est actionnée et ne pas afficher le message sur la fermeture de cette même fenêtre depuis un bouton ?
J’ai essayé de comprendre les discussions autour de (CloseReason) mais ....

Merci pour votre aide...

Bruno

[Delaney]

2 solutions :

Soit tu crées une variable fermeture_directe as boolean et tu gères un if / then dans Page_Principale_FormClosing

Soit tu désactives temporairement l'évènement Page_Principale_FormClosing

Code :

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

1
2
3
RemoveHandler MyBase.FormClosing, AddressOf Page_Principale_FormClosing
 Me.Close()
 AddHandler MyBase.FormClosing, AddressOf Page_Principale_FormClosing

PS : si c'est ta form principale que tu fermes, cela ferme le programme complètement du coup tu n'as même plus besoin du AddHandler