由于这些成员不属于Control基类，所以我们需要包括完整的代码以处理它们。我们还需要绘制边框和三个相应颜色的灯的代码，以便在屏幕上绘制红绿灯。最后，我们需要处理用户单击圆以更改亮起灯的操作，并在更改亮起的灯时更改Status属性。 财软联 盟 fs119.net

　　为了使本示例尽可能接近实际应用环境，我们还将包括能够确保在VisualStudio®.NETIDE中更好地使用控件的代码。我们为工具箱设置适当的图标，并包括能够使属性更好地与各属性窗口集成的逻辑。 财 软联盟 fs119.net

　　现在让我们开始吧。 财管,家园,fs119.net

财管家园 fs119.net

　　第1步：创建类型正确的项目 财软 联盟 fs119.net

　　要创建一个保存Windows窗体控件的库，需要在VisualBasic.NET中启动一个新项目，选择WindowsControlLibrary（Windows控件库）项目类型，然后将项目命名为MyControls。

　　所创建的项目实际上可以保存多个Windows窗体控件，每个控件都属于其各自的类，但我们只需在其中创建一个控件。

财.软联盟.fs119.net

财软联盟,fs119.net

　　第2步：更改基类

财软 联盟 fs119.net

　　在控件库中创建的类自动命名为UserControl1，默认情况下，从UserControl类继承。如果我们要创建复合控件，那非常容易，只需将其他控件从工具箱中拖到设计表面上即可。

　　但是，由于我们要从头创建自己的控件，因此需要做一些更改。将控件类的名称从UserControl1更改为TrafficLight。然后，将以下行：

　　InheritsSystem.Windows.Forms.UserControl

　　更改为：

　　InheritsSystem.Windows.Forms.Control

　　这样，使最一般的Control类成为基类。您会发现，不再显示可视设计表面，而是替换为组件设计表面。 财,管家园,fs119.net

　　为保持代码的一致性，也要将代码文件名从UserControl1.vb更改为TrafficLight.vb。可以在SolutionExplorer（解决方案资源管理器）中进行更改：右键单击代码文件的名称，并选择Rename（重命名）。 财软联盟.fs119.net

　　还需要在类模块的顶部添加几行代码。将OptionStrict设置为On，并导入包含我们将来要用到的某些属性的命名空间。下面是要放到代码最上面的两行：OptionStrictOn
ImportsSystem.ComponentModel 财 软联盟 fs119.net

　　第3步：实现属性和事件

　　要实现Status属性，首先要为可能的属性值创建枚举。将以下几行插入以Inherits开始的行下面：

财软联盟,fs119.net

PublicEnumTrafficLightStatus
statusRed=1
statusYellow=2
statusGreen=3
EndEnum

　　此枚举是公开的，也就是说使用该控件的窗体可以访问它。

财 软联盟 fs119.net

　　在这些行下面添加以下三行： 财管家,园,fs119.net

DimmStatusAsTrafficLightStatus=TrafficLightStatus.statusGreen
DimmsngBorderWidthAsSingle=1.0!
PublicEventStatusChanged（ByValNewStatusAsTrafficLightStatus） 财 软联盟 fs119.net

　　前两行中的两个变量可用于存储Status和BorderWidth属性的属性值，还为这些属性设置了默认值。保存BorderWidth的变量必须为Single类型，因为它是绘制边框所用的图形语句需要的类型。默认值中的惊叹号也表明它是Single类型。此集合中的最后一行声明了StatusChanged事件。 财软联.盟.fs119.net

　　现在，我们为BorderWidth属性编写代码。在标记为WindowsFormDesignerGeneratedCode（Windows窗体设计器生成的代码）的代码区域下插入以下行： 财,软联盟,fs119.net

＜DefaultValue（1.0!）,_
Description（"红绿灯周围边框的宽度"）＞_
PublicPropertyBorderWidth（）AsSingle
Get
ReturnmsngBorderWidth
EndGet
Set（ByValValueAsSingle）
IfmsngBorderWidth＜＞ValueThen
msngBorderWidth=Value
Me.Invalidate（）
EndIf
EndSet
EndProperty

