Problemas con aplicacion asp.net 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
