none
message box RRS feed

  • Question

  • bonjour

     je viens d’écrire un code qui doit me permettre  d'agir sur le ok d'un message box et  je n’obtiens aucun résultat qui peut m'aider

     je voudrais qu'il efface un textbox et d'effacer l'item d'un combobox

    voici mon code

        Private Sub Button_nouvelle_ventilation_Click(sender As Object, e As System.EventArgs) Handles Button_nouvelle_ventilation.Click
            If MsgBox("voulez vous changer de mois?", MsgBoxStyle.Exclamation, _
    "ventilation") = MsgBoxResult.Yes Then
                TextBox1_montant_mensuel_estime.Text = " "
    
            End If
        End Sub
    

    merci de votre aide

    mercredi 18 novembre 2015 11:11

Réponses

  • Bonjour,

    Public Class Form1
    
        Public Sub New()
    
            ' Cet appel est requis par le concepteur.
            InitializeComponent()
    
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
    
            Dim boxNouvelleVentilation As DialogResult
            boxNouvelleVentilation = MessageBox.Show("Voulez-vous changer de mois ?",
                 "Ventilation", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
                 MessageBoxDefaultButton.Button1)
    
            If boxNouvelleVentilation = DialogResult.Yes Then
    
                TextBox1.Text = " "
    
            Else
                '...
            End If
    
        End Sub
    End Class
    

    Bien à vous.


    ZGuideTV.NET - administrator/developer

    • Marqué comme réponse SIMONGEORGES mercredi 18 novembre 2015 12:54
    mercredi 18 novembre 2015 11:52

Toutes les réponses

  • Bonjour,

    Public Class Form1
    
        Public Sub New()
    
            ' Cet appel est requis par le concepteur.
            InitializeComponent()
    
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
    
        End Sub
    
        Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
    
            Dim boxNouvelleVentilation As DialogResult
            boxNouvelleVentilation = MessageBox.Show("Voulez-vous changer de mois ?",
                 "Ventilation", MessageBoxButtons.YesNo, MessageBoxIcon.Question,
                 MessageBoxDefaultButton.Button1)
    
            If boxNouvelleVentilation = DialogResult.Yes Then
    
                TextBox1.Text = " "
    
            Else
                '...
            End If
    
        End Sub
    End Class
    

    Bien à vous.


    ZGuideTV.NET - administrator/developer

    • Marqué comme réponse SIMONGEORGES mercredi 18 novembre 2015 12:54
    mercredi 18 novembre 2015 11:52
  • Un grand merci
    mercredi 18 novembre 2015 12:54