Dar evento a un array de controles

[traviz88]

Hola saludos a todos, bueno tengo una duda estoy realizando un array de controles de Treviews con checkbox ,asi genero el array de acuerdo a mi consulta de BD :

Código:

   Sub CARGAR_MENU()
        Dim dv As New DataView(CLASE_SUBMENU.LISTAR_SUBMENU("Usp_Listar_Menu_02"))
        Dim cantidad As Integer = dv.Count
        Dim x As Integer = 3, y As Integer = 3
        If cantidad > 0 Then
            For i As Integer = 0 To cantidad - 1
                ReDim Preserve ARBOL(i)
                ARBOL(i) = New TreeView
                ARBOL(i).Name = dv.Item(i)(0)
                ARBOL(i).Nodes.Add(Trim(dv.Item(i)(1)))
                ARBOL(i).CheckBoxes = True
                ARBOL(i).BorderStyle = BorderStyle.None
                ARBOL(i).BackColor = System.Drawing.SystemColors.Control
                ARBOL(i).SetBounds(x, y, 172, 152)
                Me.pnMenu.Controls.Add(ARBOL(i))
                x += 182
                Dim codigo As String = Trim(dv.Item(i)(0))
                Dim dv2 As New DataView(CONSULTAR(codigo))
                Dim cant2 As Integer = dv2.Count
                If cant2 > 0 Then
                    For j As Integer = 0 To cant2 - 1
                        ARBOL(i).Nodes(0).Nodes.Add(dv2.Item(j)("cod_opc"), StrConv(Trim(dv2.Item(j)("nom_opc")), VbStrConv.ProperCase))
                    Next
                End If
                ARBOL(i).ExpandAll()
                dv2.Dispose()
            Next
        End If
        dv.Dispose()
    End Sub

Aqui genero varios treview dependiendo de mi consulta, lo que deseo es darles el mismo Evento como AfterCheck para que al dar clic a un check dentro del cualquier treview "x" generado se ejecute la consulta..bueno El treview se ejecuta en el load de mi Form...Gracias de antemano por la ayuda-.

[xjuanch0x]

Código vb:

Sub CARGAR_MENU()
        Dim dv As New DataView(CLASE_SUBMENU.LISTAR_SUBMENU("Usp_Listar_Menu_02"))
        Dim cantidad As Integer = dv.Count
        Dim x As Integer = 3, y As Integer = 3
        If cantidad > 0 Then
            For i As Integer = 0 To cantidad - 1
                ReDim Preserve ARBOL(i)
                ARBOL(i) = New TreeView
                ARBOL(i).Name = dv.Item(i)(0)
                ARBOL(i).Nodes.Add(Trim(dv.Item(i)(1)))
                ARBOL(i).CheckBoxes = True
                ARBOL(i).BorderStyle = BorderStyle.None
                ARBOL(i).BackColor = System.Drawing.SystemColors.Control
                ARBOL(i).SetBounds(x, y, 172, 152)
 
 'Con esto agregas el mismo manejador para todos controles dentro del  'array 
                AddHandler  ARBOL(i).AfterCheck , AddressOf AfterCheckManejador 
 
                Me.pnMenu.Controls.Add(ARBOL(i))
                x += 182
                Dim codigo As String = Trim(dv.Item(i)(0))
                Dim dv2 As New DataView(CONSULTAR(codigo))
                Dim cant2 As Integer = dv2.Count
                If cant2 > 0 Then
                    For j As Integer = 0 To cant2 - 1
                        ARBOL(i).Nodes(0).Nodes.Add(dv2.Item(j)("cod_opc"), StrConv(Trim(dv2.Item(j)("nom_opc")), VbStrConv.ProperCase))
                    Next
                End If
                ARBOL(i).ExpandAll()
                dv2.Dispose()
            Next
        End If
        dv.Dispose()
    End Sub
 

Con este código agregas el manejador a cada uno de los controles dentro de la colección de objetos.

[traviz88]

xjuanch0x gracias por el apoyo ya me salio lo que deseaba hacer ,no entendia bien como generar el addhandler esa era mi duda.. buen nuevamente gracias..
Saludos