Basic 6.0 中,你只能不用控件或者直接引用现成的控件来实现各种功能性。例如:为了创建前面提到的自定义文本输入框,你就要新建一个 ActiveX 控件,然后向其中增加一个 TextBox 。
注意 人们通常把这种编程思路称为“容器” (containment) 或者“委托” (delegation)。在 Visual Basic 6.0 中,用于模拟继承机制的非控件类也可以采用这种思路。
此时,新建的 ActiveX 控件并不会如你所愿自动获得 TextBox 的某些属性 (比如 Text 属性);这些属性只能由你编码实现。更糟的是,你必须用许多代码来确保 TextBox 始终占据整个窗体;你还得为新控件设计 resizing 事件处理程序。当然,经过一番折腾,你总会完成该控件的设计任务的,何况还有 ActiveX 控件界面向导 ( Visual Basic 6.0 附加
程序之一,如图 1 所示) 能减轻你的负担。可是在 .NET 环境下,整个任务的完成思路都会变得完全不同。
图 1. Visual Basic 6.0 提供了一个附加
程序 (add-in) ,它能自动添加和映射控件属性,以简化控件的开发。
继承性能避免控件开发中的某些重复代码,因为它能让 .NET 控件直接获得任何其它控件的功能性。例如:为了创建自己的 TextBox 控件,你可以继承现有的 TextBox 控件,而不是 UserControl 控件。新控件继承了基类控件的全部功能性,因此你只需要对基类控件中没有的功能性编码即可。下面举一个实际的例子。以下代码能够创建一个自定义 TextBox 控件,它只允许用户输入数字字符:
注意 为了运行这段代码,你只需在“Windows 应用
程序”
模板下新建一个 Visual Basic .NET 项目,然后就能在 IDE 自动生成的空白窗体中试验新控件了。在项目中新建一个类 NumericTextBox ,用下面的代码替换 NumericTextBox 类文件的内容,编译该项目。最后,在菜单中选择工具->自定义工具箱,选中先前编译项目得到的 .exe 文件,就能把新控件添加到工具箱了。
Public Class NumericTextBox
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnKeyPress(ByVal e As _
System.Windows.Forms.KeyPressEventArgs)
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
Else
e.Handled = False
End If
End Sub
End Class
对本例来说,以上代码已经足够了。如果你还觉得它不够完善的话,请改用下列代码,它运用一种奇妙的布尔逻辑减少了代码行数:
Public Class NumericTextBox
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnKeyPress(ByVal e As _
System.Windows.Forms.KeyPressEventArgs)
e.Handled = Not Char.IsDigit(e.KeyChar)
End Sub
End Class
现在,你的新控件已经正确显示在窗体中了。它象 TextBox 一样处理事件,并且拥有与 TextBox 一样的方法、属性。你甚至不需更多的编码就能实现对新控件的数据绑定,因为这也是基类控件 TextBox 的功能性之一。
注意 本控件对用户输入的要求十分苛刻:它只允许输入 0 至 9 的数字,也就是说,数字中的逗号、小数点甚至负号都是非法字符。我将在下一篇文章中介绍一个功能更强的输入验证
程序。
在 Visual Basic 6.0 中设计本控件时,核心代码会和本范例一样长,可是用于处理控件的 resizing 事件和实现 TextBox 组件属性的代码也会有这么长。由此可见,.NET 提供的继承性能够大大精简源代码。单凭这一点,.NET 就已经令人叹服了,何况它还有许多其它优越性。更奇妙的是,凡是要求使用某一控件的地方,都能改用继承该控件而来的新控件。例如:在任何例程中要求 TextBox 的地方都能用你的 NumericTextBox 控件。不仅如此,从现有控件,而不是从 UserControl 类继承而来的新控件,不但具备基类控件的所有功能性,还能象基类控件一样使用继承得到的属性、方法和事件。因此,任何