jlnblade
Messages postés10Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention29 juillet 2005
-
28 juil. 2005 à 03:10
Doro81079
Messages postés380Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention24 février 2015
-
29 juil. 2005 à 12:36
Voilà, j'ai un petit programme qui me permet de saisir du texte (je sais, ce n'est pas très intéressant mais je débute). Je programme en VB.NET et je cherche à avoir une fenêtre d'avertissement (msgbox) me demandant si je souhaite vraiment quitter le programme. Je n'arrive pas a faire correspondre ma msgbox à la croix permettant la fermeture du programme.
Merci de votre aide
PS: Désolé si le thème ne correspond pas mais je ne savais pas trop où poster cette question
Doro81079
Messages postés380Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention24 février 201556 28 juil. 2005 à 03:36
bonsoir,
je ne programme pas en vb.net mais vb6 je ne sais pas si ça t'aideras mais au cas òu...
en vb6 on place le code dans l'évènement queryunload de la form
tiens moi au courant
doro
Paladin2107
Messages postés154Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention 5 septembre 20081 28 juil. 2005 à 08:37
Private Sub Form_Unload(Cancel As Integer)
If (MsgBox("Etes vous sure de vouloir quitter l'application ?", vbYesNo, "Titre") = vbNo) Then
'opération annulée
Exit Sub
Else
'opération validée
End
End If
End Sub
cs_insomnix
Messages postés20Date d'inscriptionlundi 28 juin 2004StatutMembreDernière intervention13 septembre 2005 28 juil. 2005 à 10:00
Salut, moi je fais comme ca :
Private Sub Form_Unload(Cancel As Integer)
'confirmation en sortie
If Not MsgBox("Êtes vous certain de vouloir quitter le programme ? ", vbQuestion + vbYesNo, Me.Caption) = vbYes Then
Cancel = vbCancel
End If
End Sub
jlnblade
Messages postés10Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention29 juillet 2005 28 juil. 2005 à 14:22
Tout d'abord, merci pour vos nombreuses réponses (je les ai toutes prises).
Concernant la réponse de 406755 FabFly, il manquait un end if après le else, sinon, ca fonctionne très bien.
Ensuite, pour la réponse de =299251 insomnix, il me dit que Me.Caption n'est pas un membre de menu.Form1 (ma fenêtre principale s'appelle Form1_Load).
En ce qui concerne la réponse de 184601 Paladin2107, rien ne se passe, je chercherai un peu pourquoi (si vous avez aussi le temps, n'hésitez pas a jetter un oeil
Et pour finir, pour la réponse de =496278 doro81079 , il n'y a pas l'évènement queryunload de la form ... a moins que je ne l'ai pas vu (je suis un débutant lol).
Dans tout les cas, merci de votre aide en espérant qu'un jour je vous retourne l'appareil .
Sur ce, bonne journée
jlnblade
Messages postés10Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention29 juillet 2005 28 juil. 2005 à 14:33
hep hep hep, petite modification FabFlylol. Lorsque le clique sur le boutton non lors de la demande de fermeture le programme se quitte tout de même.
Je vais un peu chercher mais je pense que l'erreur se situe après le else.
Voila ...
jlnblade
Messages postés10Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention29 juillet 2005 28 juil. 2005 à 15:01
Bé je cherche et cherche encore LOL. Je ne sais pas d'où le problème peu venir. Avis aux plus initiés pour me venir en aide .
En tout cas, c'est une bonne piste
Doro81079
Messages postés380Date d'inscriptionvendredi 22 avril 2005StatutMembreDernière intervention24 février 201556 28 juil. 2005 à 20:08
bonsoir,
pour query c'est normal je suis en vb6 et sinon essai de mettre cancel=1 au lieu de cancel=vbcancel j'ai eu le même prob en vb6 vbcancel il ne comprennait pas
a+
doro
jlnblade
Messages postés10Date d'inscriptionvendredi 10 décembre 2004StatutMembreDernière intervention29 juillet 2005 28 juil. 2005 à 21:02
Hé bé non, cela ne fonctionne pas. De plus, il y a une erreur "Me.Caption". Je l'ai supprimer voir ce que cela faisait mais rien n'y fait. En faisait un déboggage pas à pas (avec mon code donc par conséquent celui de FabFly), je vois que lorsque je clic sur non, il passe bien par le bon chemin mais il quitte tout de même mon programme. Je vous poste donc mon code ci dessous si cela peut m'aider a voir mes erreurs et afin que vous puissiez tester vos méthodes ;)
Private
Sub OpenFileDialog1_FileOk(
ByVal sender
As System.Object,
ByVal e
As System.ComponentModel.CancelEventArgs)
Handles OpenFileDialog1.FileOk
End
Sub
Private
Sub Ouvrir_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Ouvrir.Click
Dim objstreamreader
As System.io.TextReader
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK
Then
objstreamreader = System.IO.File.OpenText(OpenFileDialog1.FileName)
RichTextBox1.Text = objstreamreader.ReadToEnd()
objstreamreader.Close()
Else
End
If
End
Sub
Private
Sub Form1_Load(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles
MyBase.Load
End
Sub
Private
Sub Form1_Closing(
ByVal sender
As
Object,
ByVal e
As System.ComponentModel.CancelEventArgs)
Handles
MyBase.Closing
Dim MsgBoxAnswer
As MsgBoxResult
MsgBoxAnswer = MsgBox("Voulez vous vraiment quitter?", MsgBoxStyle.YesNo, "Quitter l'application")
If MsgBoxAnswer = MsgBoxResult.Yes
Then
End
Else
Exit
Sub
End
If
End
Sub
Private
Sub SauvegarderSous_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles EnregistrerSous.Click
Dim objstreamwriter
As System.io.TextWriter
Dim fichier
As
String
fichier = RichTextBox1.Text
If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK
Then
objstreamwriter = System.IO.File.CreateText(SaveFileDialog1.FileName)
objstreamwriter.WriteLine(fichier)
objstreamwriter.Close()
Else
End
If
End
Sub
Private
Sub Quitter_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Quitter.Click
Me.Close()
End
Sub
Private
Sub Nouveau_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Nouveau.Click
Dim reponse
As MsgBoxResult
If RichTextBox1.Text.Empty
Then
reponse = MessageBox.Show("Attention, ceci va effaçer votre travail en cours!" & vbCrLf & "Voulez-vous Continuez?", "Attention", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If reponse = MsgBoxResult.Yes
Then
RichTextBox1.Clear()
Else
End
If
End
If
End
Sub
Private
Sub Texte_TextChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
End
Sub
Private
Sub RichTextBox1_TextChanged(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles RichTextBox1.TextChanged
End
Sub
Protected
Sub ContextMenu1_Popup(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles ContextMenu1.Popup
End
Sub
Private
Sub RichTextBox1_MouseDown(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.MouseEventArgs)
Handles RichTextBox1.MouseDown
End
Sub
Private
Sub MenuItem2_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles MenuItem2.Click
Ouvrir_Click(sender, e)
End
Sub
Private
Sub MenuItem4_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles MenuItem4.Click
Nouveau_Click(sender, e)
End
Sub
Private
Sub MenuItem3_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles MenuItem3.Click
SauvegarderSous_Click(sender, e)
End
Sub
Private
Sub MenuItem5_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles MenuItem5.Click
Quitter_Click(sender, e)