Control de Usuario

[jorge1980]

Buenas Tardes! He diseñado un control de usuario que consiste en un cuadro de inicio de sesión programado mediante la utilización de eventos. Este cuadro posee las siguientes etiquetas lblUser, lblPassword, txtUser, txtPassword y un cmdLogin. Adicionalmente están definidos los eventos públicos LoginFailed() y LoginAuthenticated()

A continuación les muestro la codificación del control de usuario:

Public Class LoginBox
Inherits System.Web.UI.UserControl

Public Event LoginFailed()
Public Event LoginAuthenticated()

Protected WithEvents pnlControls As System.Web.UI.WebControls.Panel
Protected WithEvents lblUser As System.Web.UI.WebControls.Label
Protected WithEvents txtUser As System.Web.UI.WebControls.TextBox
Protected WithEvents lblPassword As System.Web.UI.WebControls.Label
Protected WithEvents txtPassword As System.Web.UI.WebControls.TextBox
Protected WithEvents cmdLogin As System.Web.UI.WebControls.Button



Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
If txtPassword.Text = "open" Then
RaiseEvent LoginAuthenticated()
Else
RaiseEvent LoginFailed()
End If
End Sub


End Class

Al momento de codificar las rutinas para los eventos en el archivo .aspx se presentan los problemas. Este archivo o pagina no me reconoce mi control de usuario utilizando la sentencia Protected WithEvents LoginBox As System.Web.UI.UserControl.LoginBox indicandome que no esta definido y no entiendo el por que? Pueden orientarme en la búsqueda de la solucion?

Codificación del archivo ProtectedPage.aspx

Public Class ProtectedPage
Inherits System.Web.UI.Page
Protected WithEvents Login As System.Web.UI.UserControl.LoginBox

Private Sub Fallo() Handles Login.LoginFailed
Dim intents As Integer

intents = CType(viewstate("intents"), Integer)

intents += 1

If intents >= 3 Then
Response.Redirect("/Practica/webform1.aspx")
End If

viewstate("intents") = intents
End Sub

Private Sub Autentificado() Handles Login.LoginAuthenticated
lblSecretMessage.Text = "Usted esta autorizado para ingresar a esta pagina"
End Sub


Observen que no es nada del otro mundo y no entiendo porque no funciona.

Gracias, Jorge.