Discussion :

[djedje-08]

Bonjour à tous,
Comme je l'ai expliqué dans ce post, je créé des objets dynamiquement selon le code ci-dessous :

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 Button_Ajt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Ajt.Click
contObj = contObj + 1
        Dim ChpAjtLoyLog As New TextBox()
        With ChpAjtLoyLog
            .Name = "TextBox_Surf_Appart_" & contObj
            .Top = 10 + 25 * contObj
            .Left = 330
            .Visible = True
            .Width = 70
        End With
        TabPage2.Controls.Add(ChpAjtLoyLog)
 
        Dim ChpAjtchkLog As New CheckBox()
        With ChpAjtchkLog
            .Name = "CheckBox_Appart_" & contObj
            .Top = 10 + 25 * contObj
            .Left = 430
            .Text = "Eligible"
            .Visible = True
            .Width = 130
        End With
        TabPage2.Controls.Add(ChpAjtchkLog)
 
        Button_Ajt.Top = 10 + 25 * (contObj + 1)

Je souhaite tester si l'une des checkbox est cochée. Comme leur nom est composé avec un "index de compteur", je pensais utiliser une boucle for next.

Malheureusement ça aurait été trop simple, mon code ci-dessous ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim test As Boolean = False
        For i = 1 To contObj Step 1
            If CheckBox_Appart_ &i.ckecked = True Then
                test = True
 
            End If
        Next
        If test = True Then
            MsgBox("au moins une case chochée")
        End If

D'autre part, je vais devoir effectuer des calculs avec les différentes textbox (par exemple les additionner) qui ont été crées de le même manière, je pense donc utiliser la même méthodologie.

Quelqu'un aurait une piste ?
Merci d'avance

[J@ckHerror]

Re-Bonjour,

Même réponse que dans ton autre post

Il ne faut jamais baser un traitement sur le nom des variables (peut importe leur type). C'est voué à l'échec et c'est très dangereux lorsque ton code évolura.

Le plus simple ne serait-il pas de maintenir une liste de tes checkBox pour ensuite la parcourir et tester si elles sont checked ?

Bon code,
J@ck.

et comme te l'a dit ZenZiTone dans l'autre post tu peux aussi utiliser un dictionary, ou même le tag des controls que tu veux parcourir pour les différencier.

J@ck.

[djedje-08]

Merci de vous pencher sur ma question.

Le plus simple ne serait-il pas de maintenir une liste de tes checkBox pour ensuite la parcourir et tester si elles sont checked ?

Le "truc" c'est que je ne sais pas à l'avance combien de ligne je vais avoir. C'est pour cette raison que je créé des textbox et checkbox dynamiquement ...

Je ne comprends pas trop le concept de dictionnaire. C'est une collection d'objet c'est ça ?
Je n'arrive pas à comprendre comme ça fonctionne et comment l'adapter à mon code.
Pourriez vous m'éclairer sur ce point ?


Si je reprend le code de ZenZiTone en l'adaptant, je pourrais faire ça :

Code :

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

1
2
3
4
5
6
7
For Each obj As Control In Me.Controls
 For i = 1 To contObj Step 1
            If obj.Tag.ToString = "TextBox_Surf_Appart_" & i Then
                'action à réaliser
            End If
next
        Next

Mais dans l'action à réaliser, comment je fais pour lire le contenu de ma textbox ? ou dans le cas d'une checkbox, pour savoir si elle est cochée ?

D'autre part, pour chacune de mes textbox, lorsque le focus sera perdu je veux vérifier si l'utilisateur a bien entré un nombre (isnumeric). Je veux donc créer un petit sub qui va vérifier cela, si tel n'est pas le cas afficher un message d'erreur et vider le contenu de la textbox en question.
Je pensais donc stocker le nom de la textbox dans une variable (globale) pour pouvoir interagir facilement dans un autre sub. Mais apparemment ce n'est pas la bonne méthode.
Comment je pourrais faire en utilisant le code de ZenZiTone ?

je sais que ça fait beaucoup de questions
Merci d'avance pour vos réponses

[ZenZiTone]

Je ne comprends pas trop le concept de dictionnaire. C'est une collection d'objet c'est ça ?

