为 ASP.NET 控件添加设计时支持

| | |


| | | |

为 ASP.NET 控件添加设计时支持

G. Andrew Duthie
Graymad Enterprises, Inc

2003 年 10 月

适用于:
Microsoft® ASP.NET
Microsoft Visual Studio® .NET
Microsoft .NET Framework

摘要: 学习如何构建利用 Microsoft Visual Studio .NET 设计时支持的控件,这种支持使控件能够像 Microsoft ASP.NET 中的内置控件一样易于使用。

下载 DesignTimeSupportSample.msi 。(请注意,在示例文件中,程序员的注释使用的是英文,本文中将其译为中文是为了便于读者理解。)

本文是由《ASP.NET in a Nutshell》第二版(ISBN:0596001169)改编而成,其作者包括 G. Andrew Duthie 和 Matthew MacDonald,由 O'Reilly & Associates, Inc. 于 2003 年出版。

目录

简介
设计时支持的类型
Blog 控件示例
添加设计时支持
小结
代码列表

简介

Microsoft® ASP.NET 为开发人员提供了一种适用于 Web 开发的、功能最为强大的新工具:服务器控件。服务器控件使开发人员能够在短时间内开发出响应速度快而且功能强大的 Web 应用程序,所需的时间与在典型的 ASP 中创建类似应用程序的时间差不多。

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 控件”,如本文末尾的 列表 1 所示。该控件提供利用 XML 作为存储介质的简单 Web 日志功能。Web 日志通常称为 Blog,它实际上是一个 Web 页面,供人们在上面张贴有关日常生活、世态百象、时事政治或人们所关心的其他问题的定期观察报告或评论。Blog 条目是通过 Web 浏览器添加的。

Blog 控件非常简单明了,它利用控件组合向浏览器提供输出。在组合控件中, CreateChildControls 方法(由 ASP.NET 运行时自动调用)会被重写,利用此方法,我们可以创建构成自定义控件 UI 的控件,并将它们添加到控件的“控件”集合中。此外,该控件还包含用于显示和添加 Blog 以及当 XML Blog 存储文件不存在时创建一个这样的文件的逻辑。该控件的几个公共属性需要开发人员在设计时进行设置,其中包括在添加新 Blog 时该控件将重定向到的页面的 URL、与新 Blog 关联的电子邮件地址、控件模式(显示或添加)以及各 Blog 条目之间的分隔线的颜色。图 1 所示为正在运行的 Blog 控件。Add Blog(添加 Blog)超链接由 ASP.NET 超链接控件提供,独立于 Blog 控件。BlogClient.aspx 的代码如 列表 2 所示。BlogClient.aspx 的 codebehind 类如 列表 3 所示,它提供单击 Add Blog(添加 Blog)链接时更改 Blog 模式的逻辑。

图 1:运行时的 Blog 控件

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

图 2:设计时的 Blog 控件

添加设计时支持

虽然在 Web 窗体页上使用 Blog 控件非常简单,但并不是很直观。例如,如果没有相关文档,使用 Blog 控件的人就无法知道 Mode 属性的有效值只能是 DisplayAdd 。如果未将 Add 模式的相关信息明确地告诉使用该控件的开发人员,他们就很难自己发现并使用这种模式。

对于使用 Visual Studio .NET(或支持 IntelliSense 的其他 IDE)的开发人员而言,可以通过为控件添加设计时支持来解决这一问题。这可以通过综合利用本文前面所介绍的方法来实现。在为自定义服务器控件提供设计时支持所面临的挑战中,部分原因来自于在自定义控件中全面支持设计时功能所需的方法的多样性。最简单的、不需要任何附加编码的是内含代码的类中的 IntelliSense 语句完成方法,如图 3 所示,此方法适用于 BlogClient.aspx.vb。

