给任何控件添加链接功能

今天碰到一个需求，就是需要做一个自定义服务器控件，要求这个控件有一个url属性，所有的放在这个控件里的任何控件都能具有Url转向的能力

一开始是用这句话实现的“ output.AddAttribute(HtmlTextWriterAttribute.Href, “www.163.com”，但这种方式有些缺点，就是需要重写控件，那样的话有的控件原来的属性就丢失了，如果用MyBase.Render(output)不执行重写的话，图片控件就加不上转向属性，这点我很迷惑，是不是因为中间形成了层的原因。

结果决定用另一种办法，就是用客户端事件，也就是javascript，最后形成的代码如下
Imports System.Web.UI
Imports System.Drawing
Imports System

<ToolboxData("<{0}:Link runat=server></{0}:Link>")> Public Class Link
Inherits System.Web.UI.WebControls.Panel
Implements INamingContainer

Private _Url As String = String.Empty
Property Url() As String
Get
Return _Url
End Get
Set(ByVal Value As String)
_Url = Value
End Set
End Property

Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)

output.WriteBeginTag("A")
Dim fulltest As String = "javascript:window.open(‘’" & _Url & "‘’);"
output.WriteAttribute("onclick", fulltest)
output.WriteAttribute("href", "#")
MyBase.Render(output)
output.WriteEndTag("A")

End Sub
End Class
这样的话任何拖入这个控件里的任何控件都有了转向属性，而且控件本身原封不动的保留了下来

原文转自：http://www.ltesting.net