GESTIONNAIRES D'ÉVÉNEMENTS

Commentaire de gregorycaloin le 15/11/2010 13:50:39

Je viens de découvrir un truc très intéressant et puisque ça n'était pas clairement mentionné.. Bref voili voilou, j'ai un peu cherché et fini par trouver.
Euhh pour info, je suis sous VISUAL STUDIO 2010

Dans un GROUPBOX "dur", je crée un objet PANEL dynamiquement.
Ensuite je crée un certain nombre de PICTUREBOX dans ce même panel.

Pour gérer l'évènement de clic sur l'un des nombreux PICTUREBOX pour savoir lequel j'ai cliqué, j'ai fais comme ça :

Private Function CreationBlocs(ByVal nombre As Int32, ByVal L As Int32, _
                               ByVal H As Int32, ByVal inter As Int32, _
                               ByVal monpanel As Panel)
        ' Création des pictureboxes de visualisation video
        Dim start As Int32 = 1

        monpanel.SuspendLayout()
        Application.DoEvents()

        For HT As Int32 = 0 To nbElmts_Hauteur -1
            For PosL As Int32 = start To start + nbElmts_Hauteur
                Dim Box As New PictureBox
                Box.Name = "box_" & nombre
                Box.Size = New Size(L, H)
                Box.BorderStyle = BorderStyle.FixedSingle
                Box.SizeMode = modeZoom

                Box.Location = New Point(3 + ((PosL - start) * (L + inter)), 3 + (HT * (H + inter)))
                monpanel.Controls.Add(Box)
                AddHandler Box.Click, AddressOf MonCadre_Click

            Next
            start += nbElmts_Hauteur + 1
        Next
        monpanel.ResumeLayout()
End Function

Sub MonCadre_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim cadre As PictureBox
        cadre = CType(sender, PictureBox)

        Dim numCadre As Control = CType(sender, PictureBox)
        MsgBox(numCadre.TabIndex)                               ' Renvoie l'index de l'objet "enfant" quand on clique dessus

        ' Maintenant je peux manipuler le contenu de mon PICTUREBOX, vers une autre fonction......
    End Sub