none
Choix "ok" ou "cancel" dans une MsgBox RRS feed

  • Question

  • Bonjour j'ai un code qui demande à l'utilisateur de sélectionner une action sur une MsgBox pour effacer ou non des fichiers.

    Le soucis c'est que lorsque il click sur "cancel" , cela m'affiche quand même la demande de suppression des fichiers alors que je voudrais que cela affiche le 2eme message et surtout pas supprimer les fichiers

    voici le code :

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            MsgBox("Le programme doit supprimer les fichiers Temp du " & vbNewLine & Today.AddDays(-1), vbOKCancel, ",confirmer cette action ?")
            If MsgBoxResult.Ok Then
                My.Computer.FileSystem.DeleteDirectory("C:\Users\Propriétaire\AppData\Local\Temp\_Seal_Report.Temp",
                                                       Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                                                       Microsoft.VisualBasic.FileIO.RecycleOption.SendToRecycleBin)
                Form2.Show()
            End If
            If MsgBoxResult.Cancel Then
                MsgBox("Vous pourrez effacer ces fichiers plus tard")
                Form2.Show()
    
            End If
    
        End Sub

    mardi 23 juin 2015 16:20

Réponses

  • Bonjour,

    Le MsgBox est une fonction, qui vous retourne le bouton sur lequel l'utilisateur a cliqué. Donc il est préférable d'écrire :

      Dim result = MsgBox("Le programme doit supprimer les fichiers Temp du " & vbNewLine & Today.AddDays(-1), vbOKCancel, ",confirmer cette action ?")
            If result = MsgBoxResult.Ok Then


    Richard Clark
    Consultant - Formateur .NET
    http://www.c2i.fr
    Depuis 1996: le 1er site .NET francophone

    mercredi 24 juin 2015 05:20