我正在开发Visual Studio Web开发人员的一些.NET代码,并遇到问题。当我双击而不是加载一个子过程在设计视图按钮,它的作用是突出这一点:<asp:Button ID="btnEnter" runat="server" Text="Enter" onclick="btnEnter_Click" />
Visual Basic子程序问题
当我尝试运行只是为了看看会发生什么,我得到这个错误: Line 8: <asp:Button ID="btnEnter" runat="server"
Compiler Error Message: BC30456: 'btnEnter_Click' is not a member of 'ASP.default_aspx'.
如果我删除onclick="btnEnter_Click"
并运行它,它的工作原理。无论哪种方式,当我双击按钮/元素,不应该为我创建一个子过程,看起来像? Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
我试图进入该manaully但关键字不会变成蓝色或任何种类的颜色,当我运行它,它只是显示为与我的其他网页表单文本元素。这里是我到目前为止有:
<%@ Page Title="Home Page" Language="VB"%>
<form id="form1" runat="server">
<asp:Label ID="Label1" runat="server" Text="Enter a person's name below"></asp:Label>
<p>
<asp:TextBox ID="txtStudentName" runat="server"></asp:TextBox>
</p>
<p>
<asp:Button ID="btnEnter" runat="server"
Text="Enter" onclick="btnEnter_Click" />
</p>
<p>
<asp:Button ID="btnDisplay" runat="server" Text="Display all and exit" />
</p>
<p>
<asp:Label ID="lbl2" runat="server" Text=" "></asp:Label>
</p>
<p>
<asp:Label ID="lbl3" runat="server" Text=" "></asp:Label>
</p>
<p>
<asp:Label ID="lbl4" runat="server" Text=" "></asp:Label>
</p>
<p>
<asp:Label ID="lbl5" runat="server" Text=" "></asp:Label>
</p>
</form>
编辑:
当我进入default.aspx.vb文件里面我的代码,它突出的关键字等,但它不能引用的元素我在设计视图中创建。
分部类_Default 继承System.Web.UI.Page
末级
Class Lab1
Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Public Const length As Integer = 3
Shared counter2 As Integer = 0
Public Shared studentList As String() = New String(2) {}
Protected Sub btnEnter_Click(sender As Object, e As EventArgs)
Label1.Text = "Enter a person's name"
Dim studentName As [String] = txtStudentName.Text
If studentList.Length <= length Then
If txtStudentName.Text <> "" Then
Dim match As [Boolean] = True
Dim i As Integer = 0
While counter2 >= i
If studentList(i) IsNot Nothing Then
If studentList(i).ToUpper() = txtStudentName.Text.ToUpper() Then
match = False
Label1.Text = "This name has already been used"
End If
End If
i += 1
End While
If match = True Then
studentList(counter2) = txtStudentName.Text
counter2 += 1
End If
End If
End If
End Sub
End Class
哇,谢谢。我不相信我忘了脚本支架! – Tim