Discussion :

[edmr_ps]

Bonjour,

J'ai crée une classe qui hérite de la classe checkbox, disant qu'elle s'appelle toto . le problème se pose lorsque je veux faire une boucle "For Each" sur la classe toto!

L'erreur renvoyé est de type "impossible d'effectuer un cast de type ..Panel de la classe ....toto !

Avez-vous une idée ?!

[BenoitM]

ben faut caster toto en checkbox au pire en control et pas en Panel

[edmr_ps]

Merci pour la rapidité ! mais je comprend pas!
en fait voilà,
j'ai un panel principal : panelCheckBoxesRoutes
qui contient d'une part: newCheckBoxRoute (classe qui hérite de checkbox)
et d'autre part: des panel PanelDblRoute qui lui contient des newCheckBoxRoute

je veux brancher tout le contenu du panel principal à la procédure "PrendreRoute":

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
  Dim checkboxRoute As New newCheckBoxRoute
        Dim PanelDblRoute As Panel
 
        For Each checkboxRoute In panelCheckBoxesRoutes.Controls
 
            AddHandler checkboxRoute.Click, AddressOf PrendreRoute
 
        Next
 
        For Each PanelDblRoute In panelCheckBoxesRoutes.Controls
            Dim test As newCheckBoxRoute
            For Each test In PanelDblRoute.Controls
 
            Next
        Next

le message d'erreur:
" Impossible d'effectuer un cast d'un objet de type 'System.Windows.Forms.Panel' en type 'WindowsApplication1.newCheckBoxRoute'."

[BenoitM]

Ca devrait etre quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        For Each _control As Control In panelCheckBoxesRoutes.Controls
           If TypeOf _control Is newCheckBoxRoute Then 
                AddHandler control .Click, AddressOf PrendreRoute
           End If
           If TypeOf _control Is PanalDblRoute Then 
                For Each _ctl As Control In _control.Controls
                      If TypeOf _ctl Is newCheckBoxRoute Then 
                      AddHandler ctl .Click, AddressOf PrendreRoute
                 Next
           End If
        Next

Part contre j'ai un doute sur le fait que se soit la bonne solution

[rv26t]

Bonjour,

J'avais fait quelques chose comme BenoitM, mais il a été plus rapide, du coup je te met aussi une version récurssive, pour traiter quelques soit le nombre d'imbrication de tes panels.

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
    Sub AttribueHandler()
        For Each ctrl As Control In panelCheckBoxesRoutes.Controls
            If TypeOf ctrl Is newCheckBoxRoute Then
                AddHandler ctrl.Click, AddressOf PrendreRoute
            Else
                If TypeOf ctrl Is Panel Then
                    For Each ctrl2 As Control In ctrl.Controls
                        If TypeOf ctrl2 Is newCheckBoxRoute Then
                            AddHandler ctrl2.Click, AddressOf PrendreRoute
                        End If
                    Next
                End If
            End If
        Next
    End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Sub AttribueHandler(ByVal pan As Panel)
        For Each ctrl As Control In pan.Controls
            If TypeOf ctrl Is newCheckBoxRoute Then
                AddHandler ctrl.Click, AddressOf PrendreRoute
            Else
                If TypeOf ctrl Is Panel Then
                    AttributHandler(ctrl)
                End If
            End If
        Next
    End Sub

A+, Hervé.

[edmr_ps]

Super ! ça marche!
Merci bcp !!!