For each sur une classe hérité

Version imprimable

27/08/2012, 09h41
edmr_ps

For each sur une classe hérité

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 :(?!
27/08/2012, 09h51
BenoitM

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

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:

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

Ca devrait etre quelque chose du genre

Code:

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

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:

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:

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

27/08/2012, 15h28
edmr_ps

Super ! ça marche!
Merci bcp :ccool::ccool::ccool: !!!