Discussion :

[spamitovic]

Bonsoir,

Je n'ai pas su comment nommer mon message. Il s'agit d'un petit problème lors de l'exécution de mon code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim bool As Boolean = False
For Each Ctrl As CheckBox In Me.Controls.OfType(Of CheckBox)()
     If Ctrl.Checked = True Then
           bool = True
     End If
Next
If bool = False Then
    MessageBox.Show("Attention !!! Risque de mort", "TOTO", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End If

quand mes checkbox sont sur la Form, le code marche très bien mais quand je mets mes checkbox dans un TabControl, le programme ne reconnait plus mes checkbox...

Pourriez vous m'aider ?

Merci

[Pol63]

c'est un problème de parenté
me.controls te donnent tous les controles qui sont sur le form
si tu mets un groupbox avec des boutons sur le form, me.controls contiendra bien le groupbox, mais pas les boutons
me.groupbox.controls contiendra les boutons

si tes controles ont la bougeotte tu peux faire un traitement récursif

[Sehnsucht]

Bonjour,

Ceci est tout à fait normal, ton code parcourt les contrôles "appartenant" au Form en ne cherchant que les CheckBox mais cette recherche n'est pas "récursive" (si un contrôle contient d'autres contrôles ceux-ci ne sont pas vérifiés) telle quelle.

De plus un TabControl, contient des TabPage et ce sont eux qui contiennent les contrôles sur un onglet.

Par conséquent il faut que tu remplaces Me par le nom de ton TabPage de ton TabControl qui contient les CheckBox pour que cela fonctionne.

De plus, le code que tu exécutes passe un Boolean à True si au moins une CheckBox est cochée, dans ce cas tu peux réécrire ceci de la sorte:

Code :

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

1
2
3
4
 
Dim bool As Boolean = 
        monTabPage.Controls.OfType(Of CheckBox)
                           .Any(Function(cb) cb.Checked)

Cela permettra au passage au code de quitter l'itération dès que la condition sera remplie.

Edit: Grilled by Pol63 pour la première partie

Cordialement !

[spamitovic]

C'est l'idée que j'ai eu, sauf que je viens de mettre mes checkbox dans un groupbox, car auparavant j'avais mis ces derniers dans un objet que Controls ne reconnait pas autant que membre de celle ci... j'ai rectifié cela en ajoutant un groupbox...

Merci c résolu )))