Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Discussion: CheckBox - Checked [Débutant]

  1. #1
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2017
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2017
    Messages : 36
    Points : 15
    Points
    15

    Par défaut CheckBox - Checked

    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

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 583
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 583
    Points : 9 919
    Points
    9 919

    Par défaut

    Salut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
                If me.Controls("ING_CB_VN" & NB).checked = false Then
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Membre expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    1 712
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 1 712
    Points : 3 573
    Points
    3 573
    Billets dans le blog
    6

    Par défaut

    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.

  4. #4
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 583
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 583
    Points : 9 919
    Points
    9 919

    Par défaut

    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.
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  5. #5
    Membre expert
    Avatar de wallace1
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    octobre 2008
    Messages
    1 712
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : octobre 2008
    Messages : 1 712
    Points : 3 573
    Points
    3 573
    Billets dans le blog
    6

    Par défaut

    Citation Envoyé par ProgElecT Voir le message
    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).

    ++

  6. #6
    Membre à l'essai
    Homme Profil pro
    Étudiant
    Inscrit en
    juin 2017
    Messages
    36
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : juin 2017
    Messages : 36
    Points : 15
    Points
    15

    Par défaut

    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 04/08/2010, 14h15
  2. Checkbox checked dans l'évènement MouseDown
    Par abbd dans le forum Windows Forms
    Réponses: 5
    Dernier message: 04/06/2008, 09h53
  3. checkbox = checked
    Par maysa dans le forum Formulaires
    Réponses: 8
    Dernier message: 24/08/2007, 11h00
  4. [PEAR][HTML_QuickForm] Mettre une checkbox à checked
    Par audran12 dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 20/06/2007, 15h41
  5. Réponses: 1
    Dernier message: 24/10/2006, 12h10

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo