知识大全 为ASP.NET控件添加设计时支持

Posted 2022-07-17 知

篇首语：无志山压头，有志人搬山。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 为ASP.NET控件添加设计时支持相关的知识，希望对你有一定的参考价值。

为ASP.NET控件添加设计时支持  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　ASP NET 服务器控件之所以能够提供生产效率 关键原因之一在于它为 Microsoft Visual Studio NET 开发环境中的服务器控件提供了丰富的设计时支持 开发人员可以将服务器控件从 Visual Studio NET 工具箱拖放到页面上 通过 Properties（属性）窗口访问它们的属性 然后在 Visual Studio HTML 编辑器以及 ASP NET 页面的内含代码的类中利用 Microsoft IntelliSense? 语句完成功能 这些设计时功能为 Web 开发带来了快速应用程序开发 (RAD) 工具 而这些工具已被 Microsoft Visual Basic? 开发人员使用了多年

　　ASP NET 还使开发人员能够通过创建自定义服务器控件以封装大量可重复使用的用户界面特定的代码（例如登录或注册表单） 来进一步提高生产效率 尽管开发人员已经开始意识到开发自定义控件的重要性 但许多人可能还没有意识到还能在控件中利用 Visual Studio 设计时支持的强大功能 使这些控件能够像 ASP NET 中的内置控件那样易于使用 本文将介绍 Microsoft NET Framework 和 Visual Studio NET 提供的设计时支持的类型 并向开发人员介绍如何构建利用这种支持的控件

　　设计时支持的类型　　针对 Visual Studio NET 中的服务器控件 有五种不同的设计时支持 它们是 　　　 内含代码的类中的 IntelliSense 　　　 设计视图中的属性浏览器支持 　　　 工具箱支持 　　　 HTML 视图中的属性浏览器支持 　　　 HTML 编辑器中的 IntelliSense 　　这些设计时支持类型是由几个不同的机制提供的 内含代码的类中的 IntelliSense 由 IDE 启用 IDE 为您的控件读取元数据以确定控件所提供的属性和方法及其类型和参数 要启用内含代码的类中的 IntelliSense 只需对您的控件进行编写和编译 然后将其程序集放到使用该控件的应用程序的 bin 子目录中 　　Visual Studio NET 编辑器设计视图中的属性浏览器支持通过以下两个途径提供 将该类型与某个属性相关联和/或将元数据特性与该属性相关联 将元数据特性（下文简称为特性）添加到您的代码中 用于标识属性的类别 提供属性说明以及在需要时指定首选编辑器 有些类型的属性（如 System Drawing Color）会自动映射到 Visual Studio NET 中的相应编辑器中 　　Visual Studio NET 的 HTML 视图中的 IntelliSense 和属性浏览器支持通过使用一种 XSD 架构进行提供 该架构用于描述与控件相关联的类型 它使用称为 Visual Studio 注释的文本修饰指定控件的首选编辑器和其他首选项 　　最后 您可以通过结合特性和带有特定属性的自定义位图来支持从 Visual Studio NET 工具箱拖放控件

　　Blog 控件示例　　用于说明 Visual Studio NET 中的设计时功能的控件称作 Blog 控件 如本文末尾的列表 所示 该控件提供利用 XML 作为存储介质的简单 Web 日志功能 Web 日志通常称为 Blog 它实际上是一个 Web 页面 供人们在上面张贴有关日常生活 世态百象 时事政治或人们所关心的其他问题的定期观察报告或评论 Blog 条目是通过 Web 浏览器添加的 　　Blog 控件非常简单明了 它利用控件组合向浏览器提供输出 在组合控件中 CreateChildControls 方法（由 ASP NET 运行时自动调用）会被重写 利用此方法 我们可以创建构成自定义控件 UI 的控件 并将它们添加到控件的 控件 集合中 此外 该控件还包含用于显示和添加 Blog 以及当 XML Blog 存储文件不存在时创建一个这样的文件的逻辑 该控件的几个公共属性需要开发人员在设计时进行设置 其中包括在添加新 Blog 时该控件将重定向到的页面的 URL 与新 Blog 关联的电子邮件地址 控件模式（显示或添加）以及各 Blog 条目之间的分隔线的颜色 图 所示为正在运行的 Blog 控件 Add Blog（添加 Blog）超链接由 ASP NET 超链接控件提供 独立于 Blog 控件 BlogClient aspx 的代码如列表 所示 BlogClient aspx 的 codebehind 类如列表 所示 它提供单击 Add Blog（添加 Blog）链接时更改 Blog 模式的逻辑

　　图 运行时的 Blog 控件

　　图 所示为设计时基本 Blog 控件的外观 请注意 虽然列出了属性 但并未分类

　　图 设计时的 Blog 控件

　　添加设计时支持　　虽然在 Web 窗体页上使用 Blog 控件非常简单 但并不是很直观 例如 如果没有相关文档 使用 Blog 控件的人就无法知道 Mode 属性的有效值只能是 Display 或 Add 如果未将 Add 模式的相关信息明确地告诉使用该控件的开发人员 他们就很难自己发现并使用这种模式 　　对于使用 Visual Studio NET（或支持 IntelliSense 的其他 IDE）的开发人员而言 可以通过为控件添加设计时支持来解决这一问题 这可以通过综合利用本文前面所介绍的方法来实现 在为自定义服务器控件提供设计时支持所面临的挑战中 部分原因来自于在自定义控件中全面支持设计时功能所需的方法的多样性 最简单的 不需要任何附加编码的是内含代码的类中的 IntelliSense 语句完成方法 如图 所示 此方法适用于 BlogClient aspx vb

　　图 内含代码的类中的 IntelliSense

　　遗憾的是 语句完成功能的自动支持并没有扩展到编辑 Web 窗体页时的设计视图或 HTML 视图 而且 Visual Studio 也没有提供不需要额外的控件工作就能在属性浏览器中查看和编辑属性的内置支持 更复杂的是 要在 Web 窗体编辑器的属性浏览器和设计视图中支持 IntelliSense 需要采用一种方法 要在该编辑器的 HTML 视图中支持 IntelliSense 则需要采用另一种方法 　　要在设计视图中支持属性浏览 所需的方法是通过特性告诉 Visual Studio NET 如何处理属性 要在 HTML 视图中支持语句完成和属性浏览 需要生成一个自定义 XSD 架构以描述控件中的类型 我们将在下文讨论这两种方法

　　设计视图和元数据特性　　Visual Studio NET 为使用拖放技术的动态控件设计和修改提供了丰富的支持 同时还提供了属性浏览器之类的工具以及相关的设计器（例如颜色选择器） 对这些工具的支持是通过一系列特性提供的 您可以将这些特性添加到您的控件中 这些特性用于告诉 Visual Studio IDE 是否在属性浏览器中显示控件的属性 属性所属的类型以及应使用哪个设计器设置属性的值 　　对于将要提供设计时支持的控件版本 我们将制作一份控件文件 Blog vb 的副本 并将其命名为 Blog_DT vb 然后在副本文件上进行修改 这样可以生成该控件的设计时版本 并保留原始控件以便进行比较 　　要支持在属性浏览器中编辑 AddRedirect 属性 应在属性进程之前添加以下特性 如以下代码片段所示

　　＜Browsable(True) _Category( 行为 ) _Description( 成功提交新的 Blog 条目后 & _ 应重定向到的 & _ 页面的 URL ) _Editor( System Web UI Design UrlEditor _GetType(UITypeEditor))＞ _Public Property AddRedirect() As String 属性进程代码End Property

　　图 设计视图中的属性支持

　　此处所述的特性语法适用于 Visual Basic NET 在 Visual Basic NET 中 特性通过以下语法进行声明

　　＜AttributeName(AttributeParams)＞

　　添加工具箱支持　　除了设置属性级别的特性外 还可设置某些类和程序集级别的特性 例如 您可以使用程序集级别的特性 TagPrefix 来指定标记前缀 供程序集中包含的任何控件使用 之后 当您从 Visual Studio 工具箱中向某个 Web 窗体页上添加该控件的实例时 Visual Studio NET 将自动插入这个标记前缀 以下代码片段显示了 TagPrefix 特性的语法 该特性应放置在定义该控件的类模块内 但应在类和命名空间声明之外（请注意 在 Visual Basic NET 项目中 命名空间是在项目级别定义的 因此您不用担心如何将程序集特性放置到命名空间声明之外） 在以下特性中 TagPrefix 特性的第一个参数是控件的命名空间 第二个参数是您希望为标记前缀使用的文本

　　＜Assembly: TagPrefix( BlogControl BlogControl )＞

　　＜ToolboxData( ＜ :Blog_DT runat=server＞＜/ :Blog_DT＞ )＞ _Public Class Blog_DTInherits PanelImplements INamingContainer 控件实现End Class

　　图 设置 Build Action（创建操作）

　　编译完成后 该控件将支持从工具箱中将控件添加到某个页面中时为 Blog 控件自动插入 @Register 指令 标记前缀和标记名 并在工具箱中显示自定义图标 如图 所示 要将控件添加到 Visual Studio NET 工具箱中 应完成以下简单步骤 　　 在设计视图中 选择 Visual Studio NET 工具箱的 Web forms（Web 窗体）选项卡 在该选项卡上的任意位置单击鼠标右键 然后选择 Add/Remove Items（添加项目/删除项目）（Visual Studio NET 中为 Customize Toolbox [自定义工具箱]） 　　 选择 NET Framework Components（ NET Framework 组件）选项卡 然后单击 Browse（浏览） 浏览到编译后的控件程序集所在的位置 选中它并单击 Open（打开） 　　 单击 OK（确定）

　　图 工具箱中的自定义控件

　　将控件添加到工具箱中后 可以通过双击该控件或将其从工具箱中拖放到 Web 窗体页上 将其添加到 Web 窗体页中 无论何种情况 Visual Studio NET 都会自动插入正确的 @Register 指令（包括基于程序集级别的特性设置 TagPrefix） 还将使用 ToolBoxData 属性中指定的标记名为该控件生成一组标记

　　添加设计器　　正如前文所述 Blog 控件在 Web 窗体编辑器的设计视图中没有任何可视界面 这使得选择页面上的控件很困难 更难以理解控件在运行时的外观 为了解决这个问题 我们可以添加设计器支持 使设计时的 HTML 在外观上接近于运行时的 Blog 控件 请注意 您还可以生成可以完整再现控件运行时输出的设计器 但此操作相当复杂 而且超出了本文的讨论范围 　　所有服务器控件设计器都是从类 System Web UI Design ControlDesigner 派生而来 该类提供了大量方法 您可以重写这些方法为您的控件提供设计时渲染 以下代码简单重写了 GetDesignTimeHtml 方法 返回设计时显示的简单 HTML 请注意 该示例显示了 Blog 控件的整个设计器类 您可以简单地将其添加到现有的 Blog_DT vb 类文件中

　　Public Class BlogDesignerInherits ControlDesignerPublic Overrides Function GetDesignTimeHtml() As StringReturn ＜h ＞Blog＜/h ＞＜hr/＞＜hr/＞ End FunctionEnd Class

　　＜Description( 简单 Blog 控件 支持显示 & _ Web 日志/来自 XML 文件的新条目 ) _Designer( BlogControl BlogDesigner ) _ToolboxData( ＜ :Blog_DT runat=server＞＜/ :Blog_DT＞ )＞ _Public Class Blog_DTInherits PanelImplements INamingContainer

　　图 添加设计时渲染

　　列表 显示了 Blog 控件的代码 它已经使用特性进行了更新 以启用设计视图和属性浏览器中的控件设计时支持 请注意 该示例添加了多条 using 指令 以导入支持我们使用的特性和设计器类所需要的命名空间 这个新列表还添加了一个用于 Mode 属性值的枚举

　　HTML视图支持 自定义架构和 Visual Studio 注释　　尽管前文所述的特性帮助我们为 Blog 控件提供了设计时支持 但这里遗漏了一个重要的问题 在 Web 窗体编辑器的 HTML 视图中添加标记和特性的 IntelliSense 支持 对于那些认为在 HTML 环境中工作比在 所见即所得 风格的环境中工作更舒适的开发人员来说 这是一个极大的疏忽 　　因为 Web 窗体编辑器的 HTML 视图使用 XSD 架构决定在 Web 窗体页上提供哪些元素和特性 所以为了纠正这一问题 我们需要提供一个描述 Blog 控件及其所支持的特性的 XSD 架构 也可以在该架构中添加注释 告诉 Visual Studio NET 各种元素的有关信息以及我们所希望的元素行为 　　列表 包含 Blog 控件特定的 XSD 架构的部分内容 实际的架构文件（可从本文的示例代码中获得）还包含面板控件（Blog_DT 控件就是由它派生的）的类型定义以及其他必需的特性和类型定义 这些定义是从为内置 ASP NET 服务器控件创建的 asp xsd 架构文件中复制的 　　请注意 任何时候都不应直接修改 asp xsd 架构文件 而只应将必需的类型和特性定义复制到您的自定义架构文件中 尽管这看起来是多余的 但如果直接编辑 asp xsd 以后安装 NET Framework 或服务包时该文件将被覆蓋 您的自定义输入项将因此而丢失

