很简单:
dim mylink as new hyperLink()
addHandler mylink.click,addressof mylink_onlclick
...
Sub mylink_onclick(ByVal sender As Object, ByVal e As EventArgs)
...
end sub
按照要求改成了vb.net的,看看是不是你需要的
Private Sub myfun(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
Dim tmplink As HyperLink = New HyperLink()
tmplink.Text = e.Day.DayNumberText
tmplink.NavigateUrl = "b.aspx?id=" + e.Day.DayNumberText
e.Cell.Controls.Clear()
e.Cell.Controls.Add(tmplink)
知道了,原来在vb.net中要这样处理
Private Sub myRender(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender
'function content