Discussion :

[Kamikazoide]

Alors bonjour,


Oui ma question pourrai peut être être simple pour pas mal d'entre vous mais perso elle me pose vraiment problème et je ne trouve pas de solution sur le web, alors voila:

J'ai une série de 28 CheckBox nommé de ING_CB_VN0 à ING_CB_VN27

J'aimerai pouvoir vérifier une par une chaque checkbox et voir si elle est coché, je pensais donc utilisé le code que je fait toujours:

Code :

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

1
2
3
4
5
        For NB = 0 To 27
            If Controls("ING_CB_VN" & NB).checked = false Then
                'ce que je veut
            End If
        Next

Or Visual studio me dit que "checked" n'est pas un membre de control ....

Comment puis-je faire pour m'éviter cette erreur ? Merci d'avance

[ProgElecT]

Salut

Code :

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

            If me.Controls("ING_CB_VN" & NB).checked = false Then

[wallace1]

Bonjour,

Ce "Checked" n'est pas un membre car tu dois caster le type Control en type CheckBox :

Code :

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

1
2
3
4
5
6
7
 
For NB = 0 To 27
    Dim ctrl = TryCast(Me.Controls("ING_CB_VN" & i.ToString), CheckBox)
    If ctrl.Checked = False Then
            'Ce que tu veux ici ....
    End If         
Next

....un truc dans le genre.....

ASTUCE : Tu peux utiliser la propriété ".Tag" de chaque Checkbox au lieu de te baser sur le nom des contrôles. Ce membre .Tag est disponible pour quasi tout les contrôles.

A+ et passes de bonnes fêtes de fin d'année.

[ProgElecT]

Re

interroge/boucle sur l'ensemble des contrôles.

Code :

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

For Each Ctrl As Control in Controls

Alors que

Code :

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

1
2
3
4
5
        For NB = 0 To 27
            If me.Controls("ING_CB_VN" & NB).checked = false Then
                'ce que je veut
            End If
        Next

n'interroge que les contrôles ayant un Name précis, donc bouclage plus court.

[wallace1]

Re

interroge/boucle sur l'ensemble des contrôles.

Code :

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

For Each Ctrl As Control in Controls

Alors que

Code :

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

1
2
3
4
5
        For NB = 0 To 27
            If me.Controls("ING_CB_VN" & NB).checked = false Then
                'ce que je veut
            End If
        Next

n'interroge que les contrôles ayant un Name précis, donc bouclage plus court.

Au temps pour moi j'avais lu en diagonal son problème.......
La solution : Il faut juste Caster le type Control en type CheckBox pour que le membre .Checked soit reconnu (cf mon 1er message).

++

[Kamikazoide]

Yes parfait! Merci à vous pour vos réponses

Voici donc le code parfaitement fonctionnel:

Code :

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

1
2
3
4
5
6
        For NB = 0 To 27
            Dim Controle = TryCast(Controls("ING_CB_VN" & NB.ToString), CheckBox)
            If Controle.Checked = True Then
                'Ce que je veut
            End If
        Next

Bonne fête de fin d’année à tous