　　在列表 中 请注意根架构元素上的 targetNamespace 和 xmlns 特性 这两个特性用于为控件的架构定义 XML 命名空间 targetNamespace 和 xmlns 特性的值还将用于 Web 窗体页中的特性 以 绑定 该架构 ＜xsd:element＞ 标记定义根 Blog_DT 元素 ＜xsd:plexType＞ 标记定义 Blog_DT 元素的特性 包括 ＜xsd:attributeGroup＞ 标记引用的 Web 控件特性 最后 ＜xsd:simpleType＞ 标记定义 BlogMode 类型的枚举 该类型被用作 Blog_DT 元素的一个特性 　　请注意 列表 使用 vs:builder 注释来告诉 Visual Studio NET 对 AddRedirect 特性使用 URL 生成器 而对 SeparatorColor 特性使用颜色生成器 vs:builder 注释是可用于修改架构的注释之一 表 列出了最常用的注释 　　表 常用的 Visual Studio NET 注释

　　 注释 用途 有效值 vs:absolutepositioning 在根 ＜schema＞ 元素上使用 用于确定 Visual Studio 是否可以插入用于定位的样式特性 true 或 false vs:blockformatted 表明是否可以在自动格式化期间为元素添加前导空格 true 或 false vs:builder 指定用于编辑相关属性值的生成器 颜色 样式或 URL vs:deprecated 允许将某个相关属性标记为 已否决 以防止其在属性浏览器和语句完成中出现 true 或 false vs:empty 在元素级别使用 用于指示 Visual Studio NET 应对相关标记（无结束标记）使用一个标记语法 true 或 false vs:friendlyname 在根级别使用 用于为架构提供显示名   vs:iscasesensitive 在根级别使用 说明 Visual Studio NET 是否以区分大小写的方式处理相关标记 true 或 false vs:isschema 在根级别使用 说明架构是否是一个 HTML 文档架构 true 或 false vs:nonbrowseable 在特性级别使用 说明该特性不应出现在语句完成中 true 或 false vs:readonly 在特性级别使用 说明不能在属性窗口中修改该特性 true 或 false vs:requireattributequotes 在根级别使用 说明特性值必须用引号括起 true 或 false

　　创建自己的 XSD 架构后 可以将其与 asp xsd 文件保存到同一位置（在 Visual Studio NET 中 默认为 C:\\Program Files\\Microsoft Visual Studio NET \\Common \\Packages\\schemas\\xml\\） 　　要允许 Visual Studio NET 读取您的自定义架构 需要将一个 xmlns 特性添加到要使用该架构的页面的 ＜body＞ 标记中 如以下代码片段所示

　　＜body xmlns:BlogControl= urn:/schemas ＞

　　图 HTML 视图中的语句完成

　　小结　　本文介绍了 Visual Studio NET 中适用于 ASP NET 服务器控件的设计时支持 还说明了开发人员如何在自己的自定义控件中利用这一支持功能 虽然在控件中添加设计时支持相对简明 但要充分利用这些功能却需要掌握多种不同的技巧 特别欠缺的知识领域就是如何将自定义 XSD 架构绑定到页面上 在撰写本文时 还不具备将页面与控件 XSD 架构连接起来所需的 xmlns 特性的内置支持 所以 还需要手动添加这个特性 希望以后的 Visual Studio NET 版本能够自动完成这一过程 　　本文中的示例代码包含一个适用于 Blog 控件基础版和设计时支持版的 Visual Studio NET 项目 还包含一个说明如何使用每个控件的客户端项目 要运行 BlogControlClient 项目 您需要在 IIS 中创建一个虚拟目录 BlogControlClient 然后将其映射到硬盘驱动器上用于保存 BlogControlClient 项目文件夹的位置 　　真诚地感谢 Microsoft Visual Studio NET 团队的 Rob Caron 他在我编写自定义 XSD 架构的创建和绑定过程中给予了极大的帮助 　　代码列表　　列表 Blog vb

　　 supports Color structureImports System Drawing 支持 StreamWriter 类型Imports System IOImports System Web UI 支持使用 HTML 控件Imports System Web UI HtmlControls 支持使用 Web 控件Imports System Web UI WebControlsPublic Class BlogInherits PanelImplements INamingContainerProtected BlogDS As DataSetProtected TitleTB As TextBoxProtected BlogText As TextBoxPrivate _addRedirect As StringPrivate _email As StringPrivate _mode As StringPrivate _separatorColor As Color = Color BlackPublic Property AddRedirect() As StringGetReturn Me _addRedirectEnd GetSet(ByVal Value As String)Me _addRedirect = ValueEnd SetEnd PropertyPublic Property Email() As StringGetReturn Me _emailEnd GetSet(ByVal Value As String)Me _email = ValueEnd SetEnd PropertyPublic Property Mode() As StringGetReturn Me _modeEnd GetSet(ByVal Value As String)Me _mode = ValueEnd SetEnd PropertyPublic Property SeparatorColor() As ColorGetReturn Me _separatorColorEnd GetSet(ByVal Value As Color)Me _separatorColor = ValueEnd SetEnd Property