图 3:内含代码的类中的 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 属性,应在属性进程之前添加以下特性,如以下代码片段所示:

  1<browsable(true), "="" "应重定向到的="" "页面的="" &="" _="" blog="" category("行为"),="" description("成功提交新的="" editor("system.web.ui.design.urleditor",="" gettype(uitypeeditor))="" url。"),="" 条目后,=""> _
  2    Public Property AddRedirect() As String
  3       '属性进程代码
  4    End Property
  5        
  6
  7这些特性声明允许在属性浏览器中显示属性、为属性设置所需的类别(当属性按类别排序时)、提供属性说明并告诉 Visual Studio .NET 使用 UrlEditor 类编辑属性的值,如图 4 所示。 
  8
  9![](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111113.gif)
 10
 11**图 4:设计视图中的属性支持**
 12
 13此处所述的特性语法适用于 Visual Basic .NET。在 Visual Basic .NET 中,特性通过以下语法进行声明: 
 14    
 15    
 16    <attributename(attributeparams)>
 17        
 18
 19在 C# 中,特性采用如下形式: 
 20    
 21    
 22    [AttributeName(AttributeParams)]
 23        
 24
 25Visual Basic .NET 要求特性声明与其修改的成员位于同一行中,因此通常最好在特性后面跟一个 Visual Basic 行接续字符以提高可读性: 
 26    
 27    
 28    <attributename(attributeparams)> _
 29    Public Membername()
 30        
 31
 32在 C# 和 Visual Basic 中,您可以在一对 [ ] 或 &lt;&gt; 括号中声明多个特性,特性之间用逗号分隔。而在 Visual Basic .NET 中,如果它们出现在不同的行中,则必须使用 Visual Basic 行接续符衔接特性,使其位于同一个语句中。 
 33
 34###  添加工具箱支持 
 35
 36除了设置属性级别的特性外,还可设置某些类和程序集级别的特性。例如,您可以使用程序集级别的特性 **TagPrefix** 来指定标记前缀,供程序集中包含的任何控件使用。之后,当您从 Visual Studio 工具箱中向某个 Web 窗体页上添加该控件的实例时,Visual Studio .NET 将自动插入这个标记前缀。以下代码片段显示了 TagPrefix 特性的语法。该特性应放置在定义该控件的类模块内,但应在类和命名空间声明之外(请注意,在 Visual Basic .NET 项目中,命名空间是在项目级别定义的,因此您不用担心如何将程序集特性放置到命名空间声明之外)。在以下特性中,TagPrefix 特性的第一个参数是控件的命名空间,第二个参数是您希望为标记前缀使用的文本。 
 37    
 38    
 39    <assembly: "blogcontrol")="" tagprefix("blogcontrol",="">
 40        
 41
 42要将控件集成到 Visual Studio .NET 环境中,应将 **ToolBoxData** 特性(该特性用于告诉 Visual Studio .NET 从工具箱中为控件插入的首选标记名)添加到实现该控件的类中: 
 43    
 44    
 45    <toolboxdata("<{0}:blog_dt runat="server"><!--{0}:Blog_DT-->")&gt; _
 46    Public Class Blog_DT
 47       Inherits Panel
 48       Implements INamingContainer
 49       '控件实现
 50    End Class
 51        
 52
 53将控件从工具箱中插入到页面上时,由 TagPrefix 特性指定的标记前缀将插入 ` {0}  ` 占位符,而其他文本将按原样插入。 
 54
 55您还可以为控件提供自己的自定义图标,以显示在工具箱中。为此,需要创建一个 16 x 16 像素大小的位图(左下方的像素采用透明色),其名称与包含该控件的类相同(即 classname.bmp)。使用 **Add Existing Item** (添加现有项)命令将该位图添加到项目中,然后使用属性浏览器将其 Build Action(创建操作)设置为 Embedded Resource(内置资源),如图 5 所示。 
 56
 57![](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111115.gif)
 58
 59**图 5:设置 Build Action(创建操作)**
 60
 61编译完成后,该控件将支持从工具箱中将控件添加到某个页面中时为 Blog 控件自动插入 **@Register** 指令、标记前缀和标记名,并在工具箱中显示自定义图标,如图 6 所示。要将控件添加到 Visual Studio .NET 工具箱中,应完成以下简单步骤: 
 62
 63  1. 在设计视图中,选择 Visual Studio .NET 工具箱的 Web forms(Web 窗体)选项卡。 
 64  2. 在该选项卡上的任意位置单击鼠标右键,然后选择 **Add/Remove Items** (添加项目/删除项目)(Visual Studio .NET 2002 中为 **Customize Toolbox** [自定义工具箱])。 
 65  3. 选择 .NET Framework Components(.NET Framework 组件)选项卡,然后单击 **Browse** (浏览)。 
 66  4. 浏览到编译后的控件程序集所在的位置,选中它并单击 **Open** (打开)。 
 67  5. 单击 **OK** (确定)。 
 68
 69
 70
 71![](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111117.gif)
 72
 73**图 6:工具箱中的自定义控件**
 74
 75将控件添加到工具箱中后,可以通过双击该控件或将其从工具箱中拖放到 Web 窗体页上,将其添加到 Web 窗体页中。无论何种情况,Visual Studio .NET 都会自动插入正确的 @Register 指令(包括基于程序集级别的特性设置 TagPrefix),还将使用 **ToolBoxData** 属性中指定的标记名为该控件生成一组标记。 
 76
 77###  添加设计器 
 78
 79正如前文所述,Blog 控件在 Web 窗体编辑器的设计视图中没有任何可视界面。这使得选择页面上的控件很困难,更难以理解控件在运行时的外观。为了解决这个问题,我们可以添加设计器支持,使设计时的 HTML 在外观上接近于运行时的 Blog 控件。请注意,您还可以生成可以完整再现控件运行时输出的设计器,但此操作相当复杂,而且超出了本文的讨论范围。 
 80
 81所有服务器控件设计器都是从类 **System.Web.UI.Design.ControlDesigner** 派生而来,该类提供了大量方法,您可以重写这些方法为您的控件提供设计时渲染。以下代码简单重写了 **GetDesignTimeHtml** 方法,返回设计时显示的简单 HTML。请注意,该示例显示了 Blog 控件的整个设计器类,您可以简单地将其添加到现有的 Blog_DT.vb 类文件中。 
 82    
 83    
 84    Public Class BlogDesigner
 85       Inherits ControlDesigner
 86    
 87       Public Overrides Function GetDesignTimeHtml() As String
 88          Return "<h1>Blog</h1><hr/><hr/>"
 89       End Function
 90    
 91    End Class
 92        
 93
 94要将该设计器绑定到 Blog_DT 类中,我们使用了 **Designer** 特性,如以下片段所示。请注意,此段代码还添加了一个描述控件功能的 **Description** 特性。 
 95    
 96    
 97    <description("简单 "="" "web="" &="" _="" blog="" designer("blogcontrol.blogdesigner"),="" runat="server" toolboxdata("<{0}:blog_dt="" xml="" 控件。支持显示="" 文件的新条目。"),="" 日志="" 来自=""><!--{0}:Blog_DT-->")&gt; _
 98    Public Class Blog_DT
 99       Inherits Panel
100       Implements INamingContainer
101        
102
103如您所见,BlogDesigner 类非常简单,但它为控件在 Web 窗体页上的设计时外观添加了大量内容,如图 7 所示。 
104
105![](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111119.gif)
106
107**图 7:添加设计时渲染**
108
109列表 4 显示了 Blog 控件的代码,它已经使用特性进行了更新,以启用设计视图和属性浏览器中的控件设计时支持。请注意,该示例添加了多条 using 指令,以导入支持我们使用的特性和设计器类所需要的命名空间。这个新列表还添加了一个用于 Mode 属性值的枚举。 
110
111###  HTML 视图支持:自定义架构和 Visual Studio 注释 
112
113尽管前文所述的特性帮助我们为 Blog 控件提供了设计时支持,但这里遗漏了一个重要的问题:在 Web 窗体编辑器的 HTML 视图中添加标记和特性的 IntelliSense 支持。对于那些认为在 HTML 环境中工作比在“所见即所得”风格的环境中工作更舒适的开发人员来说,这是一个极大的疏忽。 
114
115因为 Web 窗体编辑器的 HTML 视图使用 XSD 架构决定在 Web 窗体页上提供哪些元素和特性,所以为了纠正这一问题,我们需要提供一个描述 Blog 控件及其所支持的特性的 XSD 架构。也可以在该架构中添加注释,告诉 Visual Studio .NET 各种元素的有关信息以及我们所希望的元素行为。 
116
117列表 5 包含 Blog 控件特定的 XSD 架构的部分内容。实际的架构文件(可从本文的示例代码中获得)还包含面板控件(Blog_DT 控件就是由它派生的)的类型定义以及其他必需的特性和类型定义。这些定义是从为内置 ASP.NET 服务器控件创建的 asp.xsd 架构文件中复制的。 
118
119请注意,任何时候都不应直接修改 asp.xsd 架构文件,而只应将必需的类型和特性定义复制到您的自定义架构文件中。尽管这看起来是多余的,但如果直接编辑 asp.xsd,以后安装 .NET Framework 或服务包时该文件将被覆盖,您的自定义输入项将因此而丢失。 
120
121在 列表 5 中,请注意根架构元素上的 **targetNamespace** 和 **xmlns** 特性,这两个特性用于为控件的架构定义 XML 命名空间。targetNamespace 和 xmlns 特性的值还将用于 Web 窗体页中的特性,以“绑定”该架构。<xsd:element> 标记定义根 Blog_DT 元素。<xsd:complextype> 标记定义 Blog_DT 元素的特性,包括 <xsd:attributegroup> 标记引用的 Web 控件特性。最后,<xsd:simpletype> 标记定义 BlogMode 类型的枚举,该类型被用作 Blog_DT 元素的一个特性。 
122
123请注意, 列表 5 使用 **vs:builder** 注释来告诉 Visual Studio .NET 对 **AddRedirect** 特性使用 URL 生成器,而对 **SeparatorColor** 特性使用颜色生成器。vs:builder 注释是可用于修改架构的注释之一。表 1 列出了最常用的注释。 
124
125**表 1:常用的 Visual Studio .NET 注释**
126
127|  注释  |  用途  |  有效值   
128---|---|---  
129vs:absolutepositioning  |  在根 <schema> 元素上使用,用于确定 Visual Studio 是否可以插入用于定位的样式特性。  |  true 或 false   
130vs:blockformatted  |  表明是否可以在自动格式化期间为元素添加前导空格。  |  true 或 false   
131vs:builder  |  指定用于编辑相关属性值的生成器。  |  颜色、样式或 URL   
132vs:deprecated  |  允许将某个相关属性标记为“已否决”,以防止其在属性浏览器和语句完成中出现。  |  true 或 false   
133vs:empty  |  在元素级别使用,用于指示 Visual Studio .NET 应对相关标记(无结束标记)使用一个标记语法。  |  true 或 false   
134vs:friendlyname  |  在根级别使用,用于为架构提供显示名。  |   
135vs:iscasesensitive  |  在根级别使用,说明 Visual Studio .NET 是否以区分大小写的方式处理相关标记。  |  true 或 false   
136vs:ishtmlschema  |  在根级别使用,说明架构是否是一个 HTML 文档架构。  |  true 或 false   
137vs:nonbrowseable  |  在特性级别使用,说明该特性不应出现在语句完成中。  |  true 或 false   
138vs:readonly  |  在特性级别使用,说明不能在属性窗口中修改该特性。  |  true 或 false   
139vs:requireattributequotes  |  在根级别使用,说明特性值必须用引号括起。  |  true 或 false   
140  
141创建自己的 XSD 架构后,可以将其与 asp.xsd 文件保存到同一位置(在 Visual Studio .NET 2003 中,默认为 C:\Program Files\Microsoft Visual Studio .NET 2003\Common7\Packages\schemas\xml\)。 
142
143要允许 Visual Studio .NET 读取您的自定义架构,需要将一个 **xmlns** 特性添加到要使用该架构的页面的 <body> 标记中,如以下代码片段所示: 
144    
145    
146    <body xmlns:blogcontrol="urn:http://www.aspnetian.com/schemas">
147        
148
149请注意,此段代码使用具有 **xmlns** 特性的 **BlogControl** 前缀来说明该架构适用于带有 BlogControl 标记前缀的控件,这个可以再次调用的前缀是使用 **TagPrefix** 特性进行设置的(有关该特性的说明,请参见上文中的“元数据特性”一节)。xmlns 特性的值应与架构根元素中定义的 **targetNamespace** 特性的值相同。 
150
151通过 xmlns 特性绑定架构之后,即可键入一个开放的“&lt;”字符,并使 Blog 控件显示为语句完成的一个选项,如图 8 所示。此时,还应获取已定义属性的语句完成,包括 **Mode** 属性的有效值,以及由 XSD 文件中的注释指定的生成器。 
152
153![](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111121.gif)
154
155**图 8:HTML 视图中的语句完成**
156
157小结 
158
159本文介绍了 Visual Studio .NET 中适用于 ASP.NET 服务器控件的设计时支持,还说明了开发人员如何在自己的自定义控件中利用这一支持功能。虽然在控件中添加设计时支持相对简明,但要充分利用这些功能却需要掌握多种不同的技巧。特别欠缺的知识领域就是如何将自定义 XSD 架构绑定到页面上。在撰写本文时,还不具备将页面与控件 XSD 架构连接起来所需的 **xmlns** 特性的内置支持。所以,还需要手动添加这个特性。希望以后的 Visual Studio .NET 版本能够自动完成这一过程。 
160
161本文中的示例代码包含一个适用于 Blog 控件基础版和设计时支持版的 Visual Studio .NET 项目,还包含一个说明如何使用每个控件的客户端项目。要运行 BlogControlClient 项目,您需要在 IIS 中创建一个虚拟目录 BlogControlClient,然后将其映射到硬盘驱动器上用于保存 BlogControlClient 项目文件夹的位置。 
162
163真诚地感谢 Microsoft Visual Studio .NET 团队的 Rob Caron,他在我编写自定义 XSD 架构的创建和绑定过程中给予了极大的帮助。 
164
165**作者介绍**
166
167G. Andrew Duthie 是 Graymad Enterprises, Inc. (英文)的创始人和负责人,该公司提供 Microsoft Web 开发技术的培训和咨询服务。自从 Active Server Pages 问世以来,Andrew 一直从事多层 Web 应用程序的开发工作。他编写了大量有关 ASP.NET 的著作,其中包括:《Microsoft ASP.NET Step By Step》、《Microsoft ASP.NET Programming with Microsoft Visual Basic》和《ASP.NET in a Nutshell》。Andrew 经常在一些重大活动中发表演讲,这些活动包括“Software Development”、“Dev-Connections family of conferences”、“Microsoft Developer Days”以及“VSLive!”。他还作为 International .NET Association (INETA) (英文)Speaker's Bureau 成员在 .NET 用户组上发表了演讲。您可以从其公司的 Web 站点 Graymad Enterprises, Inc. (英文)上了解到有关 Andrew 的更多信息。 
168
169本文是根据《ASP.NET in a Nutshell》第二版(ISBN:0596001169)改编而成,其作者包括 G. Andrew Duthie 和 Matthew MacDonald,由 O'Reilly &amp; Associates, Inc. 于 2003 年出版。 
170
171代码列表 
172
173###  列表 1:Blog.vb 
174    
175    
176    'supports Color structure
177    Imports System.Drawing
178    '支持 StreamWriter 类型
179    Imports System.IO
180    Imports System.Web.UI
181    '支持使用 HTML 控件
182    Imports System.Web.UI.HtmlControls
183    '支持使用 Web 控件
184    Imports System.Web.UI.WebControls
185    
186    Public Class Blog
187       Inherits Panel
188       Implements INamingContainer
189    
190       Protected BlogDS As DataSet
191       Protected TitleTB As TextBox
192       Protected BlogText As TextBox
193    
194       Private _addRedirect As String
195       Private _email As String
196       Private _mode As String
197       Private _separatorColor As Color = Color.Black
198    
199       Public Property AddRedirect() As String
200          Get
201             Return Me._addRedirect
202          End Get
203          Set(ByVal Value As String)
204             Me._addRedirect = Value
205          End Set
206       End Property
207    
208       Public Property Email() As String
209          Get
210             Return Me._email
211          End Get
212          Set(ByVal Value As String)
213             Me._email = Value
214          End Set
215       End Property
216    
217       Public Property Mode() As String
218          Get
219             Return Me._mode
220          End Get
221          Set(ByVal Value As String)
222             Me._mode = Value
223          End Set
224       End Property
225    
226       Public Property SeparatorColor() As Color
227          Get
228             Return Me._separatorColor
229          End Get
230          Set(ByVal Value As Color)
231             Me._separatorColor = Value
232          End Set
233       End Property
234    
235       Protected Overrides Sub OnInit(ByVal e As EventArgs)
236          LoadData()
237          MyBase.OnInit(e)
238       End Sub
239    
240       Protected Overrides Sub CreateChildControls()
241          If Not Me._mode = "Add" Then
242             DisplayBlogs()
243          Else
244             NewBlog()
245          End If
246       End Sub
247    
248       Protected Sub LoadData()
249          BlogDS = New DataSet()
250    
251          Try
252             BlogDS.ReadXml(Page.Server.MapPath("Blog.xml"))
253          Catch fnfEx As FileNotFoundException
254             CreateBlankFile()
255             LoadData()
256          End Try
257       End Sub
258    
259       Protected Sub DisplayBlogs()
260          Dim BlogDate As DateTime
261          Dim CurrentDate As DateTime = New DateTime()
262          Dim BlogRows As DataRowCollection = _
263             BlogDS.Tables(0).Rows
264          Dim BlogDR As DataRow
265          For Each BlogDR In BlogRows
266             Dim BDate As String = BlogDR("date").ToString()
267             BlogDate = New DateTime _
268                (Convert.ToInt32(BDate.Substring(4, 4)), _
269                Convert.ToInt32(BDate.Substring(0, 2)), _
270                Convert.ToInt32(BDate.Substring(2, 2)))
271    
272             If Not CurrentDate = BlogDate Then
273                Dim TempDate As Label = New Label()
274                TempDate.Text = BlogDate.ToLongDateString()
275                TempDate.Font.Size = FontUnit.Large
276                TempDate.Font.Bold = True
277                Me.Controls.Add(TempDate)
278                Me.Controls.Add _
279                   (New LiteralControl("
280
281"))
282                CurrentDate = BlogDate
283             End If
284    
285             Dim Anchor As HtmlAnchor = New HtmlAnchor()
286             Anchor.Name = "#" &amp; BlogDR("anchorID").ToString()
287             Me.Controls.Add(Anchor)
288    
289             Dim Title As Label = New Label()
290             Title.Text = BlogDR("title").ToString()
291             Title.Font.Size = FontUnit.Larger
292             Title.Font.Bold = True
293             Me.Controls.Add(Title)
294    
295             Me.Controls.Add(New LiteralControl("<p>"))
296             Dim BlogText As LiteralControl = _
297                New LiteralControl("<div>" &amp; _
298                BlogDR("text").ToString() &amp; "</div>")
299             Me.Controls.Add(BlogText)
300             Me.Controls.Add(New LiteralControl("</p>"))
301    
302             Dim Email As HyperLink = New HyperLink()
303             Email.NavigateUrl = "mailto:" &amp; _
304                BlogDR("email").ToString()
305             Email.Text = "E-mail me"
306             Me.Controls.Add(Email)
307    
308             Me.Controls.Add(New LiteralControl(" | "))
309             Dim AnchorLink As HyperLink = New HyperLink()
310             AnchorLink.NavigateUrl = _
311                Page.Request.Url.ToString() &amp; "#" &amp; _
312                BlogDR("anchorID").ToString()
313             AnchorLink.Text = "Link"
314             Me.Controls.Add(AnchorLink)
315    
316             Me.Controls.Add(New _
317                LiteralControl("<hr color='" &amp; _
318                ColorTranslator.ToHtml(_separatorColor) &amp; _
319                "' width="100%"/>
320"))
321          Next
322       End Sub
323    
324       Protected Sub NewBlog()
325          Dim Title As Label = New Label()
326          Title.Text = "Create New Blog"
327          Title.Font.Size = FontUnit.Larger
328          Title.Font.Bold = True
329          Me.Controls.Add(Title)
330    
331          Me.Controls.Add(New LiteralControl("
332
333"))
334    
335          Dim TitleLabel As Label = New Label()
336          TitleLabel.Text = "Title: "
337          TitleLabel.Font.Bold = True
338          Me.Controls.Add(TitleLabel)
339          TitleTB = New TextBox()
340          Me.Controls.Add(TitleTB)
341    
342          Me.Controls.Add(New LiteralControl("
343"))
344    
345          Dim BlogTextLabel As Label = New Label()
346          BlogTextLabel.Text = "Text: "
347          BlogTextLabel.Font.Bold = True
348          Me.Controls.Add(BlogTextLabel)
349          BlogText = New TextBox()
350          BlogText.TextMode = TextBoxMode.MultiLine
351          BlogText.Rows = 10
352          BlogText.Columns = 40
353          Me.Controls.Add(BlogText)
354    
355          Me.Controls.Add(New LiteralControl("
356"))
357    
358          Dim Submit As Button = New Button()
359          Submit.Text = "Submit"
360          AddHandler Submit.Click, AddressOf Me.Submit_Click
361          Me.Controls.Add(Submit)
362       End Sub
363    
364       Protected Sub Submit_Click(ByVal Sender As Object, _
365          ByVal e As EventArgs)
366          EnsureChildControls()
367          AddBlog()
368       End Sub
369    
370       Protected Sub AddBlog()
371          Dim NewBlogDR As DataRow
372          NewBlogDR = BlogDS.Tables(0).NewRow()
373          NewBlogDR("date") = FormatDate(DateTime.Today)
374          NewBlogDR("title") = TitleTB.Text
375          NewBlogDR("text") = BlogText.Text
376          NewBlogDR("anchorID") = Guid.NewGuid().ToString()
377          NewBlogDR("email") = _email
378          BlogDS.Tables(0).Rows.InsertAt(NewBlogDR, 0)
379          BlogDS.WriteXml(Page.Server.MapPath("Blog.xml"))
380          Page.Response.Redirect(_addRedirect)
381       End Sub
382    
383       Protected Function FormatDate(ByVal dt As DateTime) _
384          As String
385          Dim retString As String
386          retString = String.Format("{0:D2}", dt.Month)
387          retString &amp;= String.Format("{0:D2}", dt.Day)
388          retString &amp;= String.Format("{0:D2}", dt.Year)
389          Return retString
390       End Function
391    
392       Public Sub CreateBlankFile()
393          Dim NewXml As StreamWriter = _
394             File.CreateText(Page.Server.MapPath("Blog.xml"))
395    
396          NewXml.WriteLine("<blogs>")
397          NewXml.WriteLine _
398             ("   <!-- blog field describes a single blog -->")
399          NewXml.WriteLine("   <blog>")
400          NewXml.WriteLine("      <!-- date field contains" & _
401             " the creation date of the blog -->")
402          NewXml.WriteLine("      <date>" &amp; _
403             FormatDate(DateTime.Today) &amp; "</date>")
404          NewXml.WriteLine _
405             ("      <title>Temporary Blog</title>")
406          NewXml.WriteLine("      <!-- text field " & _
407             "should contain the blog text, including any " & _
408             "desired HTML tags -->")
409          NewXml.WriteLine("      <text>This entry " &amp; _
410             "indicates that the file blog.xml was not " &amp; _
411             "found.A default version of this file has " &amp; _
412             "been created for you.You can modify the " &amp; _
413             "fields in this file as desired.If you set " &amp; _
414             "the Blog control to add mode (add the " &amp; _
415             "attribute mode='add' to the control's " &amp; _
416             "declaration), the control will " &amp; _
417             "automatically populate the XML file when " &amp; _
418             "you submit the form.</text>")
419          NewXml.WriteLine("      <!-- anchorID field " & _
420             "will be autopopulated by the control -->")
421          NewXml.WriteLine("      <anchorid></anchorid>")
422          NewXml.WriteLine("      <!-- email field should" & _
423             " contain the email address for feedback -->")
424          NewXml.WriteLine("      <email>change this to a " &amp; _
425             "valid email address</email>")
426          NewXml.WriteLine("   </blog>")
427          NewXml.WriteLine("</blogs>")
428          NewXml.Close()
429       End Sub
430    
431    End Class
432        
433
434###  列表 2:BlogClient.aspx 
435    
436    
437    ```
438@ Register TagPrefix="cc1" Namespace="BlogControl"
439       Assembly="BlogControl" 
```

@ Page Language="vb" AutoEventWireup="false" Codebehind="BlogClient.aspx.vb" Inherits="BlogControlClient.WebForm1"

  1    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0
  2       Transitional//EN">
  3
  4<html>
  5<head>
  6<title>Blog Client</title>
  7</head>
  8<body>
  9<form id="Form1" method="post" runat="server">
 10<p><asp:hyperlink id="Link1" navigateurl="BlogClient.aspx?mode=add" runat="server">Add Blog</asp:hyperlink></p>
 11<cc1:blog addredirect="BlogClient.aspx" email="[email protected]" id="Blog1" runat="server" separatorcolor="LawnGreen"></cc1:blog>
 12<p><asp:hyperlink id="Link2" navigateurl="BlogClient.aspx?mode=add" runat="server">Add Blog</asp:hyperlink></p>
 13</form>
 14</body>
 15</html>
 16        
 17
 18###  列表 3:BlogClient.aspx.vb 
 19    
 20    
 21    Imports BlogControl
 22    
 23    Public Class WebForm1
 24        Inherits System.Web.UI.Page
 25          Protected WithEvents Link1 As _
 26             System.Web.UI.WebControls.HyperLink
 27          Protected WithEvents Link2 As _
 28             System.Web.UI.WebControls.HyperLink
 29          Protected WithEvents Blog1 As BlogControl.Blog
 30    
 31       Private Sub Page_Load(ByVal sender As System.Object, _
 32          ByVal e As System.EventArgs) Handles MyBase.Load
 33          If Request.QueryString("mode") = "add" Then
 34             Blog1.Mode = "Add"
 35             Link1.Visible = False
 36             Link2.Visible = False
 37          Else
 38             Blog1.Mode = "Display"
 39             Link1.Visible = True
 40             Link2.Visible = True
 41          End If
 42       End Sub
 43    
 44    End Class
 45        
 46
 47###  列表 4:Blog_DT.vb 
 48    
 49    
 50    '支持设计时特性
 51    Imports System.ComponentModel
 52    '支持颜色结构
 53    Imports System.Drawing
 54    '支持 UITypeEditor 类型
 55    Imports System.Drawing.Design
 56    '支持 StreamWriter 类型
 57    Imports System.IO
 58    Imports System.Web.UI
 59    '支持 ControlDesigner 类型
 60    '  请注意,必须添加程序集
 61    '  System.Design 的引用,才能导入此命名空间
 62    Imports System.Web.UI.Design
 63    '支持使用 HTML 控件
 64    Imports System.Web.UI.HtmlControls
 65    '支持使用 Web 控件
 66    Imports System.Web.UI.WebControls
 67    
 68    <assembly: "blogcontrol")="" tagprefix("blogcontrol",=""> 
 69    
 70    Public Enum BlogMode
 71       Add
 72       Display
 73    End Enum
 74    
 75    <description("simple "="" "of="" &="" _="" an="" blog="" control.supports="" designer("blogcontrol.blogdesigner"),="" display="" file."),="" from="" items="" log="" news="" runat="server" toolboxdata("<{0}:blog_dt="" web="" xml=""><!--{0}:Blog_DT-->")&gt; _
 76    Public Class Blog_DT
 77       Inherits Panel
 78       Implements INamingContainer
 79    
 80       Protected BlogDS As DataSet
 81       Protected TitleTB As TextBox
 82       Protected BlogText As TextBox
 83    
 84       Private _addRedirect As String
 85       Private _email As String
 86       Private _mode As BlogMode
 87       Private _separatorColor As Color = Color.Black
 88    
 89       <browsable(true), _="" a="" after="" blog="" category("behavior"),="" description("url="" editor("system.web.ui.design.urleditor",="" entry."),="" gettype(uitypeeditor))="" new="" of="" page="" redirect="" should="" submission="" successful="" the="" to="" which=""> _
 90       Public Property AddRedirect() As String
 91          Get
 92             Return Me._addRedirect
 93          End Get
 94          Set(ByVal Value As String)
 95             Me._addRedirect = Value
 96          End Set
 97       End Property
 98    
 99       <browsable(true), _="" address="" blog="" category("behavior"),="" control="" description("email="" entries.")="" for="" in="" listing="" new="" the="" use="" will=""> _
100       Public Property Email() As String
101          Get
102             Return Me._email
103          End Get
104          Set(ByVal Value As String)
105             Me._email = Value
106          End Set
107       End Property
108    
109       <browsable(true), _="" a="" are="" blog="" blogs="" category("behavior"),="" creating="" description("controls="" displayed,="" entry.")="" existing="" fields="" for="" new="" or="" whether=""> _
110       Public Property Mode() As BlogMode
111          Get
112             Return Me._mode
113          End Get
114          Set(ByVal Value As BlogMode)
115             Me._mode = Value
116          End Set
117       End Property
118    
119       <browsable(true), _="" blog="" category("appearance"),="" color="" description("controls="" display="" entries="" in="" line="" mode.")="" of="" separates="" that="" the="" when=""> _
120       Public Property SeparatorColor() As Color
121          Get
122             Return Me._separatorColor
123          End Get
124          Set(ByVal Value As Color)
125             Me._separatorColor = Value
126          End Set
127       End Property
128    
129       Protected Overrides Sub OnInit(ByVal e As EventArgs)
130          LoadData()
131          MyBase.OnInit(e)
132       End Sub
133    
134       Protected Overrides Sub CreateChildControls()
135          If Not Me._mode = BlogMode.Add Then
136             DisplayBlogs()
137          Else
138             NewBlog()
139          End If
140       End Sub
141    
142       Protected Sub LoadData()
143          BlogDS = New DataSet()
144    
145          Try
146             BlogDS.ReadXml(Page.Server.MapPath("Blog.xml"))
147          Catch fnfEx As FileNotFoundException
148             CreateBlankFile()
149             LoadData()
150          End Try
151       End Sub
152    
153       Protected Sub DisplayBlogs()
154          Dim BlogDate As DateTime
155          Dim CurrentDate As DateTime = New DateTime()
156    
157          Dim BlogRows As DataRowCollection = _
158             BlogDS.Tables(0).Rows
159          Dim BlogDR As DataRow
160          For Each BlogDR In BlogRows
161             Dim BDate As String = BlogDR("date").ToString()
162             BlogDate = New DateTime _
163                (Convert.ToInt32(BDate.Substring(4, 4)), _
164                Convert.ToInt32(BDate.Substring(0, 2)), _
165                Convert.ToInt32(BDate.Substring(2, 2)))
166    
167             If Not CurrentDate = BlogDate Then
168                Dim TempDate As Label = New Label()
169                TempDate.Text = BlogDate.ToLongDateString()
170                TempDate.Font.Size = FontUnit.Large
171                TempDate.Font.Bold = True
172                Me.Controls.Add(TempDate)
173                Me.Controls.Add _
174                   (New LiteralControl("
175
176"))
177                CurrentDate = BlogDate
178             End If
179    
180             Dim Anchor As HtmlAnchor = New HtmlAnchor()
181             Anchor.Name = "#" + BlogDR("anchorID").ToString()
182             Me.Controls.Add(Anchor)
183    
184             Dim Title As Label = New Label()
185             Title.Text = BlogDR("title").ToString()
186             Title.Font.Size = FontUnit.Larger
187             Title.Font.Bold = True
188             Me.Controls.Add(Title)
189    
190             Me.Controls.Add(New LiteralControl("<p>"))
191             Dim BlogText As LiteralControl = _
192                New LiteralControl("<div>" &amp; _
193                BlogDR("text").ToString() &amp; "</div>")
194             Me.Controls.Add(BlogText)
195             Me.Controls.Add(New LiteralControl("</p>"))
196    
197             Dim Email As HyperLink = New HyperLink()
198             Email.NavigateUrl = "mailto:" &amp; _
199                BlogDR("email").ToString()
200             Email.Text = "E-mail me"
201             Me.Controls.Add(Email)
202    
203             Me.Controls.Add(New LiteralControl(" | "))
204             Dim AnchorLink As HyperLink = New HyperLink()
205             AnchorLink.NavigateUrl = _
206                Page.Request.Url.ToString() &amp; "#" &amp; _
207                BlogDR("anchorID").ToString()
208             AnchorLink.Text = "Link"
209             Me.Controls.Add(AnchorLink)
210    
211             Me.Controls.Add _
212                (New LiteralControl("<hr color='" &amp; _
213                ColorTranslator.ToHtml(_separatorColor) &amp; _
214                "' width="100%"/>
215"))
216          Next
217       End Sub
218    
219       Protected Sub NewBlog()
220          Dim Title As Label = New Label()
221          Title.Text = "Create New Blog"
222          Title.Font.Size = FontUnit.Larger
223          Title.Font.Bold = True
224          Me.Controls.Add(Title)
225    
226          Me.Controls.Add(New LiteralControl("
227
228"))
229    
230          Dim TitleLabel As Label = New Label()
231          TitleLabel.Text = "Title: "
232          TitleLabel.Font.Bold = True
233          Me.Controls.Add(TitleLabel)
234          TitleTB = New TextBox()
235          Me.Controls.Add(TitleTB)
236    
237          Me.Controls.Add(New LiteralControl("
238"))
239    
240          Dim BlogTextLabel As Label = New Label()
241          BlogTextLabel.Text = "Text: "
242          BlogTextLabel.Font.Bold = True
243          Me.Controls.Add(BlogTextLabel)
244          BlogText = New TextBox()
245          BlogText.TextMode = TextBoxMode.MultiLine
246          BlogText.Rows = 10
247          BlogText.Columns = 40
248          Me.Controls.Add(BlogText)
249    
250          Me.Controls.Add(New LiteralControl("
251"))
252    
253          Dim Submit As Button = New Button()
254          Submit.Text = "Submit"
255          AddHandler Submit.Click, AddressOf Me.Submit_Click
256          Me.Controls.Add(Submit)
257       End Sub
258    
259       Protected Sub Submit_Click(ByVal Sender As Object, _
260          ByVal e As EventArgs)
261          EnsureChildControls()
262          AddBlog()
263       End Sub
264    
265       Protected Sub AddBlog()
266          Dim NewBlogDR As DataRow
267          NewBlogDR = BlogDS.Tables(0).NewRow()
268          NewBlogDR("date") = FormatDate(DateTime.Today)
269          NewBlogDR("title") = TitleTB.Text
270          NewBlogDR("text") = BlogText.Text
271          NewBlogDR("anchorID") = Guid.NewGuid().ToString()
272          NewBlogDR("email") = _email
273          BlogDS.Tables(0).Rows.InsertAt(NewBlogDR, 0)
274          BlogDS.WriteXml(Page.Server.MapPath("Blog.xml"))
275          Page.Response.Redirect(_addRedirect)
276       End Sub
277    
278       Protected Function FormatDate(ByVal dt As DateTime) As String
279          Dim retString As String
280          retString = String.Format("{0:D2}", dt.Month)
281          retString &amp;= String.Format("{0:D2}", dt.Day)
282          retString &amp;= String.Format("{0:D2}", dt.Year)
283          Return retString
284       End Function
285    
286       Public Sub CreateBlankFile()
287          Dim NewXml As StreamWriter = _
288             File.CreateText(Page.Server.MapPath("Blog.xml"))
289    
290          NewXml.WriteLine("<blogs>")
291          NewXml.WriteLine _
292             ("   <!-- blog field describes a single blog -->")
293          NewXml.WriteLine("   <blog>")
294          NewXml.WriteLine("      <!-- date field contains" & _
295             " the creation date of the blog -->")
296          NewXml.WriteLine("      <date>" &amp; _
297             FormatDate(DateTime.Today) &amp; "</date>")
298          NewXml.WriteLine _
299             ("      <title>Temporary Blog</title>")
300          NewXml.WriteLine("      <!-- text field " & _
301             "should contain the blog text, including any " & _
302             "desired HTML tags -->")
303          NewXml.WriteLine("      <text>This entry " &amp; _
304             "indicates that the file blog.xml was not " &amp; _
305             "found.A default version of this file has " &amp; _
306             "been created for you.You can modify the " &amp; _
307             "fields in this file as desired.If you set " &amp; _
308             "the Blog control to add mode (add the " &amp; _
309             "attribute mode='add' to the control's " &amp; _
310             "declaration), the control will " &amp; _
311             "automatically populate the XML file when " &amp; _
312             "you submit the form.</text>")
313          NewXml.WriteLine("      <!-- anchorID field " & _
314             "will be autopopulated by the control -->")
315          NewXml.WriteLine("      <anchorid></anchorid>")
316          NewXml.WriteLine("      <!-- email field should" & _
317             " contain the email address for feedback -->")
318          NewXml.WriteLine("      <email>change this to a " &amp; _
319             "valid email address</email>")
320          NewXml.WriteLine("   </blog>")
321          NewXml.WriteLine("</blogs>")
322          NewXml.Close()
323       End Sub
324    
325    End Class
326    
327    Public Class BlogDesigner
328       Inherits ControlDesigner
329    
330       Public Overrides Function GetDesignTimeHtml() As String
331          Return "<h1>Blog</h1><hr/><hr/>"
332       End Function
333    
334    End Class
335        
336
337###  列表 5:Blog.xsd 
338    
339    
340    <?xml version="1.0" encoding="utf-8" ?>
341<xsd:schema elementformdefault="qualified" targetnamespace="urn:http://www.aspnetian.com/schemas" vs:friendlyname="Blog Control Schema" vs:iscasesensitive="false" vs:ishtmlschema="false" vs:requireattributequotes="true" xmlns="urn:http://www.aspnetian.com/schemas" xmlns:vs="http://schemas.microsoft.com/Visual-Studio-Intellisense" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
342<xsd:annotation>
343<xsd:documentation>
344             Blog Control schema.
345          </xsd:documentation>
346</xsd:annotation>
347<xsd:element name="Blog_DT" type="BlogDef"></xsd:element>
348<!-- <aspnetian:Blog> -->
349<xsd:complextype name="BlogDef">
350<!-- <aspnetian:Blog>-specific attributes -->
351<xsd:attribute name="AddRedirect" type="xsd:string" vs:builder="url"></xsd:attribute>
352<xsd:attribute name="Email" type="xsd:string"></xsd:attribute>
353<xsd:attribute name="Mode" type="BlogMode"></xsd:attribute>
354<xsd:attribute name="SeparatorColor" type="xsd:string" vs:builder="color"></xsd:attribute>
355<!-- <asp:Panel>-specific attributes -->
356<xsd:attribute name="BackImageUrl" type="xsd:anyURI"></xsd:attribute>
357<xsd:attribute name="HorizontalAlign" type="HorizontalAlign"></xsd:attribute>
358<xsd:attribute name="Wrap" type="xsd:boolean"></xsd:attribute>
359<xsd:attribute name="Enabled" type="xsd:boolean"></xsd:attribute>
360<xsd:attribute name="BorderWidth" type="ui4"></xsd:attribute>
361<xsd:attribute name="BorderColor" type="xsd:string" vs:builder="color"></xsd:attribute>
362<xsd:attribute name="BorderStyle" type="BorderStyle"></xsd:attribute>
363<xsd:attributegroup ref="WebControlAttributes"></xsd:attributegroup>
364</xsd:complextype>
365<!-- DataTypes -->
366<xsd:simpletype name="BlogMode">
367<xsd:restriction base="xsd:string">
368<xsd:enumeration value="Add"></xsd:enumeration>
369<xsd:enumeration value="Display"></xsd:enumeration>
370</xsd:restriction>
371</xsd:simpletype>
372</xsd:schema>
373        
374
375本文是根据《ASP.NET in a Nutshell》第二版(ISBN:0596001169)改编而成,其作者包括 G. Andrew Duthie 和 Matthew MacDonald,由 O'Reilly &amp; Associates, Inc. 于 2003 年出版。 
376
377  
378  
379
380
381![回到顶部](http://dev.csdn.net/Develop/ArticleImages/22/22932/CSDN_Dev_Image_2003-12-2612111123.gif)
382
383|   
384|   
385---|---</browsable(true),></browsable(true),></browsable(true),></browsable(true),></description("simple></assembly:></body></body></schema></xsd:simpletype></xsd:attributegroup></xsd:complextype></xsd:element></description("简单></toolboxdata("<{0}:blog_dt></assembly:></attributename(attributeparams)></attributename(attributeparams)></browsable(true),>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus