我正在使用Telerik RadControls,在我的代码隐藏中,我有以下功能,其中一部分为页脚添加了按钮。
Protected Sub RadGrid1_ItemCreated(ByVal sender As Object, ByVal e As GridItemEventArgs)
If TypeOf e.Item Is GridDataItem Then
Dim editLink As HyperLink = DirectCast(e.Item.FindControl("EditLink"), HyperLink)
editLink.Attributes("href") = "#"
editLink.Attributes("onclick") = [String].Format("return ShowEditForm('{0}','{1}');", e.Item.OwnerTableView.DataKeyValues(e.Item.ItemIndex)("ID"), e.Item.ItemIndex)
End If
''Add buttons to footer of grid
If TypeOf e.Item Is GridFooterItem Then
Dim footerItem As GridFooterItem = e.Item
''Creat Ticket button
Dim btn1 As New Button()
btn1.Text = "Create Ticket"
btn1.Attributes.Add("runat", "server")
btn1.Attributes.Add("OnClick", "btnCreate_Click")
footerItem.Cells(2).Controls.Add(btn1)
''Show All Tickets button
Dim btn2 As New Button()
btn2.Text = "Show All Tickets"
btn2.Attributes.Add("runat", "server")
btn2.Attributes.Add("OnClick", "btnAll_Click")
footerItem.Cells(2).Controls.Add(btn2)
End If
End Sub
除此之外,我在我的代码隐藏中有以下两个函数,我希望在单击按钮时调用它们。
Protected Sub btnCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Redirect("itrequest.aspx", False)
End Sub
Protected Sub btnAll_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Response.Redirect("itall_v2.aspx", False)
End Sub
我的问题是这些函数没有在渲染页面中调用。令我困惑的是,当我在标记中定义具有相同属性的这些按钮时,它们工作正常。我不明白在标记和后面的代码中定义按钮之间有什么区别。为什么不从我在后面的代码中定义的按钮调用这些函数?有效的按钮以及我在标记中注释用于测试目的的按钮如下所示。
<%--<asp:Table ID="Table2" runat="server" HorizontalAlign="Left">
<asp:TableRow>
<asp:TableCell>
<br />
<asp:Button ID="Button1" runat="server" Text="Create Ticket" OnClick="btnCreate_Click" />
<asp:Button ID="Button2" runat="server" Text="Show All Tickets" OnClick="btnAll_Click" />
</asp:TableCell>
</asp:TableRow>
</asp:Table>--%>
答案 0 :(得分:3)
Attributes.Add()函数用于将HTML属性添加到页面中的元素。因此,您要在代码中添加客户端脚本。要在事件后面添加代码,请使用以下代码:
btn1.Click += new EventHandler(btn1_Click);
答案 1 :(得分:2)
nandokakimoto是正确的,但VB中的语法是:
AddHandler btn1.Click, AddressOf btn1_Click
一种奇怪的语法,即使AddHandler似乎是一个函数,也不使用括号。
此致