　　Protected Overrides Sub OnInit(ByVal e As EventArgs)LoadData()MyBase OnInit(e)End SubProtected Overrides Sub CreateChildControls()If Not Me _mode = Add ThenDisplayBlogs()ElseNewBlog()End IfEnd SubProtected Sub LoadData()BlogDS = New DataSet()TryBlogDS ReadXml(Page Server MapPath( Blog xml ))Catch fnfEx As FileNotFoundExceptionCreateBlankFile()LoadData()End TryEnd SubProtected Sub DisplayBlogs()Dim BlogDate As DateTimeDim CurrentDate As DateTime = New DateTime()Dim BlogRows As DataRowCollection = _BlogDS Tables( ) RowsDim BlogDR As DataRowFor Each BlogDR In BlogRowsDim BDate As String = BlogDR( date ) ToString()BlogDate = New DateTime _(Convert ToInt (BDate Substring( )) _Convert ToInt (BDate Substring( )) _Convert ToInt (BDate Substring( )))If Not CurrentDate = BlogDate ThenDim TempDate As Label = New Label()TempDate Text = BlogDate ToLongDateString()TempDate Font Size = FontUnit LargeTempDate Font Bold = TrueMe Controls Add(TempDate)Me Controls Add _(New LiteralControl( ＜br/＞＜br/＞ ))CurrentDate = BlogDateEnd IfDim Anchor As HtmlAnchor = New HtmlAnchor()Anchor Name = # & BlogDR( anchorID ) ToString()Me Controls Add(Anchor)Dim Title As Label = New Label()Title Text = BlogDR( title ) ToString()Title Font Size = FontUnit LargerTitle Font Bold = TrueMe Controls Add(Title)Me Controls Add(New LiteralControl( ＜p＞ ))Dim BlogText As LiteralControl = _New LiteralControl( ＜div＞ & _BlogDR( text ) ToString() & ＜/div＞ )Me Controls Add(BlogText)Me Controls Add(New LiteralControl( ＜/p＞ ))Dim Email As HyperLink = New HyperLink()Email NavigateUrl = mailto: & _BlogDR( email ) ToString()Email Text = E mail me Me Controls Add(Email)Me Controls Add(New LiteralControl( | ))Dim AnchorLink As HyperLink = New HyperLink()AnchorLink NavigateUrl = _Page Request Url ToString() & # & _BlogDR( anchorID ) ToString()AnchorLink Text = Link Me Controls Add(AnchorLink)Me Controls Add(New _LiteralControl( ＜hr color= & _ColorTranslator ToHtml(_separatorColor) & _ width= % /＞＜br/＞ ))NextEnd SubProtected Sub NewBlog()Dim Title As Label = New Label()Title Text = Create New Blog Title Font Size = FontUnit LargerTitle Font Bold = TrueMe Controls Add(Title)Me Controls Add(New LiteralControl( ＜br/＞＜br/＞ ))Dim TitleLabel As Label = New Label()TitleLabel Text = Title: TitleLabel Font Bold = TrueMe Controls Add(TitleLabel)TitleTB = New TextBox()Me Controls Add(TitleTB)Me Controls Add(New LiteralControl( ＜br/＞ ))Dim BlogTextLabel As Label = New Label()BlogTextLabel Text = Text: BlogTextLabel Font Bold = TrueMe Controls Add(BlogTextLabel)BlogText = New TextBox()BlogText TextMode = TextBoxMode MultiLineBlogText Rows = BlogText Columns = Me Controls Add(BlogText)Me Controls Add(New LiteralControl( ＜br/＞ ))Dim Submit As Button = New Button()Submit Text = Submit AddHandler Submit Click AddressOf Me Submit_ClickMe Controls Add(Submit)End SubProtected Sub Submit_Click(ByVal Sender As Object _ByVal e As EventArgs)EnsureChildControls()AddBlog()End SubProtected Sub AddBlog()Dim NewBlogDR As DataRowNewBlogDR = BlogDS Tables( ) NewRow()NewBlogDR( date ) = FormatDate(DateTime Today)NewBlogDR( title ) = TitleTB TextNewBlogDR( text ) = BlogText TextNewBlogDR( anchorID ) = Guid NewGuid() ToString()NewBlogDR( email ) = _emailBlogDS Tables( ) Rows InsertAt(NewBlogDR )BlogDS WriteXml(Page Server MapPath( Blog xml ))Page Response Redirect(_addRedirect)End SubProtected Function FormatDate(ByVal dt As DateTime) _As StringDim retString As StringretString = String Format( :D dt Month)retString &= String Format( :D dt Day)retString &= String Format( :D dt Year)Return retStringEnd FunctionPublic Sub CreateBlankFile()Dim NewXml As StreamWriter = _File CreateText(Page Server MapPath( Blog xml ))NewXml WriteLine( ＜blogs＞ )NewXml WriteLine _( ＜! blog field describes a single blog ＞ )NewXml WriteLine( ＜blog＞ )NewXml WriteLine( ＜! date field contains & _ the creation date of the blog ＞ )NewXml WriteLine( ＜date＞ & _FormatDate(DateTime Today) & ＜/date＞ )NewXml WriteLine _( ＜title＞Temporary Blog＜/title＞ )NewXml WriteLine( ＜! text field & _ should contain the blog text including any & _ desired HTML tags ＞ )NewXml WriteLine( ＜text＞This entry & _ indicates that the file blog xml was not & _ found A default version of this file has & _ been created for you You can modify the & _ fields in this file as desired If you set & _ the Blog control to add mode (add the & _ attribute mode= add to the control s & _ declaration) the control will & _ automatically populate the XML file when & _ you submit the form ＜/text＞ )NewXml WriteLine( ＜! anchorID field & _ will be autopopulated by the control ＞ )NewXml WriteLine( ＜anchorID＞＜/anchorID＞ )NewXml WriteLine( ＜! email field should & _ contain the email address for feedback ＞ )NewXml WriteLine( ＜email＞change this to a & _ valid email address＜/email＞ )NewXml WriteLine( ＜/blog＞ )NewXml WriteLine( ＜/blogs＞ )NewXml Close()End SubEnd Class

