ASP.NET - Control de Usuario

 
Vista:
sin imagen de perfil

Control de Usuario

Publicado por jorge (12 intervenciones) el 17/06/2005 23:47:37
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.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Control de Usuario

Publicado por Pablo Iñareta (73 intervenciones) el 24/06/2005 13:49:35
Prueba a declararlo asi Protected WithEvents LoginBox As LoginBox simplemente. Y otra cosa fundamental, doy por hecho que el control esta dentro del proyecto, si no es asi, tendras que incluirlo en las referencias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar