Discussion :

[Attila54]

Bonjour,
dans une appli, j'ai 6 textbox que j'appelle
A1;A2;B1;B2;C1;C2
Chacune de ces 6 textbox affichent des valeurs comprises entre 0.00 et 6.00
le postulat est le suivant :
- Si A1 affiche la valeur 0.00 alors:
A1 est visible et A2 est invisible
sinon
A1 est invisible et A2 visible

pareil pour B1 et B2 ainsi que C1 et C2

J'ai dabord mis les propriétés de mes 6 textbox a visible

ensuite j'ai fait le plus simplement du monde ceci :

Code :

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

1
2
3
4
5
6
7
If valA1 = 0 then
A1.Visible = true
A2.Visible = false
else
A1.Visible = false
A2.Visible = true
end if

de même pour B1; B2 et C1;C2
Je teste et aucune cellule ne se masque alors que j'avais mis A1; B1 et C1 a "0.00"

J'essaye ensuite betement :

Code :

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

1
2
3
4
5
6
7
If A1.text = "0.00" then
A1.Visible = true
A2.Visible = false
else
A1.Visible = false
A2.Visible = true
end if

idem

en desespoir de cause, je passe toutes les textbox a invisible

idem

voyez vous un problème ? parce que la je pédale ...

Pour précision, j'ai bien toutes les valeurs correctement affichées dans les textbox

[chaparo]

Salut,

Tu es passé en debug avec des points d'arrêts pour regarder ce qu'il se passait sur tes tests ?

[Attila54]

ben si je place un point d arrêt avant ma première boucle je vois bien mes valeurs affichées par contre rien ne se masque a l exécution de la boucle
pas de masquage

[chaparo]

Et tu n'as pas d'autre événement qui se déclenche après ta boucle ?
Car la avec seulement ca comme code y a pas de raison que ça ne marche pas.

[shayw]

Bonjour

es tu sur que tu essayes de masker après avoir inserer des valeurs dans tes
textboxes ?
mets un point d'arret à la ligne

Code :

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

If A1.text = "0.00" then

et mets in point d'arret à la ligne où tu assignes une valeur à A1.text
lances ton app et verifie à quel break point il s'arrete

[MABROUKI]

bonjour

D'abord c'est une etrange logique,etant donne que ces textbox destinees la saisie par un user...
On ne voit pas comment on peut activer la visibilite des textbox a1,b1,c1 une fois rendu invisibles...
Ensuite qel serait le comportement si un des textbox contenait un "espace" ou nul(CR) ....
code revu a affiner:

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
 
Imports System.Globalization
 
Public Class frmA1A2
    Private Sub frmA1A2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
 
        A1.Clear()
        A2.Clear()
        B1.Clear() 'soit Espace ou bien l'autre cas egalement:String.Empty (l'user efface tout et valide par un CR)
        B2.Clear()
        C1.Clear()
        C2.Clear()
 
    End Sub
 
 
 
    Private Sub txtA1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles A1.TextChanged,
        B1.TextChanged, C1.TextChanged
        Dim ctl As TextBox = CType(sender, TextBox)
 
        Select Case ctl.Name
            Case "A1"
                TestValeur(ctl)
                A2.Visible = Not ctl.Visible
            Case "B1"
                TestValeur(ctl)
                B2.Visible = Not ctl.Visible
            Case "C1"
                TestValeur(ctl)
                C2.Visible = Not ctl.Visible
        End Select
 
    End Sub
    Private Sub TestValeur(ByVal ctl As TextBox)
        Dim valeur As Double = -Double.MaxValue
        If Double.TryParse(ctl.Text, NumberStyles.Number, CultureInfo.InvariantCulture, valeur) Then
            If valeur = 0.0 Then
                ctl.Visible = True
            Else
                ctl.Visible = False
            End If
        Else
            ctl.Visible = True
            ctl.Clear()
            ctl.Focus()
        End If
 
 
 
 
 
    End Sub
End Class

j'ai mis provider culture invariant pour utiliser le pave numerique...
bon code...