Boucle sur tous les control et sous-control d'une form

Version imprimable

Bonjour,

je souhaite agir sur la proriété checked de tous les controles de type checkbox dans un panel.

J'utilise donc la procédure ci-dessous :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public control As Control Public Chkb As CheckBox For Each control In Me.Panel1 If TypeOf control Is CheckBox Then Chkb = control If Chkb.Name <> sender Then Chkb.Enabled = Not sender.checked End If End If Next
je cherche maintenant à appliquer cela à l'ensemble de ma form.

Etant donné que ma form contient des panel qui eux mêmes contiennent des objets, et qu'un panel possède sa propre collection de control, comment puis-je procéder ?

merci d'avance

22/03/2019, 18h32
wallace1

Bonsoir,

Tu peux tout simplement rajouter une conditionnelle pour tester le type avec :

Code:

TypeOf

ou :

Code:

GetType

ou alors (combiné à Nothing) :

Code:

TryCast

A+
22/03/2019, 18h54
Pol63

méthode récursive

Bonjour

Comme dit par Pol63,il faut une méthode recursive pour faire ce boulot...,
Car les Controls Winform appartiennent à des "hiérarchies"

Exemple de code .vb qui permet de rechercher tous les Controls enfants TextBox du "Control appelant" et de resetter leur prop Text...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Class Form1
 
    Private Sub ClearTextBoxes(ByVal ctrlParent As Control)
        Dim ctrl As Control
        For Each ctrl In ctrlParent.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
            End If
            ' If the control has children, 
            ' recursively call this function
            If ctrl.HasChildren Then
                ClearTextBoxes(ctrl)
            End If
        Next
    End Sub
 
End Class

bon code...