使用VB.NET开发定制控件

正常情况下，在开发.NET Windows应用程序时，我们都会用到System.Windows.Forms名字空间的控件。可供我们使用的控件很多，从Label、TextBox等简单的控件到MonthCalendar、ColorDialog等功能更丰富、更复杂的控件。尽管这些控件对于我们需要开发的大多数Windows应用程序已经足够好了，但有时我们也需要自己开发一些System.Windows.Forms名字空间不包括的控件。本篇文章将讲述如何使用VB.NET创建定制控件，尤其是在需要提供自己的图形用户接口时。

　　开发定制的控件并不困难。在开发定制控件时，我们可以使用现有的控件，或者对Control或UserControl类进行扩展。结合使用现有的控件使我们减少提供接口的麻烦，扩展Control或UserControl类意味着我们需要覆盖OnPaint方法，自己绘制图形用户接口。本篇文章中，我们由UserControl类派生了一个定制控件，UserControl类本身也是由继承Control类而生成的。因此读者需要对这二个类有一定的了解。

　　Control类非常重要，因为它是Windows可视化组件的父类，我们开发的定制类将是Control类的一个子类。我们的定制类一般不会直接由Control类派生而成，相反，一般是对UserControl类进行扩展。

　　一、Control类

　　Control类提供向Windows应用程序用户显示信息的类所要求的基本功能，它处理用户通过键盘和鼠标进行的输入，以及消息的分配和安全。更重要的是，Control类定义了控件的范围（位置和大小），尽管它不实现控件的绘制。

　　Windows表单控件使用了环境属性，因此其子控件的显示与其周围环境相似。缺省情况下，环境属性是由其父控件获得的，如果类没有父控件或者其环境属性没有设置，则控件试图通过Site 属性设置环境属性的值。如果控件没有确定位置，不支持环境属性，或者AmbientProperties 对象的属性没有设置，控件就会使用缺省值。一般情况下，控件的环境特性表示控件的一个特征，例如BackColor，它会传递给子控件。例如，缺省情况下，Button控件将具有与其父表单控件相同的BackColor环境属性。

　　许多Control类的属性、方法和事件都会不加变化地传递给子类。

　　１、Control类的属性

　　下面是Control类的一些最重要的属性：

　　★ BackColor
　　控件的背景颜色，是由一个System.Drawing.Color对象表示的。我们可以使用如下所示的代码将一个System.Drawing.Color对象赋给该属性：
control.BackColor = System.Drawing.Color.Red

　　★ Enabled
　　一个表示该控件是否可用的布尔型值，缺省情况下其值为True。

　　★ Location
　　控件的左上角在其窗口中的位置，由一个System.Drawing.Point对象表示。

　　★ Name
　　控件的名字。

　　★ Parent
　　返回控件的父控件或容器的引用。例如，在一个表单中添加的控件的父控件就是该表单，下面的代码将Button1控件所在的表单的标题栏改为“Thank you.”：
Button1.Parent.Text = "Thank you."

　　★ Size
　　控件的大小，由System.Drawing.Size对象表示。

　　★ Text
　　与控件相关的字符串。例如，在Label控件中，Text属性就是显示在标签体上的字符串。

　　２、Control类的方法

　　下面是一些Control类最经常使用的方法：

　　★ BringToFront
　　如果该控件在其他一些控件下面，完整地显示该控件。换一句话说，这一方法能够显示一个完整的控件。

　　★ CreateGraphics
　　获取控件的System.Drawing.Graphics对象，我们可以在其上利用System.Drawing.Graphics 类的各种方法进行显示。例如，下面的代码获取名字为Button1的控件的Graphics图像，然后在按钮上划一条对角的绿线：
Imports System.Drawing

Dim graphics As Graphics = Button1.CreateGraphics
Dim pen As Pen = New Pen(Color.Green)
graphics.DrawLine(pen, 0, 0, _
Button1.Size.Width, Button1.Size.Height)

　　但是，用这种方法在控件上画图，所画的图像不是“永久”的。当控件或者包含控件的表单被重画时，用这种方式画的图像就会消失。

　　★ Focus
　　将焦点给予该控件，使它成为活动控件
　　
　　★ Hide
　　将控件的Visible属性设置为False，使它不被显示出来。

　　★ GetNextControl
　　按Tab键控制次序返回下一个控件。

　　★ OnXXX
　　触发XXX事件。这里的XXX可以是Click、ControlAdded、ControlRemoved、DoubleClick、DragDrop、DragEnter、DragLeave、DragOver、Enter、GotFocus、KeyDown、KeyPress、KeyUp、LostFocus、MouseDown、MouseEnter、MouseHover、MouseLeave、MouseMove、MouseUp、Move、Paint、Resize和TextChanged。例如，调用控件的OnClick方法就会触发其Click事件。

　　★ Show
　　将控件的Visible属性设置为True，以显示该控件。

　　二、UserControl类

　　UserControl类提供一个可以用来创建其他控件的空控件