中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > Web开发 > Asp > 综合文章
给任何控件添加链接功能
作者:佚名 时间:2004-10-07 10:44 出处:互连网 责编:chinaitpower
              摘要:给任何控件添加链接功能
今天碰到一个需求,就是需要做一个自定义服务器控件,要求这个控件有一个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
这样的话任何拖入这个控件里的任何控件都有了转向属性,而且控件本身原封不动的保留了下来


关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有