给任何控件添加链接功能(原创)

王朝other·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

今天碰到一个需求,就是需要做一个自定义服务器控件,要求这个控件有一个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

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航