ASP.NET - Problemas con aplicacion ASP.NET

   
Vista:

Problemas con aplicacion ASP.NET

Publicado por sematove (3 intervenciones) el 28/04/2008 19:47:15
Saludos soy nuevo en esto de asp.net y estoy haciendo una aplicacion para que me devuelva la letra del dni pero al intentar verla en el navegador me da error.

Mensaje de error del compilador: BC30260: 'btEnviar' ya se declaró como 'Public btEnviar As System.Web.UI.WebControls.Button' en class.

Error de código fuente:



Línea 25: End Sub
Línea 26:
Línea 27: Protected Sub btEnviar(ByVal sender As Object, ByVal e As System.EventArgs)
Línea 28: EventHandlers(btEnviar.Click)
Línea 29: Calcular_NIF(tbDni, True)

No se que estoy haciendo mal, ya digo que soy nuevo, alguien me puede echar un cable, aqui dejo el codigo por si alguien le quiere echar un vistazo.

<%@ Page Language="vb" Inherits="primera" src="proyecto.aspx.vb" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title> Primera página ASP.NET </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="Miliuco">
<meta name="Keywords" content="">
<meta name="Description" content="">
<style>
a:link {color: Blue; font-weight: bold;}
a:visited{color: Purple; font-weight: bold;}
a:hover{color: Red; font-weight: bold;}
body {margin-left: 15px; font-family: Verdana, Geneva, Arial,
Helvetica, sans-serif; font-size: 10pt;}
table {font-family: Verdana, Geneva, Arial, Helvetica, sans-serif;
font-size: 10pt;}
</style>
</head>
<body>
<form id="Form1" runat="server">
<div align="center">
<table align="center" border="0" width="550" id="table1">
<tr>

</tr>
</table>
<br>
<asp:Label id="lbMensaje1"
font-bold="True"
font-size="22pt"
forecolor="blue"
runat="server"></asp:Label>
</div>
<div align="center">
<h3 align="center"><font color="blue">Escribe tu
DNI:</font></h3>
<div align="center">
<asp:TextBox id="tbDni"
Width="102px"
Runat="server"></asp:TextBox>
<asp:Button id="btEnviar"
onclick="Calcular_NIF"
Runat="server"
BorderWidth="2px"
BorderStyle="Solid"
BackColor="White"
ForeColor="Black"
Text="Enviar"></asp:Button>
<p></p>
<br><br>
</div>
</div>
<div align="center">
</div>
</form>
</body>
</html>

proyecto.aspx.vb

Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls


Public Class primera : Inherits Page


Public lbMensaje1 As Label
Public tbDni As TextBox
Public btEnviar As Button



Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
lbMensaje1.Text = "Aplicacion Dni ASP.NET"

End Sub

Protected Sub btEnviar(ByVal sender As Object, ByVal e As System.EventArgs)
EventHandlers(btEnviar.Click)
Calcular_NIF(tbDni, True)
End Sub

Public Function Calcular_NIF(ByVal tbdni As String, ByVal retornoLetra As Boolean) As String
Dim resto As Integer
Dim letra_NIF As String
letra_NIF = ""
If tbdni = "" Then
MsgBox("No se ha introducido datos", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
ElseIf Len(tbdni) < 7 Then
MsgBox("No se puede calcular el NIF porque faltan dígitos", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
ElseIf Not IsNumeric(tbdni) Then
MsgBox("El dato introducido no es numérico", MsgBoxStyle.Information)
Calcular_NIF = ""
Exit Function
Else
resto = Val(tbdni) Mod 23
Select Case resto
Case 0
letra_NIF = "T"
Case 1
letra_NIF = "R"
Case 2
letra_NIF = "W"
Case 3
letra_NIF = "A"
Case 4
letra_NIF = "G"
Case 5
letra_NIF = "M"
Case 6
letra_NIF = "Y"
Case 7
letra_NIF = "F"
Case 8
letra_NIF = "P"
Case 9
letra_NIF = "D"
Case 10
letra_NIF = "X"
Case 11
letra_NIF = "B"
Case 12
letra_NIF = "N"
Case 13
letra_NIF = "J"
Case 14
letra_NIF = "Z"
Case 15
letra_NIF = "S"
Case 16
letra_NIF = "Q"
Case 17
letra_NIF = "V"
Case 18
letra_NIF = "H"
Case 19
letra_NIF = "L"
Case 20
letra_NIF = "C"
Case 21
letra_NIF = "K"
Case 22
letra_NIF = "E"

End Select
If retornoLetra = True Then
Return letra_NIF
Else
Return tbdni & letra_NIF
End If

Exit Function
End If

End Function


End Class
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:Problemas con aplicacion ASP.NET

Publicado por Javier Santamaria (312 intervenciones) el 29/04/2008 17:15:20
Hola,

Prueba a cambiar esto:
EventHandlers(btEnviar.Click)

por esto otro:
Handles BtnApprove.Click

Por cierto, cuando llamas a la funcion Calcular_NIF no asignas el valor que devuelve la funcion a ninguna variable, por lo que no podras trabajar con el luego.

Saludos
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

RE:Problemas con aplicacion ASP.NET

Publicado por sematove (3 intervenciones) el 29/04/2008 21:46:28
Hola javier, gracias por echarme un cable, he echo lo que me has puesto ahi y me sigue dando error, echale al codigo un vistazo y a ver si me puedes poner lo que me falta, yo soy nuevo en esto de asp.net y no tengo mucha idea.
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

RE:Problemas con aplicacion ASP.NET

Publicado por sematove (3 intervenciones) el 29/04/2008 21:58:58
El error que me da en el navegador es este

Mensaje de error del compilador: BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.

Error de código fuente:



Línea 27: End Sub
Línea 28:
Línea 29: Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnApprove.Click
Línea 30: Calcular_NIF(resto, letra_NIF)
Línea 31:
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

RE:Problemas con aplicacion ASP.NET

Publicado por Javier Santamaria (312 intervenciones) el 30/04/2008 15:40:28
Ya sabia yo que habia leido este problema en algun otro sitio (y es aqui). En foros del web te conteste. Mira a ver si eso te srive.

Saludos
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