Visual Basic创建“五星”级控件

设计继承

　　只有将类设计为可从其中继承时继承才起作用。因此，或许它有点像强语句。继承将始终起作用（只要您从中继承的类没有标记为 NotInheritable），但是只有在基类设计过程中考虑到将来的继承，它才有可能在以后为其他开发人员添加所需功能提供便利。要设计易于从中继承的类，第一个步骤是确定其他开发人员将如何对其进行扩展。虽然您不能预测其他开发人员有可能做的一切事情，但是，您肯定可以推测他们可能进行哪些最明显的修改。记住这一点，您现在可以查看用于组织问题、辅助功能以及易用性的代码。

　　注意：您是否将代码分成各种功能以最好地封装多个域（其中有人要对该类进行扩展），或者，其他开发人员是否只为了添加一些新功能，而必须重写许多不相关的代码。而且要注意，您是否已经适当地设置了有关变量和例程的访问修饰符 (Public、Private、Protected)。记住您的目标是尽可能使用户的体验完美无缺。 虽然在将类设计为参与继承时还需要注意其他一些事项，但是在查看这个特殊示例时已经考虑到这些问题。让我们有条不紊地来处理这些问题。我将讨论已经对“base”类（等级）所做的更改，以使其易于扩展。

　　代码组织

　　为了最有效地组织代码（尽管可能已经采用某种方式对代码进行了组织，以使其清晰明了），我还没有将图像和图形绘制代码放入 OnPaint 中。通过将它们作为自身的例程，开发人员可以重写其中一个例程，而无需担心 OnPaint 中出现的所有定位和图形安装项。而且，我还谨慎地将那两个绘图例程（以及该类中的大多数例程）标记为 Overridable，因为它们看起来可能需要进行扩展。

　　辅助功能

　　要使我的代码有些辅助功能，我将这两个绘图例程设为 Protected（而不是 Private），这样，从我的类中继承的类就可以使用它们，但仍然从公共接口将它们隐藏起来。我还将几个附加例程（包括 OnSelectedItemChanged）标记为 Protected，这样，必要时子类就可以调用那些例程。

　　易用性

　　在这三个注意事项中，最模糊的就是易用性，它是指使类的扩展版本可以与基类一样易于使用。当然，您不能控制继承开发人员将对您的类所进行的操作，因此您不能保证最后它一定能易于使用，但是您可以尝试改进几率。就我的类来说，我最初创建 ImageType 作为 Enum（包括 UserDefined、Square 和 Circle），这产生如下代码：

sr.ImageToDraw = ImageType.Circle

　　在我尝试将其设想为一个继承环境（其中子类已经添加了一个新的 ImageType）时，就会存在一个问题。不能对枚举进行扩展，因此，结果为：

sr.ImageToDraw = 3 'some number not in our original enum

　　按照强类型，这可能存在问题（尽管您可能使其工作，因为 Enum 一般是幕后的 Int32 类型），而且它不是很合适。要解决这个问题，我丢弃枚举并定义自己的 ImageType 作为有关控件类的公共约束，代码如下：

sr.ImageToDraw = Ratings.Circle

　　并且就带有新图形类型的子类来说，代码如下：

sr.ImageToDraw = myNewClass.NewShape

　　一个三角形类继承示例

　　由于目前为止已做的工作，只需几分钟编码，我就能从我的控件中进行继承并使用新的图像类型对它进行扩展。图 7 显示了最后结果 ─ 支持单个新图形类型（三角形）的类。

图 7 MTS

　　我所需的代码只是 DrawStandardImage 的重写和一个新的常量，如下所示。

Public Class Triangles Inherits Ratings Public Const Triangle = 3 Protected Overrides Sub DrawStandardImage( _ 　ByVal g As System.Drawing.Graphics, _ 　ByVal ImageType As Integer, _ 　ByVal x As Integer, ByVal y As Integer, _ 　ByVal w As Integer, ByVal h As Integer, _ 　ByVal currentPos As Integer) 　Select Case ImageType 　　Case Triangles.Triangle 　　　Dim fillBrush As Brush 　　　Dim outlinePen As Pen = New Pen(Me.OutlineColor, 1) 　　　If IsHovering AndAlso HoverItem > currentPos Then 　　　　fillBrush = New SolidBrush(Me.HoverColor) 　　　ElseIf Not IsHovering AndAlso _ 　　　　SelectedItem > currentPos Then 　　　　fillBrush = New SolidBrush(Me.SelectedColor) 　　　Else 　　　　fillBrush = New SolidBrush(Me.EmptyColor) 　　　End If 　　Dim pts(2) As PointF 　　pts(0).X = (x + (w / 2)) 　　pts(0).Y = y 　　pts(1).X = x + w 　　pts(1).Y = y + h 　　pts(2).X = x 　　pts(2).Y = y + h 　　g.FillPolygon(fillBrush, pts) 　　g.DrawPolygon(outlinePen, pts) 　Case Else 　　MyBase.DrawStandardImage(g, ImageType, _ 　　　x, y, w, h, currentPos) 　End Select End Sub End Class

　　无论是对于 Windows 还是 Web，控件开发都是使代码片断可重用的一种极好的方法，但是如果您要允许其他开发人员在您的基础上进行构建，则您需要谨慎地计划继承。

　　小结

　　本文完成的产品是一个简单的等级控件，但如果您使用它作为 DataGrid 中的列，它可能非常有用。

查看本文来源