Fermer un form1 a l'aide d'un msgbox [Résolu]

Signaler
Messages postés
6
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
24 juillet 2010
-
cs_tchywallace
Messages postés
6
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
24 juillet 2010
-
Bonjour a tous je cherche a fermer un form1 a l'aide d'un msgbox mais mon code ne ferme que le msgbox
J'ai vrament besoin d'aide ds la matiere (vb 2008)

 Private Sub Btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_exit.Click

        Dim Message As String = "Voulez vous quitter?"
        Dim Caption As String = "Chez Murphy"
        Dim Buttons As Integer = MessageBoxButtons.YesNo

        Dim Result As DialogResult

        'Displays a MessageBox using the Question icon and specifying the No button as the default.

        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)

        If Result = Windows.Forms.DialogResult.OK Then
            'Fermer le parent  
            Me.Close()
            'tr.Close()
        Else
        End If


    End Sub

5 réponses

Messages postés
721
Date d'inscription
dimanche 10 juin 2001
Statut
Membre
Dernière intervention
27 mars 2011
4
Bonjour,

Essaye "If Result Windows.Forms.DialogResult.Yes Then" à la place de If "Result Windows.Forms.DialogResult.OK Then"
Messages postés
40
Date d'inscription
mercredi 27 décembre 2000
Statut
Membre
Dernière intervention
1 octobre 2010

Private Sub Command1_Click()
Dim rep as string

rep = msgbox ("merci d'avoir testé mon programme, ceci va le fermer", VBOKOnly, "Mon titre de msgbox fermeture")

End

End Sub
Messages postés
6538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 février 2020
95
Bonjour,
Juste une petite erreur à la réponse à la question:
Private Sub Btn_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_exit.Click

        Dim Message As String = "Voulez vous quitter?"
        Dim Caption As String = "Chez Murphy"
        Dim Buttons As Integer = MessageBoxButtons.YesNo

        Dim Result As DialogResult

        'Displays a MessageBox using the Question icon and specifying the No button as the default.

        Result = MessageBox.Show(Me, Message, Caption, MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk)

                    If Result = MsgBoxResult.Yes Then
            'Fermer le parent  
            End        
Else
        End If


    End Sub

@
Messages postés
6538
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
17 février 2020
95
Excuse, je n'avais pas vu que Tilois avez répondu à la question
Mettre réponse acceptée cela éviterait les erreurs
Messages postés
6
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
24 juillet 2010

Merci les Gars, Vous m'avez vraiment aidé.