财软.联盟.fs119.net

　　前两行包括使该属性更好地使用IDE的属性。DefaultValue特性允许在Properties（属性）窗口中将属性值重置为默认值（操作步骤稍后介绍）。Description特性提供选中该属性时在Properties（属性）窗口底部显示的文本。

财软联 盟 fs119.net

财软.联盟.fs119.net

财管家,园,fs119.net

财软联,盟,fs119.net

　　DefaultValue特性还有一个技巧。如果将TrafficLight控件放到窗体上，并保留BorderWidth属性的默认值，那么窗体设计器将不生成设置属性值的代码行。这使它与其他Windows窗体控件没有什么区别。如果您查看典型控件（如TextBox）的设计器生成的代码，您会发现只包括设置为非默认值的属性的代码行。我们赋予TrafficLight控件同样的能力。

财管家,园,fs119.net

　　PropertyGet简单明了。PropertySet子句包括可视控件属性中常见的逻辑。设置属性时，重要的是在新属性值更改控件的外观时要能够重新绘制控件。因此，Set子句负责确定传递的新值是否与属性中现有的值不相同。如果相同，则不执行操作。如果不同，则接受新值，然后访问控件的Invalidate方法。此方法表明，控件的可视区域已过期，控件需要重新绘制。

财管 家园 fs119.net

　　Status属性的处理有些不同，因为它是枚举值。DefaultValue特性没有为枚举属性提供自动重置能力。在这种情况下，DefaultValue也无法告诉设计器何时停止设置属性值的代码。因此，Status属性的实现中不需要DefaultValue特性。下面是Status属性的代码： 财软联盟.fs119.net

＜Description（"红绿灯的状态（颜色）"）＞_
PublicPropertyStatus（）AsTrafficLightStatus
Get
Status=mStatus
EndGet
Set（ByValValueAsTrafficLightStatus）
IfmStatus＜＞ValueThen
mStatus=Value
RaiseEventStatusChanged（mStatus）
Me.Invalidate（）
EndIf
EndSet
EndProperty 财软联盟.fs119.net

　　看起来与BorderWidth属性的实现类似，只有一点不同：当Status属性发生改变时，除了强制重新绘制控件外，还会触发StatusChanged事件。 财管家园 fs119.net

　　要在Properties（属性）窗口中处理属性的自动重置，我们需要使用一种特殊的方法。由于我们的属性命名为Status，因此必须将重置方法命名为ResetStatus。重置方法只是恢复属性的默认值。以下是其代码：
财软联盟.fs119.net

Public

财软联盟.fs119.net

SubResetStatus（）
Me.Status=TrafficLightStatus.statusGreen
EndSub

财管.家园.fs119.net

　　为了提示设计器何时需要包括一行代码以便设置Status属性，我们需要包括一个名为ShouldSerializeStatus的方法。当属性需要一行代码时，此方法返回布尔值True，否则，则返回False。以下是其代码： 财管家园.fs119.net

PublicFunctionShouldSerializeStatus（）AsBoolean
IfmStatus=TrafficLightStatus.statusGreenThen
ReturnFalse
Else
ReturnTrue
EndIf
EndFunction 财软.联盟.fs119.net

　　第4步：绘制控件的外观 财软联 盟 fs119.net

财 管家园 fs119.net

　　要使控件具有一个可视的外观，我们需要在Paint事件中放置逻辑。然后，每次控件需要刷新其可视外观时，就会运行该逻辑。 财 管家园 fs119.net

　　Windows窗体中的Paint逻辑使用.NET中GDI部分中的类。这些类基本上包括了WindowsAPI图形功能。由于适合.NET，所以比API更易于使用。但是，有关它们的工作原理，需要理解以下几点。 财软联盟,fs119.net

