在VB.NET程序中 vbnet doevent

一步一步在VB.NET中使用抽象类

通过VB NET VB程序员终于拥有了全部面向对象的特征 其中之一就是程序员以创建抽象类 虽然抽象类在编程中的作用常被过高估计 但抽象类确实提供了不少开发可行性 一段时间以来 VB程序员都在要求微软向他们提供全面的备受C++及JAVA程序员推崇的面向对象的特性 虽然有少部份与OOP相关的特征已被添加到旧的版本上 但程序员还得等待VB NET 将实际意义上的OOP添加到VB上去 通过OOP你可以创建抽象类 虽然大家都对它寄予了厚望 但令人惭愧的是抽象类仅仅只能给程序员提供更多的开发可行性而已 阅读本文您需要具备一定的面向对象以及VB NET的相关知识 很容易解释什么是抽象类? 抽象类即是不能被实例化的类 而且你不能够在自己的程序里通过这种类来生成一个对象 你也许会认为不能被实例化的类是没多大用处的 事实上 在某些环境下 抽象类是非常有用的 你可以把它作为一个基础类以此为基类创建新的类 在对功能要求不高的环境下生成的类 会向你提供一个规定的启始点 通过这个点你可以推导出非抽象类 在此假设一个要用抽象类的程序设计 假设图形程序提供了大量的drawing类:比如圆 三角 曲线等等 所有这些作drawing类都有某个共同的特性 比如位置 大小 色彩 删除等属性 其它的类成员 比如描绘图形的方法就不同于每个单独的类 因此 这样为利用抽象类创造了一个理想的环境 在抽象类中 你需要定义所有drawing类都需要的全部通用类成员 因为drawing类不响应任何图形 但是当把它作为shape specific drawing类中的base类 你需要确认所有这些非 抽象类拥有最基本的功能 创建抽象类 对抽象类的定义很简单 只要在定义域里加入关键字MustInherit 如 Public MustInherit class MyAbstract class End class除开要包含关键字之外 抽象类的定义与非抽象类的定义没什么两样 抽象类包含了从其它类承继而来的属性及方法等等 但是 在抽象类中定义的类成员（属性及方法）是如何与衍生类中的定义元素产生联系的呢？在此并没有复杂的规则 但你作出的决定是与你所拥有的类的性能及它将衍生出来的 类所密切相关 你有三个选择 抽象类中已有的功能比如属性 方法等在衍生类中可以被重载 实现这一功能只要在成员定义中输入Overridable关键字 如 Public Overridable Sub Move(NewX As Integer NewY As Integer) End Sub 为重载abstract base 类中的成员 衍生类在执行语句中须使用Overrides关键字段 如 Public Overrides Move(NewX As Integer NewY As Integer) End Sub 抽象类中已有的功能不能在衍生类中重载 即是 衍生类必须使用抽象类定义的成员 如果你在抽象类中不使用任何特殊字段来定义任一成员将会产生该缺省 以下代码定义了抽象类中的Xpos属性 衍生类必须使用该属性 因为该属性不能被重载 如 Public Property XPos() As Integer End Property利用MustOverride关键字来定义抽象类成员 该成员可以在衍生类中重载 以下举例说明了衍生类必须执行名为GetObjectAt()的方法 Public MustOverride Function GetObjectAt(X As Integer Y As Integer) As Object请注意MustOverride成员不需要End Sub 或End Function语句 使用MustOverride最方便的地方在于它不仅规定了成员的名称同样也规定了成员的符号 先前的例子要求任一衍生类都需定义名称为GetObjectAt()的方法 因此会产生两种类型的整型变量以及返回一个类型对象 该方法是在衍生类中的执行是完全根据程序员的指令要求 通过MustOverride字段说明的方法一些时候也被称为abstract 成员 抽象类与接口如果你熟悉接口的相关知识 你会认为抽象类与它是如此相似 事实上只是一部份类似 定义仅含有抽象成员的抽象类基本上是与接口的定义相同的 因为你已经规定衍生类必须执行某个具有专用符号的成员 另外 抽象类具有其它的功能 是接口无法实现的 尤其是在定义非抽象类成员的基本功能薄?BR当你在认为抽象类或是接口都能如常运作时 请谨记如下几点 除了从一个类（抽象或非抽象） 派生出来 一个衍生类可以执行多个接口 从抽象类派生出来的子类同样能够执行一个或多个接口 这要依你的项目而定 你可以只用一个抽象类或多个接口 或者抽象类和接口混合使用 VB和 NET在这项工作上提供了非常大的灵活性 因此你可以通过不同的方式来达到你想要的结果 底线是一些项目必须是通过抽象类来实现 抽象类也许会被认为是一种非常专业的编程方法 它可帮程序员减少工作量并且可以生成更简便功能更强大的程序 实际操作中使用抽象类 设想一下你正在为一家大公司开发一个新的员工数据库 你的工作就是监督类的执行 使雇员的基本情况与管理部门的要求相吻合 同样 在区分公司分支机构的要求时也提供更大的便利 基本要求如下: 抽象类里有姓名 雇用时间等属性 这些属性不会被重载 因为大多数雇员来自美国 因此在抽象类里执行退休ID 以运行社会保障号码 国外分公司将会利用不同的方式来鉴别雇员的退休ID 因此该属性会在衍生类里重载 以便单个分支机构分别执行 名称为补偿金的方法不会引起争议 然后会返回一个含有雇员补偿金细节的类型对象 因为不同分公司都规定不同的补偿金 薪金 佣金 红利等 因此灵活的执行这些对象是很有必要的 由此会产生一个抽象方法 由此而产生的抽象类的代码 称为EmployeeBase 会在第一栏里显示 位于法国的分公司的程序员用EmployeeBase类作为EmployeeFrance类的基类 与当地雇员记录软件合作使用 因此 衍生类需要承继名称及雇用日期等字段 更多的是 在EmployeeBase 类中的RetirementID成份适合运用在法国 因此 新类不会重载该成份 程序员做的所有这些工作是为了执行abstract Compensation member 的重载 但是在英国 RetirementID 属性不适用于该地 因此衍生类将会重载该成员 同样的也会重载Compensation 成员 lishixinzhi/Article/program/net/201311/13310

相关问答

Q1: 如何在VB.NET中使用动态属性

　Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。

要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。

点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。

Q2: 在VB.NET中实现文件的拖放

本文介绍了在VB NET中如何实现接受拖放的文件 即从资源管理器中拖放到应用程序中的时候 自动获取拖放的文件 文中的例子是一个接受拖放文件显示文件内容的VB NET实例程序 引言

对于文本格式的文件 我们可以直接拖到记事本中就可以看到内容 各种类型的图片 拖到Photoshop中 就可以直接对其编辑 我们如何在VB NET开发的程序也实现上述效果呢？

思路

我们知道 每一个Windows的应用程序都有一个消息队列 程序的主体接受系统的消息 然后分发出去（给一个form 或者一个控件） 接受者有相应的程序来处理消息 在 NET的Form中 默认情况下程序是不翻译这些消息的 也就是说默认我们的Class是不加入应用程序的消息泵 能不能把我们的Form Class加入应用程序的消息泵呢？可以！

在 NET中 任何一个实现IMessageFilter 接口的类 可以添加到应用程序的消息泵中 以在消息被调度到控件或窗体之前将它筛选出来或执行其他操作 使用 Application 类中的 AddMessageFilter 方法 可以将消息筛选器添加到应用程序的消息泵中

于是我们在程序加载的时候 调用Application AddMessageFilter（Me） 然而 默认情况下一个Form或者控件是不能接受拖放的文件的 我们调用一个WIN API DragAcceptFiles源码天空 这个API可以设置对应的控件是否能接受拖放的文件 然后可以用DragQueryFile查询拖放到的文件列表 也就是拖放文件地具体路径和文件名

代码

Imports System Runtime InteropServices

Public Class Form

Inherits System Windows Forms Form

Implements IMessageFilter

API申明

Const WM_DROPFILES = H   拖放文件消息

DllImport（ shell dll ） Public Shared Sub DragFinish（ByVal hDrop As Integer）

End Sub

DllImport（ shell dll ） Public Shared Sub DragAcceptFiles（ByVal hwnd As Integer ByVal fAccept As Boolean）

End Sub

DllImport（ shell dll ） Public Shared Function DragQueryFile（ByVal HDROP As Integer ByVal UINT As Integer ByVal lpStr As System Text StringBuilder ByVal ch As Integer） As Integer

End Function

Private Sub Form _Load（ByVal sender As System Object ByVal e As System EventArgs） Handles MyBase Load

Application AddMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt True）

End Sub

Function PreFilterMessage（ByRef m As Message） As Boolean Implements IMessageFilter PreFilterMessage

If m Msg = WM_DROPFILES Then

设置拖放的动作

Dim nfiles As Int

nfiles = DragQueryFile（m WParam ToInt Nothing ）

Dim i As Int

Dim *** As New System Text StringBuilder（ ）

Dim sFirstFileName As String 记录第一个文件名

TextBox Clear（）

For i = To nfiles

DragQueryFile（m WParam ToInt i *** ）

If i = Then sFirstFileName = *** ToString

TextBox AppendText（ControlChars CrLf *** ToString）

Next

DragFinish（m WParam ToInt ） 拖放完成

显示文件内容

Dim fs As New System IO FileStream（sFirstFileName IO FileMode Open）

Dim sr As New System IO StreamReader（fs System Text Encoding GetEncoding（ gb ））

TextBox AppendText（ControlChars CrLf sr ReadToEnd（） ToString）

fs Close（）

sr Close（）

End If

Return False

End Function

Protected Overloads Overrides Sub Dispose（ByVal disposing As Boolean）

If disposing Then

If Not （ponents Is Nothing） Then

ponents Dispose（）

End If

End If

Application RemoveMessageFilter（Me）

DragAcceptFiles（TextBox Handle ToInt False）

MyBase Dispose（disposing）

End Sub

lishixinzhi/Article/program/net/201311/13043

Q3: 在VB.NET中检索文件信息

您是否曾经希望了解如何检索要在您自己的应用程序中使用的特定文件的属性？如果您要在 VB NET 中开发的应用程序依赖于特定的环境 那么在执行程序中的代码之前 您需要检查文件的属性 例如 您可能需要了解特定文件随之发行的产品 或者是文件的版本号 在 VB NET 中 借助 GetVersionInfo 方法和 FileVersionInfo 类 要获得这些信息简直易如反掌 　如果启动 Windows 资源管理器 右击一个文件名 然后从弹出式菜单中选择 属性 则会看到该文件的 属性 窗口 属性 窗口显示了选定文件的有关信息 假设您在任务管理器的 TASKMAN EXE 文件名上右击 图 显示了该文件的 属性 对话框 　

)this style width= ;

通过使用 FileVersionInfo 类 您可以在 VB NET 应用程序中提供相同的功能 根据应用程序的需要 您可以复制 属性 对话框中显示的全部信息 也可以复制其中的一部分 图 显示了我们将要创建的应用程序 它将用来复制 属性 对话框中显示的部分信息

image javascript:return big(this) src= //img educity cn/img_ / / / jpg javascript:if(this width )this style width= ;

要创建演示程序 请启动 VB NET 并开始一个名为 Retrieving File Properties（检索文件属性）的新项目 按照图 所示 向 Form 添加七个文本框控件 七个标签控件和一个按钮控件 接下来 将以下代码添加到 Get Properties（获取属性）按钮的 Click 事件

borderColorDark=#ffffff cellPadding= width= align=center borderColorLight=black border= e e

Private Sub Button _Click(ByVal sender _As System Object ByVal e As System EventArgs) _Handles Button Click 获取记事本的文件版本Dim FileProperties As FileVersionInfo = FileVersionInfo GetVersionInfo( C:\WINNT\taskman exe ) 检索文件说明（名称）TextBox Text = FileProperties FileDescription 检索文件版本TextBox Text = FileProperties FileVersion 检索文件的内部名称TextBox Text = FileProperties InternalName 检索文件的旧名称TextBox Text = FileProperties OriginalFilename 检索产品名称TextBox Text = FileProperties ProductName 检索产品版本TextBox Text = FileProperties ProductVersion 检索语言TextBox Text = FileProperties LanguageEnd Sub

现在 按 F 键执行该应用程序 当您单击 Get Properties（获取属性）按钮时 程序将显示 TASKMAN EXE 文件的有关信息 如图 中所示

Get Properties（获取属性）按钮的 Click 事件代码调用 GetVersionInfo 方法 该方法返回一个 FileVersionInfo 类 其中包括您所指定的文件的所有版本信息 您需要向 GetVersionInfo 方法提供一个完全限定的文件 如果没有指定正确的路径名 则该方法仅返回文件名本身 而不返回文件信息 调用 GetVersionInfo 后 就像我们在演示程序中所做的一样 只需通过类就可以检索特定的属性 　FileVersionInfo 类包含很多属性 您可以通过查询这些属性来检索文件信息 表 仅显示了我们在演示程序中查询的属性 但是可以在 MSDN 中通过搜索 FileVersionInfo 类说明找到完整的列表 　表 FileVersionInfo 类可以使用的属性　

cellSpacing= cellPadding= width= border= %

属性

%

说明

%

FileDescription

%

检索指定文件的说明

%

FileVersion

%

检索指定文件的版本号

%

InternalName

%

检索指定文件的内部名称 （并不是所有的文件都关联有内部名称 ）

%

OriginalFilename

%

检索指定文件在首次创建时最初被赋予的名称

%

ProductName

%

检索指定文件的产品名称 它是此文件随之发行的产品的名称 （并不是所有的文件都关联有产品名称 ）

%

ProductVersion

%

检索指定文件的产品版本 它是 ProductName 属性的版本

%

Language

%

检索指定文件的版本资源中的 Microsoft 语言标识符（显示为字符串）

lishixinzhi/Article/program/net/201311/12277

关于在VB.NET程序中和vbnet doevent的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。