Discussion :

[Attila54]

Bonjour,
J'ai, dans une application, un textbox qui affiche un calcul issu de 3 autres textbox.
Via un bouton "nouveau", je réinitialise mon appli et pourtant, cette textbox conserve je ne sais ou et affiche malgré tout sa valeur précédante.

J'ai bien vérifié et reverifié, toutes les dépendances et sous dépendances en amont (textbox qui serviront au calcul) sont remise a "". Je ne comprends pas pourquoi et surtout ou peut se stocker l' ancienne valeur

Quelqu'un aurait une idée ?????

Merci bien

[Sankasssss]

Bonjour,

Ca va être difficile de vous aider sans voir votre code

[Attila54]

Bonjour Sankasssss

Je peux toujours poster mon code effectivement, mais il est long et je ne suis pas certain que tout soit utile.

Le button qui réinitialise les données donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Nouveaupatient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveaupatient.Click
        If enregistrement = True Then Enregistrebase() ' si enregistrement disponible seulement
        With Visiondeloin
            .Initialisernouveaupatient() ' pour réinitialiser Visiondeloin vu que l'on annule cette consultation
            .SIMAGE.BackColor = Color.LightSlateGray
            .CIMAGE.BackColor = Color.LightSlateGray
            .K1.BackColor = Color.LightSlateGray
            .K2.BackColor = Color.LightSlateGray
            .txtPRENOM.BackColor = Color.Purple
            .txtPRENOM.Focus()
        End With
        enregistrement = True
        Me.Dispose() ' on ferme Visiondepres
    End Sub

La sub Initialisernouveaupatient() donne ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
  'initialisation des donnees lors de l'ajout d'un nouveau patient
    Public Sub Initialisernouveaupatient()
        'on execute la sub chargement
        Chargement() ' pas d'enregistrement disponible à enregistrer
        'initialisation des couleurs
        Initialisecolor()
        LabelWL.Visible = False
        RectangleShapeWL.Visible = False
End Sub

chargement() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Chargement()
        calculok = False
        enregistrement = False ' pas d'enregistrement disponible
        indiceoeil = 1 ' on commence par l'oeil droit ( dans la Sub 
        indiceoeil repasse à 0 donc on commence par l'oeil droit
        Initialisationtexte()
        txtNOM.Text = ""
        txtPRENOM.Text = ""
        TxtNAISSANCE.Text = ""
        TextAge.Text = ""
        TextBoxosod.Text = "OD"
        End Sub

Initialisationtexte()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 Private Sub InitialisationText()
        S.Text = "" ===> valeur influant le calcul de la textbox contenant la valeur fantome
        C.Text = "" ===>valeur influant le calcul de la textbox contenant la valeur fantome
        AXE.Text = "" ====> valeur influant le calcul de la textbox contenant la valeur fantome
        SC.Text = ""  ====> valeur influant le calcul de la textbox contenant la valeur fantome
        CC.Text = "" ====> valeur influant le calcul de la textbox contenant la valeur fantome
        AC.Text = "" ====> valeur influant le calcul de la textbox contenant la valeur fantome
        ........... 
A.Text = "" ====> textbox contenant la valeur fantome
 
        Txtcat.Text = "N"
        DELTAS.Text = ""
        End Sub

voila comment ca s'oriente. Donc le button nouveaupatient devrait de fait remettre A.Text à "". En fait, il garde en memoire la valeur précédante

[rv26t]

Bonjour,


Ta sub se nomme InitialisationText

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private Sub InitialisationText()

et tu appeles Initialisationtexte()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Chargement()
        calculok = False
        enregistrement = False ' pas d'enregistrement disponible
        indiceoeil = 1 ' on commence par l'oeil droit ( dans la Sub 
        indiceoeil repasse à 0 donc on commence par l'oeil droit
 
        Initialisationtexte()
 
        txtNOM.Text = ""
        txtPRENOM.Text = ""
        TxtNAISSANCE.Text = ""
        TextAge.Text = ""
        TextBoxosod.Text = "OD"
        End Sub

Tu n'appeles peut-etre pas la bonne.

Sinon place un point d'arrêt dans ta sub "InitialisationText" pour suivre se qui se passe.

A+, Hervé.

[Attila54]

bonjour rv26t

effectivement, erreur dans mon copier coller du code ..... dans l'appli j'appelle bien la bonne sub sinon j'aurais eu une erreur avec une sub inexistante.
Si je mets un point d'arret, j'ai bien les valeurs affichées par
S,C,AXE,SC,CC,AC egales à ""
Par contre cette ^ù$*!ù$ de A.Text garde toujours en memoire la valeur précédante

[vincc]

et si tu changes la valeur avec une valeur bidon ça te met bien la valeur ?
t'es sûr que t'as pas une autre textbox A et que tu prends pas la mauvaise ? des fois ça arrive