第 4 步：绘制控件的外观
要使控件具有一个可视的外观，我们需要在 Paint 事件中放置逻辑。然后，每次控件需要刷新其可视外观时，就会运行该逻辑。

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

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

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

DrawCurve
DrawEllipse
DrawLine
DrawPolygon
DrawRectangle
DrawString
FillEllipse
FillPolygon
这些都是很容易理解的，只是可用方法的示例。一些更复杂的方法还允许旋转对象。我们将使用 DrawRectangle 方法绘制边框，使用 FillEllipse 方法绘制彩色的圆。

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

下面是处理控件的 Paint 事件的代码：

Protected Overrides Sub OnPaint(ByVal pe As _
                        System.Windows.Forms.PaintEventArgs)
    MyBase.OnPaint(pe)

    Dim grfGraphics As System.Drawing.Graphics
    grfGraphics = pe.Graphics

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

    ' 现在绘制红绿灯周围的轮廓
    ' 用画笔绘制轮廓，将它涂成黑色。
    Dim penDrawingPen As New _
        System.Drawing.Pen(System.Drawing.Color.Black, msngBorderWidth)

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

    rectBorder.X = 1
    rectBorder.Y = 1
    rectBorder.Height = Me.Height - 2
    rectBorder.Width = Me.Width - 2
    grfGraphics.DrawRectangle(penDrawingPen, rectBorder)

    ' 释放图形对象
    penDrawingPen.Dispose()
    grfGraphics.Dispose()

End Sub

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

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

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

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

下面是绘制圆的函数：

Private Sub DrawLight(ByVal LightToDraw As TrafficLightStatus, _
                      ByVal grfGraphics As Graphics)

    Dim nCircleX As Integer
    Dim nCircleY As Integer
    Dim nCircleDiameter As Integer
    Dim nCircleColor As Color

    ' 找到所有圆的 X 坐标和直径
    nCircleX = CInt(Me.Size.Width * 0.02)
    nCircleDiameter = CInt(Me.Size.Width * 0.96)
    Select Case LightToDraw
        Case TrafficLightStatus.statusRed
            If LightToDraw = Me.Status Then
                nCircleColor = Color.OrangeRed
            Else
            &nb