　　在WindowsAPI中，图形操作需要一个窗口句柄，有时称为hWnd。在GDI中，它由Graphics对象取代，该对象不仅代表了绘图区域，还提供在该区域执行的操作（方法）。

　　例如，Graphics对象具有以下方法，可用来绘制各种屏幕元素：

财.管家园.fs119.net

DrawCurve 财 软联盟 fs119.net

DrawEllipse

财管家园 fs119.net

DrawLine 财软联 盟 fs119.net

DrawPolygon

财管家园,fs119.net

DrawRectangle 财软联 盟 fs119.net

DrawString 财 软联盟 fs119.net

FillEllipse 财软联盟,fs119.net

FillPolygon 财软联.盟.fs119.net

　　这些都是很容易理解的，只是可用方法的示例。一些更复杂的方法还允许旋转对象。我们将使用DrawRectangle方法绘制边框，使用FillEllipse方法绘制彩色的圆。 财软联 盟 fs119.net

财 软联盟 fs119.net

财管.家园.fs119.net

财管.家园.fs119.net

　　大多数绘图方法都要求使用Pen或Brush对象。Pen对象用于绘制直线并确定直线的颜色和粗细。Brush对象用于填充区域、确定填充区域所使用的颜色，以及一些特殊效果（例如，用位图填充区域）。我们将使用特殊的Brush效果使当前没有亮起的灯的颜色变暗。 财管,家园,fs119.net

　　下面是处理控件的Paint事件的代码： 财管家园,fs119.net

ProtectedOverridesSubOnPaint（ByValpeAs_
System.Windows.Forms.PaintEventArgs）
MyBase.OnPaint（pe） 财软.联盟.fs119.net

DimgrfGraphicsAsSystem.Drawing.Graphics
grfGraphics=pe.Graphics 财软联 盟 fs119.net

'首先绘制三个代表灯的圆。
'一个亮起，其余两个熄灭。
DrawLight（TrafficLightStatus.statusGreen,grfGraphics）
DrawLight（TrafficLightStatus.statusYellow,grfGraphics）
DrawLight（TrafficLightStatus.statusRed,grfGraphics）

'现在绘制红绿灯周围的轮廓
'用画笔绘制轮廓，将它涂成黑色。
DimpenDrawingPenAsNew_
System.Drawing.Pen（System.Drawing.Color.Black,msngBorderWidth） 财管家.园.fs119.net

'在控件上绘制红绿灯的轮廓。
'首先定义要绘制的矩形。
DimrectBorderAsSystem.Drawing.Rectangle

财管家 园 fs119.net

rectBorder.X=1
rectBorder.Y=1
rectBorder.Height=Me.Height-2
rectBorder.Width=Me.Width-2
grfGraphics.DrawRectangle（penDrawingPen,rectBorder） 财软,联盟,fs119.net

'释放图形对象
penDrawingPen.Dispose（）
grfGraphics.Dispose（） 财软联 盟 fs119.net

EndSub

　　首先使用基类绘制，它通常使用控件的背景颜色绘制背景。然后，从事件参数中获取控件的Graphics对象。 财 管家园 fs119.net

　　接下来，用一个函数画出三个圆。有关该函数的内容稍后介绍。请注意，我们必须向该函数传递一个Graphics对象的引用，同时还要指示要画的圆（红、黄、绿）。

财管家园,fs119.net

　　然后是绘制轮廓的代码。声明一个具有适当位置和大小的矩形，然后传递给Graphics对象的DrawRectangle方法。

　　最后，图形对象激活其Dispose方法。使用GDI时，最好在完成图形对象后立即释放它们。这有助于清除操作系统绘图时所用的资源。如果要在Windows®98或WindowsMe中使用控件，管理图形资源就更加重要，因为这些操作系统处理这种资源的能力较差。

财 软联盟 fs119.net

财软联 盟 fs119.net

财管家园.fs119.net

　　下面是绘制圆的函数： 财管家园 fs119.net

PrivateSubDrawLight（ByValLightToDrawAsTrafficLightStatus,_
ByValgrfGraphicsAsGraphics）

