MessageBoxButtons.elYesNoCancelRésolu

Question

salut 
j'ai un prob avec un message box de type YesNoCancel
j'ai fait le teste sur yes et no ca marche bien mais je veux lorseque je clique sur Cancel mon appication se ferme et c'est pas ce que je veux

Dim s 
As 
String


s = MessageBox.Show(" Voulez vous mettres &#224; jour votre base de donn&#233;es ?", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)



If s = MsgBoxResult.Yes 
Then



Dim cs 
As 
New SqlCommandBuilder(da)


da.InsertCommand = cs.GetInsertCommand()


da.Update(Ds1.Tables(0))



Else



If s = MsgBoxResult.No 
Then



Me.Close()



Else



If s = MsgBoxResult.Cancel 
Then



??????????????? qu'est ce que je doit ecrire ici



End 
If



End 
If



End 
If

cs_Willi · Accepted Answer

Salut,

Utilise l'&#233;v&#233;nement FormClosing et pout annuler la fermeture utilise la propri&#233;t&#233; Cancel


If s = MsgBoxResult.Cancel 
Then



   e.Cancel = True



End 
If


 Si la r&#233;ponse te conviens merci de l'accepter

crenaud76 · Answer

Et utilises plutot un Select Case pour tester le résultat de ta messagebox (à partir de 3 valeurs possibles, cela fait plus propre et est plus facile à lire/maintenir que des if else ...)

Select Case S
  Case MsgBoxResult.Yes
    ' Code si Yes clické
  Case MsgBoxResult.No
    ' Code si No clické
  Case MsgBoxResult.Cancel
    ' Code si Cancel clické
End Select

Et pourquoi avoir déclarer S en string ??? Ce ne serait t'y pas plutot System.Windows.Forms.DialogResult le bon type ?

CR

amylee1984 · Answer

bonjour , j'ai utilis&#233; Closing mais ca marche pas comme tu sais moi je devlope avec vb.net y a d'autre solution svp

cs_Willi · Answer

Sous vs2003 c'est l'&#233;v&#233;nement Closing comme tu as essay&#233;.
Tu devrais obtenir quelque chose dans ce genre la.

Private Sub FormClosing(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing


        If MessageBox.Show("Voulez-vous quitter?", "Sortie", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = DialogResult.Cancel Then
            e.Cancel = True
        End If
End Sub


 Si la r&#233;ponse te conviens merci de l'accepter

amylee1984 · Answer

merci willi pour ton aide ca marche enfin , mais le petit probleme que j'ai mnt c'est qu'il faut que je click 2 fois sur le bouton  CANCEL pour que ca marche et la meme chose pour le bouton  YES et NO aussi



Private 
Sub ClientClosing(
ByVal sender 
As System.Object, 
ByVal e 
As System.ComponentModel.CancelEventArgs) 
Handles 
MyBase.Closing



If MessageBox.Show(" Voulez vous mettres &#224; jour votre base de donn&#233;es ?", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = MsgBoxResult.Yes 
Then



Dim cs 
As 
New SqlCommandBuilder(da)


da.InsertCommand = cs.GetInsertCommand()


da.Update(Ds1.Tables(0))



End 
If



If MessageBox.Show(" Voulez vous mettres &#224; jour votre base de donn&#233;es ?", "Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) = MsgBoxResult.Cancel 
Then


e.Cancel = 
True



End 
If



End 
Sub

cs_Willi · Answer

Et avec ceci ??



Select 
Case MessageBox.Show(
" Voulez vous mettres &#224; jour votre base de donn&#233;es ?", 
"Confirmation", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)



   Case Windows.Forms.DialogResult.Yes



      Dim cs 
As 
New SqlCommandBuilder(da)


      da.InsertCommand = cs.GetInsertCommand()


      da.Update(Ds1.Tables(0))



   Case Windows.Forms.DialogResult.Cancel


      e.Cancel = 
True



End 
Select

Voili voilou :)


 Si la r&#233;ponse te conviens merci de l'accepter

amylee1984 · Answer

merci willi avec le SELECT  CASE ca marche tres bien , je suis vraiment dsl pour le derangement