cs_gpsman
Messages postés9Date d'inscriptionjeudi 21 décembre 2006StatutMembreDernière intervention23 décembre 2006
-
21 déc. 2006 à 20:20
cs_gpsman
Messages postés9Date d'inscriptionjeudi 21 décembre 2006StatutMembreDernière intervention23 décembre 2006
-
22 déc. 2006 à 08:24
Bonjour
J'ai un item de mon menu Fichier qui s'appelle mnuFichierQuitter. J'ai défini une suite d'opérations Private Sub mnuFichierQuitter_Click().
Comment appeler cette procédure depuis une autre procédure de la même form?
Question subsidiaire: comment l'appeler lorsque l'on clique sur la case "fin" (x) du menu système de la form?
Merci
Call mnuFichierQuitter_Click()
Mais je te conseil de mettre tout ton code dans Form_Unload.
Dans ton menu quitter, tu met Unload Me, quand tu veut quitter tu appele directement Unload Me.
Le code du Form_Unload alors sera exectué quelque soit la fermeture de la form.
cs_gpsman
Messages postés9Date d'inscriptionjeudi 21 décembre 2006StatutMembreDernière intervention23 décembre 2006 21 déc. 2006 à 21:09
Merci;
Mais cela me dit: "paramètre non spécifié pour le paramètre e de Private Sub mnuFichierQuitter_Click(ByVal sender As Object, ByVal e As System.EventArgs) "
Je n'ai pas trouvé l'évènement Unload pour ma form. Ce qui semble s'en rapprocher le plus est FormClosing, mais le code suivant n'arrète pas la fermeture (alors qu'il l'arrête correctement dans un sub quelconque)
MaRéponse = MsgBox(
"Etes vous sur de vouloir quitter?", MsgBoxStyle.YesNo)
Ha mais si t'est en dotnet, c'est différent, fallait présiser.
Alors en .net, c'est le FormClosing :
Private Sub FormOnFormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
If System.Windows.Forms.MessageBox.Show("Etes vous sur de vouloir quitter ?", "MonApplication", System.Windows.Forms.MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.No Then
e.Cancel = True
End If
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
MyBase.Close()
End Sub,