Discussion :

[indemyx]

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 :

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

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

[wallace1]

Bonsoir,

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

Code :

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

TypeOf

ou :

Code :

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

GetType

ou alors (combiné à Nothing) :

Code :

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

TryCast

A+

[Pol63]

méthode récursive

[MABROUKI]

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 :

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