Discussion :

[loverdev]

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

[Piotrek]

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

[loverdev]

ça marche !!! Merci pour le conseil