Accéder à une checkbox dans un panel ?

Bonjour à tous,

Je vous explique mon soucis.
J'ai 2 panels composés chaqu'un d'une série de checkbox qui correspondent 2 à 2 horizontalement.
Si l'utilisateur coche la checkbox du panel gauche alors celle du panel droit correspondant doit devenir .enabled = false et inversement.

J'ai mis ça comme embryon de code :
Code:

1 2 3 4 5 6 7 8 Dim c As CheckBox Dim i As Integer For Each c In pnlécrit.Controls If c.Checked Then pnloral.CHECKBOX(i).enabled = False End If i += 1 Next
Ce que j'ai mis en majuscule est bien évidemment faux mais c'est pour que vous voyez l'idée.
En d'autres thermes je voudrais pouvoir accéder à chaque checkbox via le panel.

Merci d'avance :).

Tu peux leur ajouter un tag avec un numéro. Comme ca tu compare les numéro, s'ils sont identiques alors tu sais que les deux checkbox sont "reliés".

Autrement tu peux les mettre dans le même ordre dans les 2 panels etton code devient
Code:

1 2 3 4 5 6 7 8 For index = 1 To pnlécrit.Controls.Count Dim cbx As CheckBox = CType(pnlécrit.Controls.Item(index), CheckBox) If cbx.Checked Then Dim cbx2 As CheckBox = CType(pnloral.Controls.Item(index), CheckBox) cbx2.Checked = True End If Next

Merci bien mais par contre, y'a une difficulté supplémentaire que j'ai oublié de préciser, c'est que y'a pas le même nombre de checkbox dans les 2 panels (12 dans l'un, 6 dans l'autre).
Y'en a donc à qui aucun checkbox ne correspond.

Tu peux leur ajouter un tag avec un numéro. Comme ca tu compare les numéro, s'ils sont identiques alors tu sais que les deux checkbox sont "reliés".

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 
For index = 1 To pnlécrit.Controls.Count
    Dim cbx As CheckBox = CType(pnlécrit.Controls.Item(index), CheckBox)
    Dim i as Integer = CType(cbx.Tag, Integer)
    If cbx.Checked Then
        For index2 = 1 To pnloral.Controls.Count
            Dim cbx2 As CheckBox = CType(pnloral.Controls.Item(index), CheckBox)
            Dim i2 as Integer = CType(cbx2.Tag, Integer)
            If i = i2 Then
                cbx2.Checked = True
            End If
        Next
    End If
Next
 
    End If
Next

Merci ça marche.
J'ai juste à rajouter du code pour que si on décoche une checkbox, l'autre checkbox redevienne enabled à true ;).