Discussion :

[philguio]

Bonjour
Voila je cherche a compter le nombre de textbox de meme couleurs dans une form sur l'évènement click. J'ai regardé ce que je savais faire mas je suis limité, un peut d'aide svp

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
 
Dim k2 As Integer
        Dim g As Integer
        g = 0
        k2 = 0
        While k2 < 153
 
            If Me.Controls("T" & k2 + 19).BackColor = Color.YellowGreen Then
                g = g + 1
 
 
            End If
        End While
 
 
        Me.TextBox1.Text = g

merci par avance
Philippe

[smyley]

C'est quoi ce 153 ? Et puis ton While est plus qu'étrange.

Pour faire ce que tu veux le code devrais être plus comme celui ci :

Code vb :

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

1
2
3
4
5
6
7
8
9
 
Dim g As Integer = 0
For Each ct In Controls
    If TryCast(ct, TextBox) IsNot Nothing AndAlso (TryCast(ct, TextBox).BackColor = Color.YellowGreen) Then
        g += 1
    End If
Next
 
Text = g.ToString()

Mais je pense que tu devrais vraiment lire les cours d'introduction au VB.Net :
http://plasserre.developpez.com/vsommair.htm
http://tahe.developpez.com/dotnet/vbnet/

[philguio]

Oui j'ai déja lu et relu les cours de plasserre. Mais sur cette partie je bloque sérieux.

Pour info 153 est le nb de textbox sur la form

J'ai essayé le code mais je ne comprend pas tous et la valeur de txtbox de couleur verte je voie pas comment la récupérer.

Indulgence je développe en amateur.

Merci quand même, je vais me débrouiller seul.
@
plus Philippe

[smyley]

Tu crois peut être que je suis programmeur professionnel ?

Sinon le 153 c'est vraiment une pratique étrange, quand tu fais une boucle les deux grands procédés utilisés c'est un For Each (pour énumérer chaque élément d'une collection) soit For i = 0 ... quand on connais le nombre exacte, nombre qui peut par exemple être récupéré avec Controls.Count.

Ensuite, 153 TextBox sur une même form ... c'est le genre de chose qui effraie les utilisateurs, la tendance c'est d'avoir un minimum d'action et d'informations affichées sur une page avec juste l'essentiel pour que l'utilisateur soit guidé dans les démarches ...

Sinon, TryCast(ct, TextBox) permet de caster ("transformer") l'objet ct en TextBox et donc à partir de ça tu peut y accéder comme à n'importe quel textBox ie. pour récupérer le texte TryCast(ct, TextBox).Text

Et justement, ce genre de détail est traité dans le cours je ne suis pas sur que tu l'as vraiment étudié ...

[philguio]

Bonjour
Merci pour la réponse. Franchement soit je suit Bigleux ou alors je suis pas sur la bonne page de P Lasserre. Les pages concernent Trycast sont rares?????

Bon pour ma form qui a 153 textbox, C'est la gestion de tribune , elles sont positionnées comme la tribune avec place rang escalier. l'utilisateur saisi une place par clic lui attribue un spectateur voila rien de lourd n'y d'effrayant. J'aurai peut etre pu faire autrement mais bon.

Encore merci je bosse dessus et te tiens au courant.

Bonne journée
Philippe