　　列表 BlogClient aspx

　　＜%@ Register TagPrefix= cc Namespace= BlogControl Assembly= BlogControl %＞＜%@ Page Language= vb AutoEventWireup= false Codebehind= BlogClient aspx vb Inherits= BlogControlClient WebForm %＞＜!DOCTYPE HTML PUBLIC //W C//DTD HTML Transitional//EN ＞＜＞＜head＞＜title＞Blog Client＜/title＞＜/head＞＜body＞＜form id=Form method=post runat= server ＞＜p＞＜asp:hyperlink id=Link navigateurl= BlogClient aspx?mode=add runat= server ＞Add Blog＜/asp:hyperlink＞＜/p＞＜cc :blog id=Blog Email= AddRedirect= BlogClient aspx SeparatorColor= LawnGreen runat= server ＞＜/cc :blog＞＜p＞＜asp:hyperlink id=Link navigateurl= BlogClient aspx?mode=add runat= server ＞Add Blog＜/asp:hyperlink＞＜/p＞＜/form＞＜/body＞＜/＞

　　列表 BlogClient aspx vb

　　Imports BlogControlPublic Class WebForm Inherits System Web UI PageProtected WithEvents Link As _System Web UI WebControls HyperLinkProtected WithEvents Link As _System Web UI WebControls HyperLinkProtected WithEvents Blog As BlogControl BlogPrivate Sub Page_Load(ByVal sender As System Object _ByVal e As System EventArgs) Handles MyBase LoadIf Request QueryString( mode ) = add ThenBlog Mode = Add Link Visible = FalseLink Visible = FalseElseBlog Mode = Display Link Visible = TrueLink Visible = TrueEnd IfEnd SubEnd Class

　　列表 Blog_DT vb

