Reconnaitre le controle dans un panel (VB Express) Résolu

Question

Salutations à tout le monde

voilà, j'ai fait un Panel dans le lequel il y a 2 types de controles : sur une ligne, j'ai cote à cote 5 textbox et au bout une checkbox, le tout sur 10 lignes.

J'aurai voulu savoir comment faire pour reconnaitre sur quelle checkbox je clique (c'est pour faire "quand je clique sur une checkbox, toutes les textbox de la ligne font telle action")

J'avais trouvé ça :
 Dim c As CheckBox
        For Each c In Panel1.Controls
            AddHandler c.CheckedChanged, AddressOf CaseClic
 Next c

mais c'est valable uniquement  quand le panel est composé uniquement de checkbox.........

voilà, merci de votre aide

Utilisateur anonyme · Accepted Answer

Non, en gardant la for...each :
For Each c As System.Windows.Forms.Control In Panel1.Controls
  If c.GetType() Is GetType(System.Windows.Forms.CheckBox) Then
    AddHandler CType(c, System.Windows.Forms.CheckBox).CheckedChanged, AddressOf CaseClic
  End If
Next c, ----
(Coloration syntaxique automatique par Kenji)

__________
  Kenji

Utilisateur anonyme · Answer

Salut,

Vérifie le type du control :
If c.GetType is Gettype(Checkbox) ...

__________
  Kenji

eulmaraud · Answer

OK merci charles

mais tu ferais quelle boucle à ce moment là
je ne peux plus declarer c comme checkbox, sinon que voudrais dire le c.GetType

le truc serait de faire

Dim nbcontrole As Integer
Dim c As CheckBox

        For nbcontrole = 0 To Panel1.Controls.Count

                Si le controle du Panel est une checkbox alors

                      AddHandler c.CheckedChanged, AddressOf CaseClic

                fin du Si

        Fin du For

ou dans le même genre

merci d'avance pour votre aide...

eulmaraud · Answer

Charles, tu es magnifique, mon nouveau mentor  en Panel !!!!

Merci bien, t'es un rude biloute, parole de ch'ti !!

Reconnaitre le controle dans un panel (VB Express)

4 réponses

Votre réponse

Discussions similaires