我正在開發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