　　 支持设计时特性Imports System ComponentModel 支持颜色结构Imports System Drawing 支持 UITypeEditor 类型Imports System Drawing Design 支持 StreamWriter 类型Imports System IOImports System Web UI 支持 ControlDesigner 类型 请注意 必须添加程序集 System Design 的引用 才能导入此命名空间Imports System Web UI Design 支持使用 HTML 控件Imports System Web UI HtmlControls 支持使用 Web 控件Imports System Web UI WebControls＜Assembly: TagPrefix( BlogControl BlogControl )＞ Public Enum BlogModeAddDisplayEnd Enum＜Description( Simple Blog control Supports display & _ of Web log / news items from an XML file ) _Designer( BlogControl BlogDesigner ) _ToolboxData( ＜ :Blog_DT runat=server＞＜/ :Blog_DT＞ )＞ _Public Class Blog_DTInherits PanelImplements INamingContainerProtected BlogDS As DataSetProtected TitleTB As TextBoxProtected BlogText As TextBoxPrivate _addRedirect As StringPrivate _email As StringPrivate _mode As BlogModePrivate _separatorColor As Color = Color Black＜Browsable(True) _Category( Behavior ) _Description( URL to which the page should redirect after successful submission of a new Blog entry ) _Editor( System Web UI Design UrlEditor _GetType(UITypeEditor))＞ _Public Property AddRedirect() As StringGetReturn Me _addRedirectEnd GetSet(ByVal Value As String)Me _addRedirect = ValueEnd SetEnd Property＜Browsable(True) _Category( Behavior ) _Description( Email address the control will use for listing in new Blog entries )＞ _Public Property Email() As StringGetReturn Me _emailEnd GetSet(ByVal Value As String)Me _email = ValueEnd SetEnd Property＜Browsable(True) _Category( Behavior ) _Description( Controls whether existing Blogs are displayed or fields for creating a new Blog entry )＞ _Public Property Mode() As BlogModeGetReturn Me _modeEnd GetSet(ByVal Value As BlogMode)Me _mode = ValueEnd SetEnd Property＜Browsable(True) _Category( Appearance ) _Description( Controls the color of the line that separates Blog entries when in display mode )＞ _Public Property SeparatorColor() As ColorGetReturn Me _separatorColorEnd GetSet(ByVal Value As Color)Me _separatorColor = ValueEnd SetEnd PropertyProtected Overrides Sub OnInit(ByVal e As EventArgs)LoadData()MyBase OnInit(e)End SubProtected Overrides Sub CreateChildControls()If Not Me _mode = BlogMode Add ThenDisplayBlogs()ElseNewBlog()End IfEnd SubProtected Sub LoadData()BlogDS = New DataSet()TryBlogDS ReadXml(Page Server MapPath( Blog xml ))Catch fnfEx As FileNotFoundExceptionCreateBlankFile()LoadData()End TryEnd SubProtected Sub DisplayBlogs()Dim BlogDate As DateTimeDim CurrentDate As DateTime = New DateTime()Dim BlogRows As DataRowCollection = _BlogDS Tables( ) RowsDim BlogDR As DataRowFor Each BlogDR In BlogRowsDim BDate As String = BlogDR( date ) ToString()BlogDate = New DateTime _(Convert ToInt (BDate Substring( )) _Convert ToInt (BDate Substring( )) _Convert ToInt (BDate Substring( )))If Not CurrentDate = BlogDate ThenDim TempDate As Label = New Label()TempDate Text = BlogDate ToLongDateString()TempDate Font Size = FontUnit LargeTempDate Font Bold = TrueMe Controls Add(TempDate)Me Controls Add _(New LiteralControl( ＜br/＞＜br/＞ ))CurrentDate = BlogDateEnd If

