valeur "fantôme" dans mon textbox

Version imprimable

23/07/2012, 14h05
Attila54

valeur "fantôme" dans mon textbox

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
23/07/2012, 14h30
Sankasssss

Bonjour,

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

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:

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:

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:

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:

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 :cry:

Bonjour,

Ta sub se nomme InitialisationText

Citation:

Envoyé par Attila54

Code:

Private Sub InitialisationText()

et tu appeles Initialisationtexte()
Citation:
Envoyé par Attila54
Code:

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é.

25/07/2012, 09h26
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 :aie:
25/07/2012, 10h28
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 :)
25/07/2012, 11h51
Attila54

j'ai trouvé ....... une *$@/* de commentaire avait sa virgule enlevée ..... me supprimant le calcul de la valeur de A :boulet:
Tout est ok donc
merci bien ;)
25/07/2012, 11h56
shayw

Salut
utilises le pas à pas

mets un point d'arret à la ligne

Code:

A.Text = ""

est ce bien le textbox A
et possible que tu donnes une valeur

Code:

A.Text = blabla

utilises le quick find CRTL F et cherche A.Text dans ton prog