webcontrol y eventos [URG]

[HenrydeSousa]

Hola, no sé si aún te sirva, pero aqui te dejo un ejemplo de algo que hice algún tiempo. Es un control compuesto por dos controles ImageButton.
Fíjate en la parte que se crea los eventos para cada uno. Si no te sirva a ti, pues lo dejo por si le sirve a alguien más. Saludos...

Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.ComponentModel
Imports System.Drawing

Public Class Botones
Inherits WebControl
Implements INamingContainer

Protected WithEvents cmdAceptar As New ImageButton
Protected WithEvents cmdCancelar As New ImageButton

Dim _ImageOverAceptar As String = "Images/Aceptar_Over.gif"
Dim _ImageOutAceptar As String = "Images/Aceptar.gif"
Dim _ImageOverCancelar As String = "Images/Cancelar_Over.gif"
Dim _ImageOutCancelar As String = "Images/Cancelar.gif"

Dim _ImageUrlAceptar As String = "Images/Aceptar_Inact.gif"
Dim _ImageUrlCancelar As String = "Images/Cancelar_Inact.gif"

Dim _TabIndexAceptar As Short
Dim _TabIndexCancelar As Short

Protected Overrides Sub CreateChildControls()
'Aceptar
cmdAceptar.ID = "Aceptar"
'cmdAceptar.Enabled = Habilitado
cmdAceptar.Enabled = False
cmdAceptar.ImageUrl = "Images/Aceptar_Inact.gif"
cmdAceptar.ToolTip = "Aceptar"
'cmdAceptar.TabIndex = 0
'cmdAceptar.Attributes.Add("onMouseOver", "src='Images/Aceptar_Over.gif'")
'cmdAceptar.Attributes.Add("onMouseOut", "src='Images/Aceptar.gif'")
cmdAceptar.Attributes.Add("onMouseOver", "src='" & ImageOverAceptar & "'")
cmdAceptar.Attributes.Add("onMouseOut", "src='" & ImageOutAceptar & "'")
Me.Controls.Add(cmdAceptar)

'Cancelar
cmdCancelar.ID = "Cancelar"
'cmdCancelar.Enabled = Habilitado
cmdCancelar.Enabled = False
cmdCancelar.ImageUrl = "Images/Cancelar_Inact.gif"
cmdCancelar.ToolTip = "Cancelar"
'cmdCancelar.TabIndex = 0
'cmdCancelar.Attributes.Add("onMouseOver", "src='Images/Cancelar_Over.gif'")
'cmdCancelar.Attributes.Add("onMouseOut", "src='Images/Cancelar.gif'")
cmdCancelar.Attributes.Add("onMouseOver", "src='" & ImageOverCancelar & "'")
cmdCancelar.Attributes.Add("onMouseOut", "src='" & ImageOutCancelar & "'")
Me.Controls.Add(cmdCancelar)

End Sub

' Declaramos los eventos
Public Event AceptarClick As EventHandler
Public Event CancelarClick As EventHandler

' Creamos los manejadores de eventos
Protected Sub Aceptar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdAceptar.Click
RaiseEvent AceptarClick(sender, e)
End Sub

Protected Sub Cancelar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdCancelar.Click
RaiseEvent CancelarClick(sender, e)
End Sub

'************************************************* ****
'Propiedades para mostrar las imagenes de los botones
'Aceptar y Cancelar
'************************************************* ****
' <Category("Behavior"), _
' Description("Imagen mostrada para el botón Aceptar")> _
Public Property ImageUrlAceptar() As String
Get
EnsureChildControls()
Return cmdAceptar.ImageUrl
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdAceptar.ImageUrl = Value
End Set
End Property

<Category("Behavior"), _
Description("Imagen mostrada para el botón Cancelar")> _
Public Property ImageUrlCancelar() As String
Get
EnsureChildControls()
Return cmdCancelar.ImageUrl
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdCancelar.ImageUrl = Value
End Set
End Property

'*************************************
'Propiedades para habilitar los botones
'Aceptar y Cancelar
'*************************************
<Category("Behavior"), _
Description("Permite habilitar o deshabilitar el botón Aceptar")> _
Public Property AceptarEnabled() As Boolean
Get
EnsureChildControls()
Return cmdAceptar.Enabled
End Get
Set(ByVal Value As Boolean)
EnsureChildControls()
cmdAceptar.Enabled = Value
If Value = True Then
cmdAceptar.ImageUrl = "Images/Aceptar.gif"
Else
cmdAceptar.ImageUrl = "Images/Aceptar_Inact.gif"
End If
End Set
End Property

<Category("Behavior"), _
Description("Permite habilitar o deshabilitar el botón Cancelar")> _
Public Property CancelarEnabled() As Boolean
Get
EnsureChildControls()
Return cmdCancelar.Enabled
End Get
Set(ByVal Value As Boolean)
EnsureChildControls()
cmdCancelar.Enabled = Value
If Value = True Then
cmdCancelar.ImageUrl = "Images/Cancelar.gif"
Else
cmdCancelar.ImageUrl = "Images/Cancelar_Inact.gif"
End If
End Set
End Property

'********************************************
'Propiedades para establecer el orden
'de tabulación de cada botón
'********************************************
<Category("Behavior"), DefaultValue(0), _
Description("Orden de tabulación del botón Aceptar")> _
Public Property TabIndexAceptar() As Short
Get
EnsureChildControls()
Return cmdAceptar.TabIndex
End Get
Set(ByVal Value As Short)
EnsureChildControls()
cmdAceptar.TabIndex = Value
End Set
End Property

<Category("Behavior"), DefaultValue(0), _
Description("Orden de tabulación del botón Cancelar")> _
Public Property TabIndexCancelar() As Short
Get
EnsureChildControls()
Return cmdCancelar.TabIndex
End Get
Set(ByVal Value As Short)
EnsureChildControls()
cmdCancelar.TabIndex = Value
End Set
End Property


'************************************************* *
'Propiedades para mostrar las imagenes en los
'eventos OnMouseOver y OnMouseOut de los botones
'Aceptar y Cancelar
'************************************************* *
<Category("Behavior"), _
Description("Imagen mostrada en el evento OnMouseOver de Aceptar")> _
Public Property ImageOverAceptar() As String
Get
Return _ImageOverAceptar
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdAceptar.Attributes.Add("onMouseOver", "src='" & Value & "'")
End Set
End Property

<Category("Behavior"), _
Description("Imagen mostrada en el evento OnMouseOut de Aceptar")> _
Public Property ImageOutAceptar() As String
Get
Return _ImageOutAceptar
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdAceptar.Attributes.Add("onMouseOut", "src='" & Value & "'")
End Set
End Property

<Category("Behavior"), _
Description("Imagen mostrada en el evento OnMouseOver de Cancelar")> _
Public Property ImageOverCancelar() As String
Get
Return _ImageOverCancelar
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdCancelar.Attributes.Add("onMouseOver", "src='" & Value & "'")
End Set
End Property

<Category("Behavior"), _
Description("Imagen mostrada en el evento OnMouseOut de Cancelar")> _
Public Property ImageOutCancelar() As String
Get
Return _ImageOutCancelar
End Get
Set(ByVal Value As String)
EnsureChildControls()
cmdCancelar.Attributes.Add("onMouseOut", "src='" & Value & "'")
End Set
End Property

'Protected Overrides Sub Render(ByVal writer As System.Web.UI.HtmlTextWriter)
' CreateChildControls()
' MyBase.Render(writer)
'End Sub

End Class