　　Dim Anchor As HtmlAnchor = New HtmlAnchor()Anchor Name = # + BlogDR( anchorID ) ToString()Me Controls Add(Anchor)Dim Title As Label = New Label()Title Text = BlogDR( title ) ToString()Title Font Size = FontUnit LargerTitle Font Bold = TrueMe Controls Add(Title)Me Controls Add(New LiteralControl( ＜p＞ ))Dim BlogText As LiteralControl = _New LiteralControl( ＜div＞ & _BlogDR( text ) ToString() & ＜/div＞ )Me Controls Add(BlogText)Me Controls Add(New LiteralControl( ＜/p＞ ))Dim Email As HyperLink = New HyperLink()Email NavigateUrl = mailto: & _BlogDR( email ) ToString()Email Text = E mail me Me Controls Add(Email)Me Controls Add(New LiteralControl( | ))Dim AnchorLink As HyperLink = New HyperLink()AnchorLink NavigateUrl = _Page Request Url ToString() & # & _BlogDR( anchorID ) ToString()AnchorLink Text = Link Me Controls Add(AnchorLink)Me Controls Add _(New LiteralControl( ＜hr color= & _ColorTranslator ToHtml(_separatorColor) & _ width= % /＞＜br/＞ ))NextEnd SubProtected Sub NewBlog()Dim Title As Label = New Label()Title Text = Create New Blog Title Font Size = FontUnit LargerTitle Font Bold = TrueMe Controls Add(Title)Me Controls Add(New LiteralControl( ＜br/＞＜br/＞ ))Dim TitleLabel As Label = New Label()TitleLabel Text = Title: TitleLabel Font Bold = TrueMe Controls Add(TitleLabel)TitleTB = New TextBox()Me Controls Add(TitleTB)Me Controls Add(New LiteralControl( ＜br/＞ ))Dim BlogTextLabel As Label = New Label()BlogTextLabel Text = Text: BlogTextLabel Font Bold = TrueMe Controls Add(BlogTextLabel)BlogText = New TextBox()BlogText TextMode = TextBoxMode MultiLineBlogText Rows = BlogText Columns = Me Controls Add(BlogText)Me Controls Add(New LiteralControl( ＜br/＞ ))Dim Submit As Button = New Button()Submit Text = Submit AddHandler Submit Click AddressOf Me Submit_ClickMe Controls Add(Submit)End SubProtected Sub Submit_Click(ByVal Sender As Object _ByVal e As EventArgs)EnsureChildControls()AddBlog()End SubProtected Sub AddBlog()Dim NewBlogDR As DataRowNewBlogDR = BlogDS Tables( ) NewRow()NewBlogDR( date ) = FormatDate(DateTime Today)NewBlogDR( title ) = TitleTB TextNewBlogDR( text ) = BlogText TextNewBlogDR( anchorID ) = Guid NewGuid() ToString()NewBlogDR( email ) = _emailBlogDS Tables( ) Rows InsertAt(NewBlogDR )BlogDS WriteXml(Page Server MapPath( Blog xml ))Page Response Redirect(_addRedirect)End SubProtected Function FormatDate(ByVal dt As DateTime) As StringDim retString As StringretString = String Format( :D dt Month)retString &= String Format( :D dt Day)retString &= String Format( :D dt Year)Return retStringEnd FunctionPublic Sub CreateBlankFile()Dim NewXml As StreamWriter = _File CreateText(Page Server MapPath( Blog xml ))NewXml WriteLine( ＜blogs＞ )NewXml WriteLine _( ＜! blog field describes a single blog ＞ )NewXml WriteLine( ＜blog＞ )NewXml WriteLine( ＜! date field contains & _ the creation date of the blog ＞ )NewXml WriteLine( ＜date＞ & _FormatDate(DateTime Today) & ＜/date＞ )NewXml WriteLine _( ＜title＞Temporary Blog＜/title＞ )NewXml WriteLine( ＜! text field & _ should contain the blog text including any & _ desired HTML tags ＞ )NewXml WriteLine( ＜text＞This entry & _ indicates that the file blog xml was not & _ found A default version of this file has & _ been created for you You can modify the & _ fields in this file as desired If you set & _ the Blog control to add mode (add the & _ attribute mode= add to the control s & _ declaration) the control will & _ automatically populate the XML file when & _ you submit the form ＜/text＞ )NewXml WriteLine( ＜! anchorID field & _ will be autopopulated by the control ＞ )NewXml WriteLine( ＜anchorID＞＜/anchorID＞ )NewXml WriteLine( ＜! email field should & _ contain the email address for feedback ＞ )NewXml WriteLine( ＜email＞change this to a & _ valid email address＜/email＞ )NewXml WriteLine( ＜/blog＞ )NewXml WriteLine( ＜/blogs＞ )NewXml Close()End SubEnd ClassPublic Class BlogDesignerInherits ControlDesignerPublic Overrides Function GetDesignTimeHtml() As StringReturn ＜h ＞Blog＜/h ＞＜hr/＞＜hr/＞ End FunctionEnd Class

　　列表 Blog xsd

相关参考

知识大全 Asp.net控件开发----控件开发基础

Asp.net控件开发----控件开发基础  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　服务器

知识大全 Asp.net 2.0 为用户控件添加event

Asp.net2.0为用户控件添加event  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！使用us

知识大全 为ASP.NET 2.0菜单控件增加target属性

为ASP.NET2.0菜单控件增加target属性  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　

知识大全 ASP.NET 2.0高级控件之FileUpload控件

ASP.NET2.0高级控件之FileUpload控件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧

知识大全 ASP.NET控件开发基础之复合控件事件处理浅析

ASP.NET控件开发基础之复合控件事件处理浅析  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　

知识大全 分析ASP.NET服务器控件开发-控件生命周期

分析ASP.NET服务器控件开发-控件生命周期  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！&nb

知识大全 ASP.NET服务器控件语法

ASP.NET开发宝典：ASP.NET服务器控件语法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

知识大全 ASP.NET入门教程 7.2 ASP.NET 2.0的数据控件

ASP.NET入门教程7.2ASP.NET2.0的数据控件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一

知识大全 浅谈ASP.NET报表控件

浅谈ASP.NET报表控件  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　项目中有报表图形化的需

知识大全 ASP.NET 2.0服务器控件之验证控件示例

ASP.NET2.0服务器控件之验证控件示例  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　在上