设为首页
加入收藏
站内地图
旧版入口
当前位置:首页 > 站长学院 > 网络编程 > ASP

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

作者:佚名 出处:网络转载 时间:07-27 点击:

内容载入中...

今天碰到一个需求,就是需要做一个自定义服务器控件,要求这个控件有一个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
这样的话任何拖入这个控件里的任何控件都有了转向属性,而且控件本身原封不动的保留了下来

 

收藏本文:
】【打印页面】【推荐给朋友】【关闭窗口

站长学院

推荐信息