Nada sigue dandome este error.
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 12: End Sub
Línea 13:
Línea 14: Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Línea 15: tbDNI.Text += CalcularNIF(tbDNI.Text, Nothing)
Línea 16: End Sub
En el visual web developer me subraya Button1.click como que esta mal.
Ya no ser que hacer.
Dejo aqui el codigo html y el otro por que yo no consigo sacarlo.
HTML
<%@ 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="label1"
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="Button1"
onclick="Calcular_NIF"
Runat="server"
BorderWidth="2px"
BorderStyle="Solid"
BackColor="White"
ForeColor="Black"
Text="Enviar" Height="26px"></asp:Button>
<p></p>
<br><br>
</div>
</div>
<div align="center">
</div>
</form>
</body>
</html>
VB
Partial Class CalculoNIF
Inherits System.Web.UI.Page
Public label1 As Label
Public tbDNI As TextBox
Public Button1 As Object
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label1.Text = "Ejemplo de Programación WebForm ASP .NET (VB)"
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
tbDNI.Text += CalcularNIF(tbDNI.Text, Nothing)
End Sub
Private Function CalcularNIF(ByVal resto As String, ByVal letra_NIF As String) As String
If resto = "" Then
MsgBox("No se ha introducido datos", MsgBoxStyle.Information)
Return Nothing
Exit Function
ElseIf Len(resto) < 7 Then
MsgBox("No se puede calcular el NIF porque faltan dígitos", MsgBoxStyle.Information)
Return Nothing
Exit Function
ElseIf Not IsNumeric(resto) Then
MsgBox("El dato introducido no es numérico", MsgBoxStyle.Information)
Return Nothing
Exit Function
Else
resto = Convert.ToInt32(resto 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
Return letra_NIF
End If
End Function
End Class