在VB.NET的类里，实现一个接口的语句是：
为马龙等地区用户提供了全套网页设计制作服务，及马龙网站建设行业解决方案。主营业务为网站设计、成都网站制作、马龙网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
implements接口名称
例如，下面定义一个车（总称）的接口，这里的车是各种车的总称：
Public Interface ICar
Property color() As String
Property speed() As Long
Sub PrintInfo()
End Interface
然后在不同类型的“车”类里实现它：
Public Class A_Car
Implements ICar
Dim m_color As String, m_speed As Long
Public Property color() As String Implements ICar.color
Get
Return m_color
End Get
Set(ByVal Value As String)
m_color = Value
End Set
End Property
Protected Overrides Sub Finalize()
MsgBox(I was deconstructed!)
End Sub
Public Sub New()
m_color = Red
m_speed = 210
MsgBox(I was constructed!)
End Sub
Public Property speed() As Long Implements ICar.speed
Get
Return m_speed
End Get
Set(ByVal Value As Long)
m_speed = speed
End Set
End Property
Public Sub PrintInfo() Implements ICar.PrintInfo
MsgBox(Color: m_color vbNewLine Speed: m_speed, MsgBoxStyle.Information)
End Sub
End Class
在 Form 的 Load 事件中编写：
Dim myCar As New A_Car
myCar.PrintInfo()
运行之后就创建了一个 A_Car 类的实例 myCar，然后出现两个对话框，分别说明实例已经创建和汽车的信息。当窗体卸载时，这个类的实例 myCar 将自动销毁，这时将出现一个“I was deconstructed!”的对话框。
声明一个接口时,需要考虑以下几点：
1.接口主体只限于对方法,索引器以及属性的声明；
2.接口成员是隐式公开的,如果对其显式指定访问级别,就会出现编译器错误；
3.接口中不能包含字段,构造函数和常量等；
4.在接口中不能实现任何方法,属性或者索引器；
5.在指定方法时,只需要给出返回类型,名称和参数列表,然后分号结束。
面向对象的接口
在C++中，一个类被允许继承多个类。但是在Java以后的语言不被允许。
这样，如果想继承多个类时便非常困难。所以开发方想出了新办法：接口。
一个接口内，允许包含变量、常量等一个类所包含的基本内容。但是，接口中的函数不允许设定代码，也就意味着不能把程序入口放到接口里。由上可以理解到，接口是专门被继承的。接口存在的意义也是被继承。和C++里的抽象类里的纯虚函数是相同的。不能被实例化。
定义接口的关键字是interface，例如：
publicinterfaceMyInterface{
public void add(int x,int y);
public void volume(int x,int y,int z);
}
继承接口的关键字是implements，相当于继承类的extends。
需要注意的是，当继承一个接口时，接口里的所有函数必须全部被覆盖。例如：
class Demo implements MyInterface{
public void add(int x,int y){
System.out.println( +(x+y));
}
public void volume(int x,int y,int z){
System.out.println( +(x*y*z));
}
public static void main(String args[]){
Demo d=new Demo();
d.add(10,20);
d.volume(10,10,10);
}
}
输出结果：
30
1000
当想继承多个类时，开发程序不允许，报错。这样就要用到接口。因为接口允许多重继承(,)，而类不允许。所以就要用到接口。
继承概述
面向对象编程 (OOP) 语言的一个主要功能就是 继承 继承是指这样一种能力 它可以使用现有类的所有功能 并在无需重新编写原来的类的情况下对这些功能进行扩展 在 Microsoft® Visual Basic® NET 发布之前 Visual Basic 程序员并不具备这种能力 在 Visual Basic NET 中 您可以继承 Microsoft NET 框架中的类 也可以继承您自己创建的类 在本文中 我们将学习如何使用继承 并了解继承是如何大大缩短编程时间的 简单示例
在您创建的许多类中 您会发现您常常需要与先前创建的类中的属性和方法相同的属性和方法 例如 如果有一个名为 Person 类的基类 该类包含 LastName 和 FirstName 属性以及 Print 方法 您会发现对于 Employee 类您也需要这些属性和方法 您可能还需要其他属性 例如 EmployeeID 和 Salary 如果从 Person 类（基类）继承 您可以将这些属性添加到新的 Employee 类中 并且仍然可以访问 Person 类中的所有属性 继承是指某个类可将其自身定义为具有某个特定类的所有属性和方法 然后再通过添加其他属性和方法对基类的定义进行扩展的能力
继承术语
在深入研究这个主题之前 让我们先来定义几个术语 通过继承创建的新类称为 子类 被继承的类称为 基类 父类 或 超类 在某些 OOP 语言中 一个子类可以继承多个基类 也就是说 如果有一个 Person 类和一个 Car 类 则 Driver 类可以继承这两个类的所有属性和方法 而在 NET 中 只允许单一继承 因此每个子类只能有一个基类
NET 支持三类继承 实现继承 接口继承和可视继承 实现继承是指使用基类的属性和方法而无需额外编码的能力 接口继承是指仅使用属性和方法的名称 但是子类必须提供实现的能力 可视继承是指子窗体（类）使用基窗体（类）的外观和实现代码的能力 在 NET 中 一个类可以从某个基类继承而来 而这个基类又可以从另外一个类继承而来 而且 您可以在一个类中使用一个或多个接口
使用继承的原因
继承可以避免重复编写相同的代码 因此十分有用 如果有两个单独的类 而每个类都必须实现 FirstName 和 LastName 属性 则可能会出现重复代码 如果要更改某个属性的实现方式 则需要查找已实现这些属性的所有类以进行更改 这不仅要耗费大量时间 还增加了不同类中出现错误的风险
在考虑使用继承时 有一点需要注意 那就是两个类之间的关系应该是 属于 关系 例如 Employee 是一个人 Manager 也是一个人 因此这两个类都可以继承 Person 类 但是 Leg 类却不能继承 Person 类 因为腿并不是一个人
覆盖
从基类中继承功能时 您可能会发现在基类中编写的一般方法仅执行继承类所需的部分功能 要执行所需的全部功能 您可以在新类中覆盖基类的方法 而无需使用新的名称创建一个全新的方法
进行覆盖时 您可以选择完全覆盖基类的方法 也可以在继承类中编写代码来执行某些操作 然后再调用基类的方法 在覆盖时 请务必仍然使用与原始方法相同的合约（参数和返回类型） 也可以选择先调用基类的方法 然后在执行完基类的方法后编写其他代码
继承基类
继承使您可以在一个类中使用另一个类的全部属性和方法 您可以使用关键字 Inherits 来获得基类的功能 而无需将代码从一个类复制并粘贴到另一个类中
实现继承
本文将创建一个新类 LineDelim 它将继承 Creating Classes in NET（英文）一文中创建的 Line 类的所有功能 之后 本文将通过添加两个其他属性和一个方法对 Line 类进行扩展 要添加的第一个属性是 Delimiter 使用它可以获得一个分隔符字符 并将其设置到类中 此分隔符将用于将行中的所有空格替换为分隔符字符 要添加的第二个属性是 OriginalLine 它将用于在向文本行插入新的分隔符之前保留文本的原始行 要创建的新方法是 ReplaceAll() 它将用于将文本行中的所有空格替换为分隔符字符 然后我们将学习如何覆盖 GetWord 方法 以便使用此分隔符（而不是空格）分隔文本行并搜索第一个词 构建示例窗体
要创建窗体 请单击 Project（项目） 然后单击 Add Windows Form（添加 Windows 窗体） 将窗体命名为 frmLineTest VB 并单击 OK（确定）
然后在该窗体上创建相应的控件并设置属性
构建 Line 类
接下来将构建要继承的 Line 类
从菜单中单击 Project（项目） 然后单击 Add Class（添加类） 键入如下所示的代码
Public Class LinePrivate mstrLine As StringProperty Line() As StringGetReturn mstrLineEnd GetSet(ByVal Value As String)mstrLine = ValueEnd SetEnd PropertyReadOnly Property Length() As IntegerGetReturn mstrLine LengthEnd GetEnd PropertyPublic Function GetWord() As StringDim astrWords() As StringastrWords = mstrLine Split( ToCharArray())Return astrWords( )End FunctionEnd Class
创建子类 既然窗体和基类都已经创建完毕 现在便可以开始执行继承了
单击 Project（项目） 然后单击 Add Class（添加类） 将该类命名为 LineDelim vb 并单击 OK（确定） 添加新类时 请修改 Visual 所创建的代码 使之与下面的示例代码相似
Public Class LineDelimInherits Line
End Class
因为添加了 Inherits Line 语句 所以您可以在这一新创建的类中使用 Line 类的所有属性和方法
试一试打开 frmLineTest vb 窗体 双击 Get Word（取词）按钮 向此按钮的单击事件过程添加以下代码
Protected Sub btnFirst_Click(ByVal sender As Object _
ByVal e As System EventArgs) Handles btnFirst ClickDim oLine As LineDelim = New LineDelim()oLine Line = txtLine TexttxtFirstWord Text = oLine GetWord()End Sub
运行项目 并在窗体上单击 Get Word（取词）按钮 您将看到 The 一字出现在按钮旁边的只读文本框中 Inherits 语句的功能非常强大 只需要使用这一个语句 就可以在 LineDelim 类中使用 Line 类的所有属性和方法 尽管这个新类尚未执行任何新的操作 但它却表明从 Line 类中继承的所有代码都可以正常工作
添加其他功能 现在 您可以使用其他属性和方法对 LineDelim 类进行扩展 要向 LineDelim 类添加两个新的属性 请执行以下步骤
在上一部分添加的 Inherits 语句后添加两个 Private 变量 如下所示
Private mstrDelim As String = Private mstrOriginal As String
键入如下代码 为这两个 Private 变量添加适当的 Property 语句 您可以将以下代码放在上面输入的两行代码后面（紧挨这两行）
Public Property Delimiter() As StringGetReturn mstrDelimEnd GetSet(ByVal Value As String)mstrDelim = ValueEnd SetEnd PropertyPublic ReadOnly Property OriginalLine() As StringGetReturn mstrOriginalEnd GetEnd Property
现在您可以使用 Delimiter 属性设置并获取 Private 变量 mstrDelim 的值
如果不希望其他人更改这些属性 您可以将属性设为只读 要执行此操作 请不再使用 Set 语句 并在 Property 语句中添加 ReadOnly 属性 有关示例 请参见上面代码中显示的 OriginalLine 属性声明
接下来 需要创建一个称为 ReplaceAll 的方法 此方法可以将文本行中的所有空格替换为传递到 Delimiter 属性中的分隔符字符
Public Function ReplaceAll() As StringmstrOriginal = MyBase LineReturn MyBase Line Replace( mstrDelim ToChar())End Function
ReplaceAll 方法通过基类的 Line 方法检索原始文本行 而以前从基类中检索属性时使用的是 MyBase Line 语法 ReplaceAll 函数将 MyBase Line 属性的值放入您刚刚为该类创建的 Private 变量 mstrOriginal 中 String 数据类型的 Replace 方法将字符串字符的所有实例替换为在 Delimiter 属性中设置的新分隔符字符 mstrDelim MyBase 关键字 可以从任一子类使用 MyBase 关键字 以调用基类中的任何属性或方法 即使基类的方法在子类中已被覆盖 您也可以使用该关键字对其进行调用 例如 如果在基类中存在 ReplaceAll 方法 但在子类中该方法已被覆盖 您可以从子类的 ReplaceAll 方法中调用基类的 ReplaceAll 方法
试一试打开 frmLineTest VB 窗体 双击 Replace（替换）以调出单击事件过程 在 btnReplace 按钮的单击事件中编写以下代码
Protected Sub btnReplace_Click( _ ByVal sender As Object _ByVal e As System EventArgs) Handles btnReplace ClickDim oLine As LineDelim = New LineDelim()oLine Delimiter = txtDelim TextoLine Line = txtLine TexttxtReplace Text = oLine ReplaceAll()End Sub
此代码将 Delimiter 属性设置为在示例窗体的 txtDelimiter 文本框中输入的值 然后您可以调用 ReplaceAll 方法 将文本行中的所有空格更改为新的分隔符字符
按 F 键运行该项目 单击 Replace（替换） 您将看到 在此按钮旁边的文本框中 句中的每个词之间都有一个逗号 覆盖方法 添加 Delimiter 属性后 您可能想更改 LineDelim 类中的 GetWord 方法 以便使用相应的分隔符替代 Line 类使用的单个空格 因为您不一定想更改基类 所以需要覆盖 LineDelim 类中 GetWord 方法的功能 在 LineDelim 类中创建新的 GetWord 方法之前 您需要在 Line 类的 GetWord 方法声明中添加一个关键字
在 Solution Explorer（解决方案资源管理器）窗口中 打开 Line vb 类的代码窗口 找到 GetWord 方法的声明（声明不包含参数） 如下所示 Public Overloads Function GetWord() As String在函数声明中添加关键字 Overridable 如下所示（没有此关键字 就无法覆盖此方法） Public Overridable Overloads Function GetWord() As String打开 LineDelim vb 类 并使用如下代码添加新的 GetWord 方法
Public Overloads Overrides Function GetWord() As StringDim astrWords() As StringastrWords = MyBase Line Split(mstrDelim ToCharArray())Return astrWords( )End Function
如果要更改基类中方法的功能 则有必要在函数声明中添加 Overrides 关键字 现在 LineDelim 类中的 GetWord 方法就可以使用 Delimiter 属性的值来分隔句中的词
如果只覆盖其中一个 GetWord 方法 则代码只能查看这一个版本的方法 而无法调用其他版本的 GetWord 方法 要显示所有方法 您必须覆盖每一个方法 就象您在 LineDelim 类中所执行的操作一样
试一试按 F 键运行该项目 在句中的每个词之间都输入一个逗号 并在 Delimiter（分隔符）文本框中输入一个逗号 单击 Get Word（取词） 句中的第一个词将出现在该按钮旁边的文本框中
抽象类 在本文上一部分的示例中 我们学习了如何创建 Person 对象 这是因为我们想处理普通的人 但是您可能会发现 如果不先添加一些特定的行为和/或数据 就无法使用 Person 类执行任何操作 因此您可以将 Person 类变为抽象类 抽象类仅定义将由子类创建的一般属性和方法
将 Person 类定义为只能被继承的抽象类 而不是在运行时实际创建的对象 从该类继承的每个类（如 Employee 类）都将使用特定的功能来创建所有相应的属性和方法 例如 Employee 类将创建实际的 Print 方法 而 Person 类仅定义必须存在 Print 方法 Person 类中没有与 Print 方法相关联的代码 使用抽象类的原因有多种 对于强制子类设计人员实现应用程序通常所需的所有接口 抽象类非常有用 您可以在不破坏客户端应用程序的情况下向子类添加新方法 这是使用接口所无法实现的 可以在基类中提供许多默认实现方法 从而减少子类需要完成的工作量
接口继承 创建抽象类时 请使用关键字 Interface 而不是 Class 为接口命名 然后定义需要子类实现的所有属性和方法 这是因为基类中没有可以实现的属性和方法 它只包含一般数据 而不包含方法 您所创建的只是一个合约 它规定所有使用此接口的子类都必须遵循一定的规则
现在 请在已创建的项目中添加一个新类 从 Visual Studio 菜单中 单击 Project（项目） 然后单击 Add Class（添加类） 在类中添加以下代码
Interface PersonProperty FirstName() As StringProperty LastName() As String
Sub Print()Sub Talk()End Interface
您会发现 您定义属性和子过程的方法与您通常定义这些属性和过程的方法一样 唯一的差别在于 您没有为它们编写任何代码 现在来看看如何在类定义中使用此接口
在上一步骤创建的类文件中添加以下代码
Public Class EmployeeImplements PersonPrivate mstrFirstName As StringPrivate mstrLastName As StringProperty FirstName() As String _Implements Person FirstNameGetReturn mstrFirstNameEnd GetSetmstrFirstName = ValueEnd SetEnd PropertyProperty LastName() As String _Implements Person LastNameGetReturn mstrLastNameEnd GetSetmstrLastName = ValueEnd SetEnd PropertySub Print() Implements Person Print 在此处添加一些代码 End Sub
Sub Talk() Implements Person Talk 在此处添加一些代码End SubEnd Class
在 Employee 类定义之后的第一行是 Implements Person 此关键字表示您要遵守 Person 接口中定义的合约 现在您可以定义该合约中的所有属性和方法 在每一个 Property 语句后面 都必须包含 Implements 关键字 并且必须指定接口的名称和您正在使用的方法/属性的名称（两个名称之间有一个点 [ ]） Visual 将跟踪每一个接口 在所有接口创建完毕之前 您不能编译应用程序 如果要运行代码 则需要创建相应的子过程 因为在上面的示例中这些子过程被保留为空 创建所有子过程后 您就可以与您通常创建并使用任何其他对象一样 声明并使用新的 Employee 对象了
选择要使用的继承类型 有时候很难决定到底是使用实现继承还是使用接口继承 很多情况下 可能两种继承都会用到 但都只涉及一小部分 例如 您可能需要在 Line 类中添加必须被子类覆盖的方法定义 在过程定义中使用 MustOverride 关键字即可实现此操作
Public MustOverride Sub Init()将此定义添加到类中以后 其作用类似于一个接口 在子类中 必须定义 Init 方法 并且该方法必须使用 Overrides 关键字 以下是如何定义 Init 方法的示例
Public Overrides Sub Init()mstrDelim = mstrLine = 测试行 End Sub同样 请记住使用 Overrides 关键字 该关键字用于通知编译器此方法将覆盖父类中的 Init 方法
注意 Microsoft NET 框架的联机帮助中提供了设计指南 可以帮助您决定要使用的继承类型 阻止继承在某些情况下 您可能不希望其他类继承您的类 如果是这样 您可以使用关键字 NotInheritable 来阻止类的继承
Public Class NotInheritable Employee 类定义End ClassVisual Basic 以来的新增功能
使用 Visual Basic NET 您可以继承 NET 框架包含的所有类 您可以创建自己的类 使这些类继承现有的类 并通过对代码进行简单更改来添加或删除功能
lishixinzhi/Article/program/net/201311/11397
VB.NET和VB6.0有什么区别
Visual Basic .NET是Microsoft Visual Studio .NET套件中主要组成部分之一。.NET版本的Visual Basic增加了更多特性，而且演化为完全面向对象（就像C++）的编程语言。本文将介绍VB.NET的新特性，并比较VB6.0/VB.NET之间的区别，阐述如何利用VB.NET编写简单的应用程序。
1.1 什么是 VB.NET? Microsoft推出全新的编程和操作系统Framework——.NET，支持多种语言利用公共.NET库开发应用程序，这些应用程序在.NET Framework上运行。使用Visual Basic在.NET Framework上编程，这就是VB.NET。
首先，让我演示在VB.NET中写最简单的控制台程序：Hello World。
1.2 Hello, World!“Hello World!”是初学者学习Windows编程的代表性程序。我们的第一个程序就叫做“Hello VB.NET World!”。该程序在控制台输出一句话：“Hello VB.NET World!”，代码如下所示：
代码 1.1: Hello VB.NET World例子Imports System
Module Module1
Sub Main()
System.Console.WriteLine("Hello VB.NET World!")
End Sub
End Module
1.3 VB.NET 编辑器和编译器你可以在记事本或VS.NET IDE等任意文本编辑器中撰写上述代码，然后保存为HelloWorld.vb。 代码编写完成之后，要么在命令行、要么在VS.NET IDE中编译它。在Microsoft .NET Framework SDK中已经包括VB.NET编译器vbc.exe[][1]，从IDE或是命令行都可以调用。要从命令行编译HelloWorld.vb，请在命令行窗口输入
vbc HelloWorld.vb /out:HelloWorld.exe /t:exe
编译结束后，HelloWorld.exe被创建到当前目录下。在资源管理其中双击图标或在命令行执行，程序正确地运行了。祝贺你进入VB.NET开发者的行列。
Imports 语句
如你所知，大部分的.NET类型都在名字空间（namespace）中定义。Namespace是定义和管理类别的范畴。察看.NET Framework Class Library，可以看到数以百计的namespace。例如，System namespace就包括了Console、Object等类型定义。如果想使用Console类，需要用Imports指令导入System namespace。如下所示：
Imports System甚至可以明确地调用namespace而无需用Import导入。下面的例子展示了不用Import的“Hello World！”程序：
代码1.2: Hello VB.NET World例子Module Module1
Sub Main()
System.Console.WriteLine("Hello VB.NET World!")
End SubEnd Module1.4 解析 "Hello VB.NET World!"程序第一行是：
Imports System; System namespace定义了Console类，该类用于读写控制台（命令行窗口）。然后你定义了一个module：Module Module1
…End Module所有的VB程序都包括一个Main()方法，即应用程序入口点。在例子程序中，我们调用Console.WriteLine()向控制台写入“Hello VB.NET World!”：
Sub Main()
Console.WriteLine(“Hello VB.NET World!”) End SubWriteLine()方法归属于Console类，它负责向控制台写一个带有行结束符的字符串。如前所述，Console类定义于System namespace，你通过直接引用来控制类成员。
Console类负责读写系统控制台。读控制台输入用Read和ReadLine方法，向控制台输出用WriteLine方法。
表1.1 Console类定义的方法
方法 用途 例子
Read 读入单个字符 int i = Console.Read();
ReadLine 读入一行 string str = Console.ReadLine();
Write 写一行 Console.Write("Write: 1");
WriteLine 写一行，并带上行结束符
Console.WriteLine("Test Output Data with Line");
1.5 VB.NET有什么新特点？ VB.NET比 VB6.0更加稳定，而且完全面向对象。也许你还记得，VB6.0不支持继承、重载和接口，所以不是真正面向对象的。而VB.NET则支持这些面向对象特性。VB6.0有两个薄弱环节——多线程和异常处理。在VB.NET中，开发多线程应用和使用C++/C#别无二致，结构化异常处理也得到支持。稍后我们会详细解释这些特性。
下面是VB.NET的特性列表——
·面向对象的编程语言。支持继承、重载、接口、共享成员和构造器。·支持所有的CLS特性，如存取控制.NET类、与其它.NET语言交互、元数据、公共数据类型、委托等等。·多线程支持。·结构化异常处理。 1.6 名字空间与集合 前面讨论了我们的第一个VB.NET程序。该程序中首先引人注意的是名字空间（namespace）。在.NET参考文档中，你会发现每个类都归属于某个namespace。那么，namespace到底是什么？
一个namespace是类和组件的逻辑组合，其目的在于将.NET class按类别定义。微软借用了C++ class packaging概念：namespace来描述这种组合。.NET Framework中的组件被称为集合（assembly）。全部.NET代码在数百个库文件（DLL）中定义。Namespace把assembly中定义的类组织起来。一个namespace可以包括多个assembly，一个assembly也可以在多个namespace中定义。 namespace树的根节点是System namespace。在.NET Library中，每个class都在一组相似的类别中定义。例如，System.Data namespace只包括数据相关类。同样，System.Multithreading只包括多线程类。
在使用.NET支持的语言（如C#、VB.NET、C++.NET等）创建新应用程序时，你会注意到每个应用程序都被定义为一个namespace，而所有的class都归属于这个namespace。通过引用这个namespace，其它应用程序就能存取这些class。 在.NET中，代码被编译为中间语言（Intermediate Language，IL），assembly中存储了IL代码、元数据和其它资源文件。同一个assembly可以附属于一个或多个Exe/DLL。所有的.NET库都存储在assembly中。
1.7 VB.NET: 完全面向对象的编程语言抽象、封装、多态、继承是面向对象语言的四个基本属性。VB6.0不支持继承，而VB.NET则不然。所以，和C++一样，VB.NET也是完全面向对象的编程语言。
Class 和 ModuleVB.NET用Class...End Class语句对创建class。每个VB.NET至少包括一个Module（模块）。Module在Module…End Module语句对中实现。应用程序的主要模块是Main方法，亦即应用程序入口点。
和VB6.0相似的地方是，都可以使用Function/Sub关键字定义方法。下面的例子显示了如何创建class、添加方法，并从主程序调用方法： Imports System
Module Module1
Sub Main()
Dim cls As TestClass = New TestClass
Console.WriteLine(cls.MyMethod)
End Sub
Class TestClass
Function MyMethod() As String
Return "Test Method"
End Function
End Class
End ModuleProperty属性（Property）是类变量的公共描述。Property…End Property语句用以创建property。属性的Get/Set方法分别用于取得和设置属性值。下面的例子中，Data是TestClass的属性。
Imports System
Imports System.Console
Module Module1
Sub Main()
Dim cls As TestClass = New TestClass
WriteLine(cls.MyMethod)
WriteLine(cls.Data)
cls.Data = "New Data"
WriteLine(cls.Data)
End Sub
End Module
Class TestClass
Private strData As String = "Some Data"
Function MyMethod() As String
Return "Test Method!"
End Function
' Adding Data property to the class
Public Property Data() As String
Get
Return strData
End Get
Set(ByVal Value As String)
strData = Value
End Set
End Property
重载VB.NET通过overload关键字支持方法重载。使用这个关键字，你可以定义同名但不同参数的方法。
类成员访问域
除了原有的Private和Public，VB.NET引入了几个新关键字。全部访问域关键字列表如下：
关键字 作用域
Private 限于class内部
Public 可以从class外访问
Friend 限于class所属的应用程序内
Protected 只能被class和其派生类访问
Protected Friend 能被class、应用程序和派生类访问
继承继承是面向对象编程语言中最常用的技术。继承让你能够重用类代码和功能。
VB.NET支持继承，而VB6.0则不支持。继承的好处在于你能使用任何人编写的类，从这些类派生自己的类，然后在自己的类中调用父类功能。在下面的例子中，Class B派生自Class A，我们将从Class B中调用Class A的方法MethodA。
Imports System
Imports System.Console
Module Module1
Sub Main()
Dim bObj As B = New B
WriteLine(bObj.MethodA())
End Sub
End Module
' Class A defined
Public Class A
Function MethodA() As String
Return "Method A is called."
End Function
End Class
'Class B, inherited from Class A. All members (Public and Protected)
' can be access via B now.
Public Class B
Inherits A
Function MethodB() As String
Return "Method B is called."
End Function
End Class
可以从一个class中派生多个自定义class，也可以从多个class派生一个自定义class。
共享的成员类的共享成员被类的所有实体共享。共享成员可能是属性、方法或字段/值域。在你不想让用户全面控制自己的类时，共享成员相当有用。例如，你可以开发一个类库，让用户通过共享成员使用其中的部分功能。
可以通过class本身引用共享成员，而无需通过类的实体。例如：Module Module1
Sub Main()
WriteLine(A.MethodA())
End Sub
End Module
' Class A defined
Public Class A
Shared Function MethodA() As String
Return "Method A is called."
End Function
End Class
多线程VB语言的一大弱点就是缺乏编写自由线程（free-threaded）程序的能力。在.NET Framework中，所有语言共享CRL（Common Runtime Library，公共运行库），也就是说，你可以用VB.NET、C#或其它.NET语言编写同样的程序。
System.Threading namespace定义了线程类。我们只需要引入System.Threading namespace，即可使用线程类。
System.Threading.Thread类提供线程对象，可以使用Thread类创建或破坏线程。
创建线程使用Thread类的实体创建一个新线程，然后用Thread.Start方法开始执行线程。线程构造器接受一个参数，该参数指明你要在线程中执行的procedure。在下例中，我想在oThread1（Thread类的一个实体）的第二线程中执行SecondThread过程：
oThread1 = New Thread(AddressOf SecondThread)
SecondThread procedure looks like below:
Public Sub SecondThread()
Dim i As Integer
For i = 1 To 10
Console.WriteLine(i.ToString())
Next
End Sub
然后，调用Thread.Start()开始线程：
oThread1.Start()
下面的代码创建两个第二线程：
Imports System
Imports System.Threading
Module Module1
Public oThread1 As Thread
Public oThread2 As Thread
Sub Main()
oThread1 = New Thread(AddressOf SecondThread)
oThread2 = New Thread(AddressOf ThirdThread)
oThread1.Start()
oThread2.Start()
End Sub
Public Sub SecondThread()
Dim i As Integer
For i = 1 To 10
Console.WriteLine(i.ToString())
Next
End Sub
Public Sub ThirdThread()
Dim i As Integer
For i = 1 To 10
Console.WriteLine("A" + i.ToString())
Next
End Sub
End Module
破坏线程 调用Abort方法来破坏（中止）一个线程。在调用Abort之前，确保用IsAlive判断线程处于活动状态。
If oThread1.IsAlive Then
oThread1.Abort()
End If
暂停线程可以使用Sleep方法来暂停线程执行。Sleep方法接受一个以毫秒为单位的参数，指明线程应当暂停多长时间。
下面的例子让线程暂停1秒钟：
oThread2.Sleep(1000)你也可以使用Suspend和Resume方法来挂起和继续线程执行。
设定线程优先级Thread类的Priority属性用于设定线程优先级。该属性可以设置为Normal，AboveNormal，BelowNormal，Highest和Lowest。如：
oThread2.Priority = ThreadPriority.Highest线程与Apartment使用ApartmentState属性设置线程的apartment类型，该属性值可以为STA，MTA或是Unknown[][2]：
oThread.ApartmentState = ApartmentState.MTAMTS意味着可以使用多线程模式，而STA则只能是单线程执行。
Public Enum ApartmentState
{
STA = 0,
MTA = 1,
Unknown = 2,
}
1.8 结构化异常处理异常处理也被称之为错误处理。作为VB程序员，你一定对On Error Goto和On Error Resume Next这些VB6.0错误处理语句耳熟能详。这种类型的错误处理被称为非结构化异常处理（Unstructured Exception Handling）。而在VB.NET中，Microsoft推出了结构化异常处理机制。VB.NET支持类似C++的TryCatch..Finally控制。Try..Catch..Finally结构如下： Try
' 可能导致异常的代码
Catch
' 当异常发生时处理异常的代码
Finally
' 清理现场
End Try
Try语句块用以抛出异常。如果异常发生，在Catch语句块中处理。Finally语句块是可选的，在需要释放资源时特别有用。
1.9 VB6.0与VB.NET的不同之处除了上面谈到的语言进化，还有一些语法上的变化。所有这些语言和语法的变化在MSDN中均可查到，本文只作简单介绍。
数据类型（Data Type）的改变VB.NET中有些数据类型得到改进。下面是变化对照表。
数据类型 VB6.0 VB.NET
Integer 16 bit size 32 bit size
Long 32 bit size 64 bit size
Currency 用于存储大浮点数 被decimal替代，支持更高精度
Variant 可以存储任意类型数据 被Object类型替代，也可以存储任意类型数据，但结果更好
Date Date类型被存储为double 引入DateTime类型，用于存储不同格式的日期
在VB.NET中，Short数据类型是16 bit的。Short，Integer和Long都等同于CLR的System.Int16、System.Int32和System.Int64类型。 变量声明的变化在VB6.0中，变量声明有许多限制。其中之一就是不能同行声明多个变量。如果一定要在一行中声明多个变量，就一定得指明每个变量的类型，否则将被默认为Variant类型。
Dim a1, a2 As Integer Dim a3 As Integer, a4 As Integer 第一行中的a1是Variant类型，a2是Integer类型。第二行中两个变量都是Integer类型。VB.NET支持同行声明多个变量，举例如下：
Dim a1, a2, a3 As Integer 变量初始化是另一个问题。在VB6.0中不能同时声明和初始化变量，而VB.NET则支持这个特性。
Dim name As String = "Mahesh"System.Console.Write(name) 声明常量也可以照此办理：Const DT_COUNT As Integer = 23 New关键字。在VB.NET中，New关键字用于创建对象。由于数据类型是对象，所以New关键字用以创建一个数据类型对象。
Dim i As Integer = New Integer()i = 10System.Console.WriteLine(i.ToString()) 代码块级别支持。像C++一样，VB.NET支持代码块级别的作用域检查。在语句块中声明的变量只在块内有效。
For i = 1 To 10Dim p As LongSystem.Console.WriteLine(i.ToString())NextSystem.Console.WriteLine(p.ToString()) 这段代码在VB.NET中会得到一个编译错误，因为p在For..Next语句块之外不可访问。在VB6.0中这段代码可以通过。
改进了的类型安全
在VB6.0中，当你声明一个对外部过程的引用时，可以指定任意类型的参数为As Any。Any关键字禁止了类型检查，允许任意数据类型传入和返回。
VB.NET不支持Any关键字。你必须指定每个参数和返回值的数据类型。数组VB.NET对数组作了明显的改动。
数组范围。在VB.NET中，你需要格外留意数组范围问题。VB6.0默认数组下界为0，故数组中的元素数量等与数组上界值加一。下面的数组界限从A(0)到A(10)，共有11个元素：
Dim A(10) As Single可以使用Option Base改变下界值为1。在VB.NET中，数组和C++一样，下界值为0，不支持Option Base。注意：MSDN文档指出数组只能包括与其尺寸相等的元素数量，例如：Dim A(10) As Integer 只能包括10个元素（从A(0)到A(9)），但在编译下面这段代码时我发现它运行良好，看起来数组中容纳了11个元素。
Dim A(10) As Integer A(0) = 12 A(2) = 24 A(10) = 23 System.Console.WriteLine(A(0).ToString()) System.Console.WriteLine(A(10).ToString())System.Console.WriteLine(UBound(A).ToString()) System.Console.WriteLine(LBound(A).ToString()) Lbound和Ubound分别返回 0与10。ReDim和Fixed Array。你可以在VB6.0中指定固定长度的数组。
Dim ArrWeekDays(0 To 6) As Integer
这里的ArrWeekDays数组是固定长度的，不能用ReDim语句改变长度。VB.NET不支持固定长度数组，所以ReDim总是有效。
可以用下面两种方式声明数组： Dim ArrWeekDays(6) As IntegerDim ArrWeekDays() As Integer = {1, 2, 3, 4, 5, 6} ReDim语句。在VB6.0中，ReDim用于初始化动态数组。在VB.NET中你不能把它当作声明用。ReDim只能用于改变数组长度，不过不能改变数组维度。
Variant对阵ObjectVB6.0中的Variant数据类型能存储任意类型变量，VB.NET中Object具备相同能力。
算术操作符VB.NET支持类似C++的快捷方式。下面的表格显示了常规操作与快捷操作的不同之处。快捷方式也可用于*、/、|、等操作符。
操作符 常规语法 快捷方式加法 A = A+5 A +=5 减法 A = A – 5 A -+ 5固定长度字符串
在VB6.0中，可以在声明字符串时指定其长度。VB.NET不支持固定长度字符串。
布尔操作符VB6.0中的And、Or或是Xor语句是按位操作符。而在VB.NET中，它们是布尔操作符。执行这些操作将返回true或false。VB.NET引入新操作符来完成按位操作。
操作符 描述 BitAnd 按位AndBitOr 按位OrBitXor 按位XorBitNot 按位Not结构与自定义类型在VB6.0中，你使用Type…End Type语句块创建结构或自定义类型。例如：
Type StdRec
StdId As Integer
StdName As String End Type
VB.NET引入新的语法：Structure。Type…End Type不再被支持。Structure…End Structure与C++用法相同。可以指定结构中每个元素的可访问域，如Public、Protected、Friend、Protected Friend、Private等。例如：
Structure StdRec
Public StdId As Integer Public StdName As String
Private StdInternal As String End StructureVB.NET中的Structures就像类一样，也可以拥有方法和属性。New和Nothing关键字VB6.0中，AS New和Nothing关键字用于声明一个对象并初始化它。 VB.NET不支持隐式创建对象。如前所言，甚至连数据类型都是对象。你可以采用以下两种方法创建数据类型或对象： Dim i As Integer Dim i As Integer = New Integer() // Do something if i = Nothing Then End If 不支持Set语句VB6.0使用Set语句指派对象。例如：Set myObj = new MyObjectSet a = b在VB.NET中，不需要使用Set指派对象。例如：myObj = new MyObj()a = b过程（procedure）语法的变化在VB.NET中过程语法有了很多变化。例如类似C++的过程调用方式、ByVal（传值）为默认类型、Optional关键字、return语句等等。类似C++的过程调用方式 VB6.0允许不用加圆括号调用过程（sub）。不过，用Call语句调用函数或sub时，一定要使用圆括号。例如：Dim I as IntegerCall EvaluateData(2, i) EvaluateData 2, i 在VB.NET中，所有的方法调用都需要圆括号，而Call语句则是可选的。 ByVal是默认参数类型在VB6.0中，在调用函数或sub时ByRef（传址）是默认类型。那意味着所有改变将反映到传入的变量。VB.NET改变了这种方式。现在，默认的参数类型是ByVal（传值）。 Optional关键字VB6.0使用Optional关键字可用来让用户决定传入一个默认值，之后在调用IsMissing函数判断参数是否有效。 而在VB.NET中，每个可选参数必须声明其默认值，无需调用IsMissing函数。例如：Sub MyMethod(Optional ByVal i As Integer = 3)
Return语句VB.NET的Return语句与C++相似。使用Return语句把控制权从过程返还给调用者。在VB6.0中，Return语句与GoSub语句一起使用。VB.NET不再支持GoSub语句。流程控制的改变下面是VB.NET对流程控制语句的修改：1. GoSub不再受到支持。2. Call、Function和Sub语句均可用于调用过程。3. On ... GoSub和On ... GoTo语句不再受支持。可以使用Select Case语句来替代。4. While ... Wend语句现在改为While…End While语句。不再支持Wend关键字。小结 Visual Basic .NET是.NET版本的Visual Basic，已经从根本发生了变化！通过本文你了解到VB6.0和VB.NET的区别是很大的，可以说根本就是两种不同的语言，因为它们的内核发生了变化，VB6.0是基于COM而vb.net是基于.net框架的，因为这个变化，所以在构造类时也发生了根本性的变化。