Dans les grosses lignes c'est ça. La différence avec une liste (List(Of ...)) est que le dictionnaire associe une valeur à une clef. Après je ne sais pas si ça s'adapterais bien à ton cas, il nous manque des infos sur ce qu'est une ligne, etc.. En tous cas je te propose de consulter la doc MSDN à ce sujet pour en savoir plus.

Code :

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

1
2
3
4
5
6
7
For Each obj As Control In Me.Controls
 <s>For i = 1 To contObj Step 1</s>
            If obj.Tag.ToString = "TextBox_Surf_Appart_" & i Then
                'action à réaliser
            End If
<s>next</s>
        Next

Tu n'as pas besoin de boucle supplémentaire, le test "If composant.tag = "MonIdentifieur"" te permet d'identifier les CheckBoxes que tu as ajoutés dynamiquement.

Mais dans l'action à réaliser, comment je fais pour lire le contenu de ma textbox ? ou dans le cas d'une checkbox, pour savoir si elle est cochée ?

Si tu souhaites lire la valeur de la CheckBox à un instant défnit, tu as juste à caster ton control (dans le "If...") en CheckBox et lire la propriété Checked.

D'autre part, pour chacune de mes textbox, lorsque le focus sera perdu je veux vérifier si l'utilisateur a bien entré un nombre (isnumeric). Je veux donc créer un petit sub qui va vérifier cela, si tel n'est pas le cas afficher un message d'erreur et vider le contenu de la textbox en question.
Je pensais donc stocker le nom de la textbox dans une variable (globale) pour pouvoir interagir facilement dans un autre sub. Mais apparemment ce n'est pas la bonne méthode.
Comment je pourrais faire en utilisant le code de ZenZiTone ?

Même dada que ton précédent post : utilise le Addhandler sur ta TextBox crée dynamiquement, sur un événement de type MouseLeave ou LostFocus (je n'ai pas les nom exacte en tête)

[djedje-08]

Merci beaucoup pour ton aide, mais pour le coup, je galère un peu à relier tous les éléments.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
        Dim ChpAjtLoyLog As New TextBox()
        With ChpAjtLoyLog
            .Name = "TextBox_Surf_Appart_" & contObj
            .Top = 10 + 25 * contObj
            .Left = 330
            .Visible = True
            .Width = 70
        End With
        TabPage2.Controls.Add(ChpAjtLoyLog)
        AddHandler ChpAjtLoyLog.LostFocus, AddressOf VerifNb

Jusque là, tout va bien, mais le code ci-dessous ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    Sub VerifNb()
 
        For Each obj As Control In Me.Controls
            If obj.Tag.ToString = "TextBox_Surf_Appart" Then
                If IsNumeric(obj.Text) Then
                Else
                    obj.BackColor = Color.Red
                    obj.Text = ""
 
                End If
            End If
        Next
    End Sub

J'ai l'erreur suivante sur la ligne n°4 : La référence de l'objet n'est pas définie a une instance d'un objet

J'ai essayé avec le code ci-dessous, mais l'erreur est identique :

Code :

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

If obj.Tag.ToString = "ChpAjtPrixLog" Then

De plus, je ne suis pas certain que les codes ci-dessous vont fonctionner :

Code :

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

1
2
3
IsNumeric(obj.Text)
obj.BackColor = Color.Red
obj.Text = ""

Pourriez vous m'aiguillez ?

[ZenZiTone]

Les événements standards sont généralement associés avec ceci :

Code :

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

sender As Object, e As EventArgs

Ce sont des variables qui permettent d'associer des données à l'événement. Si tu utilises l'intellisense lorsque tu fais le AddressOf (tu tapes le nom de la méthode à créer puis tu fais Ctrl+Espace, il te propose de générer la méthode), il génère automatiquement le corps de la méthode avec en paramètre ce que j'ai mis ci-dessus. Ainsi, tu pourras utiliser le "sender" (en faisant le bon cast) pour récupérer l'objet qui a déclenché l'événement. Ainsi tu n'auras pas besoin de faire de boucle sur tous tes contrôles : ça va alléger tes traitements !

Petite précision, tu risques de voir apparaitre une exception "InvalidOperationException" avec le message "Le contrôle nom du contrôle a fait l'objet d'un accès à partir d'un thread autre que celui sur lequel il a été créé". Pour comprendre et résoudre ce problème, voici un petit lien vers la MSDN.