Action sur la croix du form avec FormClosing et CloseReason
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:
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:
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:
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 ! :mur:
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 .... :arf:
Merci pour votre aide...
Bruno
