第 2 步：更改基类
在控件库中创建的类自动命名为 UserControl1，默认情况下，从 UserControl 类继承。如果我们要创建复合控件，那非常容易，只需将其他控件从工具箱中拖到设计表面上即可。
但是，由于我们要从头创建自己的控件，因此需要做一些更改。将控件类的名称从 UserControl1 更改为 TrafficLight。然后，将以下行：
Inherits System.Windows.Forms.UserControl
更改为：
Inherits System.Windows.Forms.Control
这样，使最一般的 Control 类成为基类。您会发现，不再显示可视设计表面，而是替换为组件设计表面。
为保持代码的一致性，也要将代码文件名从 UserControl1.vb 更改为 TrafficLight.vb。可以在 Solution Explorer（解决方案资源管理器）中进行更改：右键单击代码文件的名称，并选择 Rename（重命名）。
还需要在类模块的顶部添加几行代码。将 Option Strict 设置为 On，并导入包含我们将来要用到的某些属性的命名空间。下面是要放到代码最上面的两行： Option Strict On
Imports System.ComponentModel
第 3 步：实现属性和事件
要实现 Status 属性，首先要为可能的属性值创建枚举。将以下几行插入以 Inherits 开始的行下面：
| Public Enum TrafficLightStatus statusRed = 1 statusYellow = 2 statusGreen = 3 End Enum |
此枚举是公开的，也就是说使用该控件的窗体可以访问它。
在这些行下面添加以下三行：
| Dim mStatus As TrafficLightStatus = TrafficLightStatus.statusGreen Dim msngBorderWidth As Single = 1.0! Public Event StatusChanged（ByVal NewStatus As TrafficLightStatus） |
前两行中的两个变量可用于存储 Status 和 BorderWidth 属性的属性值，还为这些属性设置了默认值。保存 BorderWidth 的变量必须为 Single 类型，因为它是绘制边框所用的图形语句需要的类型。默认值中的惊叹号也表明它是 Single 类型。此集合中的最后一行声明了 StatusChanged 事件。
现在，我们为 BorderWidth 属性编写代码。在标记为 Windows Form Designer Generated Code（Windows 窗体设计器生成的代码）的代码区域下插入以下行：
| ＜DefaultValue（1.0!）, _ Description（"红绿灯周围边框的宽度"）＞ _ Public Property BorderWidth（） As Single Get Return msngBorderWidth End Get Set（ByVal Value As Single） If msngBorderWidth ＜＞ Value Then msngBorderWidth = Value Me.Invalidate（） End If End Set End Property |
前两行包括使该属性更好地使用 IDE 的属性。DefaultValue 特性允许在 Properties（属性）窗口中将属性值重置为默认值（操作步骤稍后介绍）。Description 特性提供选中该属性时在 Properties（属性）窗口底部显示的文本。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页
您现在的位置：