DimnCircleXAsInteger
DimnCircleYAsInteger
DimnCircleDiameterAsInteger
DimnCircleColorAsColor 财管家园.fs119.net

'找到所有圆的X坐标和直径
nCircleX=CInt（Me.Size.Width*0.02）
nCircleDiameter=CInt（Me.Size.Width*0.96）
SelectCaseLightToDraw
CaseTrafficLightStatus.statusRed
IfLightToDraw=Me.StatusThen
nCircleColor=Color.OrangeRed
Else
nCircleColor=Color.Maroon
EndIf
nCircleY=CInt（Me.Size.Height*0.01）
CaseTrafficLightStatus.statusYellow
IfLightToDraw=Me.StatusThen
nCircleColor=Color.Yellow
Else
nCircleColor=Color.Tan
EndIf
nCircleY=CInt（Me.Size.Height*0.34）
CaseTrafficLightStatus.statusGreen
IfLightToDraw=Me.StatusThen
nCircleColor=Color.LimeGreen
Else
nCircleColor=Color.ForestGreen
EndIf
nCircleY=CInt（Me.Size.Height*0.67） 财软.联盟.fs119.net

EndSelect
DimbshBrushAsSystem.Drawing.Brush
IfLightToDraw=Me.StatusThen

财.管家园.fs119.net

bshBrush=NewSolidBrush（nCircleColor）
Else
bshBrush=NewSolidBrush（Color.FromArgb（60,nCircleColor））
EndIf 财管家,园,fs119.net

'绘制代表红绿灯的圆
grfGraphics.FillEllipse（bshBrush,nCircleX,nCircleY,nCircleDiameter,nCircleDiameter） 财管.家园.fs119.net

'释放笔刷
bshBrush.Dispose（）

财管家 园 fs119.net

EndSub 财管家园 fs119.net

　　这是整个控件中唯一的一个复杂图形。在GDI中，在要绘制椭圆的矩形中指定左上角的X坐标和Y坐标，然后指定矩形的高度和宽度即可绘制一个椭圆。我们分别将X坐标和Y坐标称为nCircleX和nCircleY。因为我们要绘制一个圆，因此矩形的高度等于宽度，用变量nCircleDiameter来控制该值。 财管家园.fs119.net

　　将nCircleX设置为刚好放到控件内（控件的宽度乘以0.02）。nCircleY取决于要绘制哪个灯，可以设置成靠近控件的顶部（红灯）、大约向下三分之一（黄灯）或大约向下三分之二（绿灯）。直径nCircleDiameter设置为等于控件宽度的96%。 财软联盟,fs119.net

　　要绘制实心椭圆，还需完成一件事，即确定要使用的颜色。颜色取决于正在绘制哪个灯以及正在绘制的灯是否亮起。亮起的灯的颜色要比熄灭的灯的颜色亮。 财管家 园 fs119.net

　　创建绘图要使用的笔刷时需要使用这些颜色。如果正在绘制的灯是亮起的，即使用该颜色。如果绘制的灯是熄灭的，则要使用不同的方法实例化笔刷。下面是熄灭的灯所使用笔刷的代码行： 财 管家园 fs119.net

　　bshBrush=NewSolidBrush（Color.FromArgb（60,nCircleColor））

财软联 盟 fs119.net

　　这并不是.NET中较好的方法名，但FromArgB方法的作用是创建笔刷，并通过将笔刷与背景颜色相结合来淡化颜色。第一个参数使用的数字介于0至255之间，数字越小，背景颜色渗透越深。我们使用的值为60，它将大大降低处于熄灭状态的灯的颜色。您可以尝试对该参数使用不同的值（或将它设置成可设置属性），以获得不同的效果。 财软,联盟,fs119.net

　　最后，Graphics对象的DrawEllipse方法绘制出该圆，函数结束。记住，该函数需要调用三次以绘制三个不同的圆。

财管.家园.fs119.net

