Discussion :

[Zaza91280]

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 vb :

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

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 .

[meziantou]

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 :

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

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

[Zaza91280]

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.

[meziantou]

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 :

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
 
 
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

[Zaza91280]

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