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 :
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
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
Dans cette procédure je ne souhaite pas voir apparaitre le message de départ utilisé avec 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
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
Partager