IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Problème bouton annuler


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Mai 2007
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 257
    Par défaut Problème bouton annuler
    Bonjour, j'ai dans ma forms un bouton "annuler". Quand j'appuie sur ce bouton, il efface tous les champs texte. Or j'ai une procédure textchanged qui est en conflit avec l'évènement du bouton "annuler". Comment faire pour corriger cela?
    Voici le code de l'évènement textchanged d'un textebox :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
            Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
            Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0)
            If Txtrea1ertrim.Text = "" Then
                Txtrea1ertrim.Text = ""
                Dim c As [Decimal] = CDec(Txttotalrea.Text)
                Dim d As [Decimal] = CDec(Txtmontantc.Text)
                Txttotalrea.Text = ""
                Txtmontantpaye.Text = ""
                Txtresteapayer.Text = CDec(d) - CDec(c)
            Else
                Dim r As [Decimal] = CDec(Txtmontantc.Text)
                Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
                Txttotalrea.Text = CDec(res)
                Txtresteapayer.Text = CDec(r) - CDec(res)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
            End If
        End Sub
    Voici le code du bouton "annuler" :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
     
    Private Sub Btnannuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnannuler.Click
            Txtnumc.Text = ""
            Txtlibc.Text = ""
            Dates.Text = ""
            Datef.Text = ""
            Txtmontantc.Text = ""
            Txtrea1ertrim.Text = ""
            Txtre2emetrim.Text = ""
            Txtrea3emetrim.Text = ""
            Txtrea4emetrim.Text = ""
            Txttotalrea.Text = ""
            Txtmontantpaye.Text = ""
            Txtmodpay.Text = ""
            Txtresteapayer.Text = ""
            Optoui.Checked = True
            Optnon.Checked = False
            Txtmontantavance.Text = ""
            Cbxnumm.Text = ""
            Txtlibm.Text = ""
            Cbxfrs.Text = ""
            Txtnumfrs.Text = ""
            Txtdureec.Text = ""
        End Sub

  2. #2
    Membre Expert
    Avatar de Piotrek
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Mars 2004
    Messages
    869
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ain (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Mars 2004
    Messages : 869
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    Dim EnAnnulation as boolean = false
     
    Private Sub Btnannuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnannuler.Click
            EnAnnulation = true
            Txtnumc.Text = ""
            Txtlibc.Text = ""
            [...]
            Txtnumfrs.Text = ""
            Txtdureec.Text = ""
            EnAnnulation = false
        End Sub
     
     
    Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        if EnAnnulation = true then exit sub
        Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
        [...]
        End Sub
    par exemple

  3. #3
    Membre confirmé
    Inscrit en
    Mai 2007
    Messages
    257
    Détails du profil
    Informations forums :
    Inscription : Mai 2007
    Messages : 257
    Par défaut
    ça marche !!! Merci pour le conseil

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 30/10/2012, 17h35
  2. Problème avec bouton annuler d'impression
    Par zanoubya dans le forum Débuter
    Réponses: 10
    Dernier message: 16/12/2008, 18h19
  3. Problème avec le bouton Annuler de la fonction Inputbox
    Par r0main2b dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 05/06/2007, 19h48
  4. [VB.NET] Pb avec le bouton Annuler d'1 barre de progression
    Par dada1982 dans le forum Windows Forms
    Réponses: 3
    Dernier message: 30/06/2004, 09h56
  5. Réponses: 5
    Dernier message: 04/04/2003, 15h02

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo