使用 Visual Basic 从 Windows 窗体控件继承

最新推荐文章于 2024-09-20 09:00:38 发布

sxslyy

最新推荐文章于 2024-09-20 09:00:38 发布

阅读量637

点赞数

分类专栏： VB编程文章标签： windows basic button integer 测试 class

VB编程专栏收录该内容

6 篇文章 0 订阅

订阅专栏

Windows 窗体编程
演练：使用 Visual Basic 从 Windows 窗体控件继承

使用 Visual Basic 可通过继承来创建功能强大的自定义控件。通过继承，可以创建不仅保留了标准 Windows 窗体控件的所有内在功能，而且还包含自定义功能的控件。在本演练中，将创建一个名为 ValueButton 的简单继承控件。此按钮将继承标准 Windows 窗体 Button 控件的功能，并将公开一个名为 ButtonValue 的自定义属性。

注意
显示的对话框和菜单命令可能会与“帮助”中的描述不同，具体取决于您现用的设置或版本。若要更改设置，请在“工具”菜单上选择“导入和导出设置”。有关更多信息，请参见 Visual Studio 设置。

创建项目

创建新项目时，应指定其名称以便设置根命名空间、程序集名称和项目名称，并确保默认组件位于正确的命名空间中。

创建 ValueButtonLib 控件库和 ValueButton 控件
在“文件”菜单上，指向“新建”，然后单击“项目”打开“新建项目”对话框。

从 Visual Basic 项目列表中选择“Windows 控件库”项目模板，然后在“名称”框中键入 ValueButtonLib。

默认情况下，项目名称 ValueButtonLib 也被分配到根命名空间中。根命名空间用于限定程序集中的组件名。例如，如果两个程序集都提供名为 ValueButton 的组件，则可以使用 ValueButtonLib.ValueButton 指定 ValueButton 组件。有关更多信息，请参见 Visual Basic 中的命名空间。

在“解决方案资源管理器”中，右击“UserControl1.vb”，然后从快捷菜单中选择“重命名”。将文件名更改为“ValueButton.vb”。系统询问是否要重命名对代码元素“UserControl1”的所有引用时，单击“是”按钮。

在“解决方案资源管理器”中，单击“显示所有文件”按钮。

打开“ValueButton.vb”节点显示设计器生成的代码文件“ValueButton.Designer.vb”。在“代码编辑器”中打开该文件。

找到 Class 语句 Partial Public Class ValueButton，将该控件要继承的类型从 UserControl 更改为 Button。这样继承的控件将继承 Button 控件的所有功能。

找到 InitializeComponent 方法并删除给 AutoScaleMode 属性赋值的行。Button 控件中没有这一属性。

在“文件”菜单中，选择“全部保存”保存项目。

注意，可视化设计器不再可用。由于 Button 控件自己进行绘制，所以您无法在设计器中修改它的外观。除非在代码中进行修改，否则它的可视化表示形式将与它所继承的类（即 Button）的可视化表示形式完全一样。

注意
还可向设计器表面添加没有用户界面 (UI) 元素的组件。

将属性添加到继承的控件中

继承的 Windows 窗体控件的可能用途之一是创建与标准 Windows 窗体控件的外观和行为相同、但公开自定义属性的控件。在本节中，将向控件中添加名为 ButtonValue 的属性。

添加 Value 属性
在解决方案资源管理器中，右击“ValueButton.vb”，然后从快捷菜单中单击“查看代码”。

找到 Public Class ValueButton 语句。在紧靠该语句下面键入下列代码：

[Visual Basic]

' Creates the private variable that will store the value of your
' property.
Private varValue as integer
' Declares the property.
Property ButtonValue() as Integer
' Sets the method for retrieving the value of your property.
   Get
      Return varValue
   End Get
' Sets the method for setting the value of your property.
   Set(ByVal Value as Integer)
      varValue = Value
   End Set
End Property
此代码设置存储和检索 ButtonValue 属性的方法。Get 语句设置返回到存储在私有变量 varValue 中的值的值，Set 语句通过使用 Value 关键字设置该私有变量的值。

在“文件”菜单中，选择“全部保存”保存项目。

测试控件

控件不是独立的项目，它们必须寄宿在某个容器中。若要测试控件，必须提供一个运行该控件的测试项目。还必须通过生成（编译）该控件使其可由测试项目访问。在本节中，将生成控件并在 Windows 窗体中测试它。

生成控件
在“生成”菜单上单击“生成解决方案”。

生成应该成功，没有任何编译器错误或警告。

创建测试项目
在“文件”菜单上，指向“添加”，然后单击“新建项目”打开“添加新建项目”对话框。

选择 Visual Basic 项目节点并单击“Windows 应用程序”。

在“名称”框中键入 Test。

在“解决方案资源管理器”中，单击“显示所有文件”按钮。

在“解决方案资源管理器”中，右击测试项目的“引用”节点，然后从快捷菜单上选择“添加引用”以显示“添加引用”对话框。

单击“项目”选项卡。

单击标记为“项目”的选项卡。“项目名称”下将列出 ValueButtonLib 项目。双击该项目以将引用添加到测试项目。