Control de Usuario 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.