财软联盟 fs119.net

　　第5步：使控件响应用户 财 软联盟 fs119.net

财,软联盟,fs119.net

　　要允许用户更改灯的颜色，必须检测到用户的鼠标单击操作。有经验的VisualBasic开发人员都知道，可以使用多种方法实现这一目的。我们使用最简单的一种方法，即检测MouseUp事件。下面是检测用户单击并更改Status属性以与之匹配的代码： 财管家 园 fs119.net

PrivateSubTrafficLight_MouseUp（ByValsenderAsObject,_
ByValeAsSystem.Windows.Forms.MouseEventArgs）_
HandlesMyBase.MouseUp
DimnMidPointXAsInteger=CInt（Me.Size.Width*0.5）
DimnCircleRadiusAsInteger=nMidPointX
IfDistance（e.X,e.Y,nMidPointX,CInt（Me.Size.Height/6））_
＜nCircleRadiusThen
Me.Status=TrafficLightStatus.statusRed
ExitSub
EndIf
IfDistance（e.X,e.Y,nMidPointX,CInt（Me.Size.Height/2））_
＜nCircleRadiusThen
Me.Status=TrafficLightStatus.statusYellow
ExitSub
EndIf
IfDistance（e.X,e.Y,nMidPointX,CInt（（5*Me.Size.Height）/6））_
＜nCircleRadiusThen
Me.Status=TrafficLightStatus.statusGreen
EndIf 财,软联盟,fs119.net

EndSub 财.软联盟.fs119.net

PrivateFunctionDistance（ByValX1AsInteger,_
ByValY1AsInteger,_
ByValX2AsInteger,_
ByValy2AsInteger）AsInteger
ReturnCInt（System.Math.Sqrt（（X1-X2）^2（Y1-y2）^2））
EndFunction

财管家园 fs119.net

　　事件处理非常简单。检查鼠标单击的位置和每个圆心之间的距离。（请注意，圆心分别位于控件下方1/6、1/2和5/6的位置。如果不太明白，可以在纸上画出来看看。）如果计算出的距离小于圆的半径，则更改Status属性。

财软联盟,fs119.net

　　距离由Distance函数使用您可能在代数课中学过的公式计算。请注意，平方根函数是从System.Math命名空间中获得的，数学函数通常都保存在该命名空间中。 财软,联盟,fs119.net

　　第6步：清理 财软联.盟.fs119.net

　　为了使控件顺利地运作，我们还需要执行一些其他操作。例如，大小改变时需要重新绘制控件。而且，为了不改变控件的比例，我们需要检测影响大小的属性发生更改的时间，然后强制宽度等于高度的三分之一。下面是完成这两项任务的事件处理程序：

财管家 园 fs119.net

PrivateSubTrafficLight_Resize（ByValsenderAsObject,_
ByValeAsSystem.EventArgs）HandlesMyBase.Resize
Me.Invalidate（）
EndSub

PrivateSubTrafficLight_Layout（ByValsenderAsObject,_
ByValeAsSystem.Windows.Forms.LayoutEventArgs）_
HandlesMyBase.Layout
SelectCasee.AffectedProperty
Case"Bounds"
Me.Width=CInt（Me.Height*0.3333）
CaseElse
'不执行任何操作
EndSelect
EndSub 财管家园 fs119.net

　　最后，设置控件在工具箱中使用的图标。控件已经有一个看似齿轮的默认图标，但是我们要使用VisualStudio.NET附带的红绿灯图标。 财管.家园.fs119.net

财管家园 fs119.net

财管家,园,fs119.net

财软,联盟,fs119.net

　　控件的工具箱图标是由名为ToolboxBitmap的类中的特性设置的。在以PublicClass开始的行上面插入以下行： 财管家,园,fs119.net

＜ToolboxBitmap（"C:\ProgramFiles\MicrosoftVisualStudio
.NET\Common7\Graphics\icons\Traffic\TRFFC09.ICO"）＞_

财,软联盟,fs119.net