GENERER UN POSTBACK ET RECUPERER L'EVENEMENT À PARTIR D'UN CONTROL DE VOTRE CREATION

Imports System.ComponentModel
Imports System.Web.UI


<Assembly: TagPrefix("Moi.MesControles", "MesControles")> 

<ToolboxData("<{0}:Label runat=""server""></{0}:Label>")> Public Class Label
    Inherits System.Web.UI.WebControls.Label

    'si AutopostBack est à true, il y aura un postback lors du passage de la souris sur le label
    Private _AutoPostBack As Boolean
    <Bindable(True), Category("Appearance"), DefaultValue("False")> Property [AutoPostBack]() As Boolean
        Get
            Return _AutoPostBack
        End Get
        Set(ByVal Value As Boolean)
            _AutoPostBack = Value
        End Set
    End Property

    'Evenement qui sera declenché au passage de la souris
    Public Event MouseOver As EventHandler

    'La méthode render permet d'ecrire le rendu HTML du controle
    'Dans notre cas, si _AutoPostBack est à true on rajoute l'attribut onmouseover
    'Page.GetPostBackClientEvent est la fonction qui ecrit le code javascript du postback
    'c'est à dire, le __DoPostBack('','') dans l'attribut, mais aussi le code javascript du _DoPostBack
    'et aussi ecrire les deux champs cachés, il ecrit qu'une seul fois tout ca, s'il est appellé plusieurs fois
    'ensuite apres avoir ajouté ou non l'attribut, on ecrit le reste du controle
    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)
        If _AutoPostBack Then
            output.AddAttribute("onmouseover", "javascript:" & Page.GetPostBackClientEvent(Me, "onMouseOver"))
        End If
        MyBase.Render(output)
    End Sub

    'Quand le label va se charger, on verifie si il vient d'un PostBack, si oui,
    'On regarde si c'est notre controle qui a declenché le postback, et on regarde si
    'l'argument passé est bien "onmouseover", on pourrait imaginer le meme controle qui posséde l'evenement DoubleClick
    'si toutes ces conditions on lance l'evenement via RaiseEvent
    Private Sub Label_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Page.IsPostBack Then
            If Not Page.Request.Params("__EVENTTARGET") Is Nothing AndAlso Page.Request.Params("__EVENTTARGET") = Me.UniqueID AndAlso Page.Request.Params("__EVENTARGUMENT") Is Nothing AndAlso Page.Request.Params("__EVENTARGUMENT") = "onMouseOver" Then
                RaiseEvent MouseOver(Page.Request.Params("__EVENTTARGET"), (New EventArgs).Empty)
            End If
        End If
    End Sub
End Class