VB接口与抽象类.docx

1、VB接口与抽象类目录VB接口的概念 1接口要点 1示例一：IDisplayer 2示例二：ISpeak 8示例三：实现多态（Animal） 10示例四：IEnumerator 11示例五：Implements语句 13.NET抽象类 13创建VB.NET抽象类 14实际操作中使用VB.NET抽象类 15示例 15.NET接口和.NET抽象类的相同点和不同点 16相同点 16不同点 16.NET接口和.NET抽象类的规则与场合 17VB接口的概念2006-09-29 11:12谢谢妖居前辈写的文章,原文地址只支持单继承的VB.NET为了解决多继承的问题，引入了接口的概念。我们可以这样来为接口下一

2、个定义：接口就是指只包含虚成员的虚类。1.虚类，表明了接口是不能够被直接实例化的。也就是说，接口只是一个抽象概念。比如我们说车可以跑，人可以跑，马可以跑。我们可以看到实例化的车、人、马。但是我们可以定义一个“会跑的物质”。他可以是车，也可以使人、马，但是我们却不能说“这个东西就是一个会跑得物质，但是它并不是车、人或者马。”2.只包含虚成员，表明了接口只是说明了它具有什么样的功能，可以提供什么样的信息。但是这些功能和信息究竟是什么，如何提供我们无法得知。就像是“会跑的物质”，我们知道它可以跑，但是具体他怎么跑我们就不知道了。之所以说接口可以部分替代多继承，就是因为VB.NET只允许一个类继承自另

3、一个，且只能是这个类；但是一个类可以实现一个或多个接口。由于接口不实现成员，只声名成员，所以也就不存在多继承的路径问题了。接口要点1、定义接口名，应按照惯例，将接口名的第一个字母命名为 I，如上例中的ISpeak，这样做的目的是见名知义，原因是因为接口的英语单词是 Interface；2、由于接口中的成员签名必须在实现该接口的类中给出其具体实现，所以它们前面不用加访问级别修饰符（Public、Privated等）；3、类通过Implements 关键字实现接口；4、一个类要实现一个接口，就必须实现该接口中定义的所有成员签名；5、一个类可以实现多个接口，方法是在接口名用“,”隔开，如 Imple

4、ments ISpeak,IRun。现在我们假定您已经知道了接口的声名以及相关的一些基本知识，我们来看看什么时候我们需要使用接口。示例一：IDisplayer当我们面临一个问题，就是我们有一个功能，它需要操作不同的类的实例去完成一个目的相同的方法的时候，我们就可以把这些目的相同的方法作为接口来实现。现在我们看看我们面临的问题。目前我们手头有一些类，它们之间没有继承关系，但是这些类都可以被显示成字符串。图书类。可以显示的是书名。PublicClassBookInherits MediaPrivatem_NameAsStringPublicFunctionDisplay() AsStringRet

5、urnm_NameEndFunctionEndClassLCD显示器类，可以显示的是显示器屏幕上面的内容。PublicClassLCDInheritsComputerServicePrivatem_DisplayCommentAsStringPublicFunctionDisplay() AsStringReturnm_DisplayCommentEndFunctionEndClass用户类，显示的是全名（姓 + 名）。PublicClassUserInherits PersonPrivatem_FirstName, m_LastNameAsStringPublicFunctionDispla

6、y() AsStringReturnm_FirstName&.&m_LastNameEndFunctionEndClass现在我们希望我们的程序（函数）能够把这些显示内容通过Console输出到控制台上面。由于它们不是同一个类继承的，所以我么现在有两种选择：1. 为每一个类做一个函数，分别对应着一个类的显示函数：代码复杂，而且如果新加入了别的类，我们不得不在做一个函数。2. 使用一个函数，用Object代替这些类，使用晚期绑定实现：不安全，如果开发者传递了一个没有相应方法的实例进取就会引发异常。现在我们使用接口看看。接口是不依照类的继承关系存在的，所以我们需要首先定义一个接口。它包含了一个Di

7、splay方法。这说明了符合这个接口的所有实例必然有这样的一个方法，名字叫做Display，没有参数，返回字符串：PublicInterfaceIDisplayerFunctionDisplay() AsStringEndInterface这个Display方法只是一个虚函数，没有内容，因为我们并不知道他们应该怎么被Display。但是我们能够保证，他可以被Display，这样就足够了。现在我们使用这个接口来封装我们的三个类。让他们实现这个接口，实现的同时我们也必须实现接口里面的所有虚程序。这相当于告诉编译器，我的类符合接口规定的功能，我能Display，我来告诉你怎样Display。图书类。

8、可以显示的是书名。PublicClassBookInherits MediaImplementsIDisplayerPrivatem_NameAsStringPublicFunctionDisplay() AsStringImplementsIDisplayer.DisplayReturnm_NameEndFunctionEndClass LCD显示器类，可以显示的是显示器屏幕上面的内容。PublicClassLCDInheritsComputerServiceImplementsIDisplayerPrivatem_DisplayCommentAsStringPublicFunctionDi

9、splay() AsStringImplementsIDisplayer.DisplayReturnm_DisplayCommentEndFunctionEndClass用户类，显示的是全名（姓 + 名）。PublicClassUserInherits PersonImplementsIDisplayerPrivatem_FirstName, m_LastNameAsStringPublicFunctionDisplay() AsStringImplementsIDisplayer.DisplayReturnm_FirstName&.&m_LastNameEndFunctionEndClass

10、显示函数。PublicSubDisplay(ByValidrAsIDisplayer)MsgBox(idr.Display)EndSub我们使用了参数idr，这个参数的类型是一个接口IDisplayer。我们使用接口可以像使用类一样。实际上我们传递进来的是实现了这个接口的某个类的实例，但是这并不是我们关心的。我们只要知道，这个类可以Display就足够了。所以我么只需要直接调用接口函数Display，就可以调用到这个接口实例里面的Display函数。他肯定存在，因为他实现了接口。如果不存在，编译器就会报错的。这样我们就可以在不知道实例类型的情况下使用方法了，而且它很安全。如果我们需要加入一个新

11、的类，比如是Company类，我们只要让他也实现了这个接口，就可以直接适用这个函数了。接口也允许继承，而且允许多继承，但是接口只能从接口继承。比如我们的IDisplayer接口继承了两个.NET的接口。PublicInterfaceIDisplayerInheritsICloneable, IComparerFunctionDisplay() AsStringEndInterface一个是ICloneable，他表示我们的接口支持复制（克隆）；另一个是IComparer，他表示我们的接口支持比较。现在我们这三个类就出现了编译错误，因为我们现在只实现了IDisplayer的虚函数Display，

12、基接口（ICloneable, IComparer）的虚函数（Compare，Clone()）我们还没有实现。所以我们的还必须实现基接口的虚成员。我们以Book为例，需要稍加改动：图书类。可以显示的是书名。PublicClassBookInherits MediaImplementsIDisplayerPrivatem_NameAsStringPublicSubNew(ByVal Name AsString)m_Name = NameEndSubPublicFunctionDisplay1() AsStringImplementsIDisplayer.DisplayReturnm_NameEn

13、dFunctionPublicFunctionCompare(ByVal x AsObject, ByVal y AsObject) AsIntegerImplementsSystem.Collections.IComparer.CompareDimbx, by As BookIfTypeOf x Is Book AndAlsoTypeOf y Is Book Thenbx = CType(x, Book)by = CType(y, Book)ReturnString.Compare(bx.m_Name, by.m_Name)EndIfEndFunctionPublicFunctionClon

14、e() AsObjectImplementsSystem.ICloneable.CloneReturnNewBook(m_Name)EndFunctionEndClass图书类实际上包含了三个接口：IDisplayer、ICloneable和IComparer。但是我们使用的时候，ICloneable和IComparer接口不会出现，它的函数会被当作IDisplayer来实现。PublicSubDisplay(ByValidrAsIDisplayer)MsgBox(idr.Display)Dim o AsObject = idr.CloneEndSub当我们发现一些毫不相干的类，却有一个共同的

15、操作，他的参数和返回值一致，而我们恰恰要在某一个（或几个）地方频繁的使用的时候，我们不妨将这些相同的部分用接口实现。但是前提条件是这些操作来设计逻辑来讲却是属于相同的操作。不要为了使用接口而使用它。以下为完整代码：PublicInterfaceIDisplayerInheritsICloneable, IComparer此二接口在命名空间System.Collections下Function Display() AsString表明接口IDisplayer中有函数Display()，此函数具体内容在每个类中不同。EndInterfacePublicClassMediastatementEndC

16、lassPublicClassComputerServicestatementEndClassPublicClassPersonstatementEndClass图书类。可以显示的是书名。PublicClassBookInheritsMediaImplementsIDisplayerPrivatem_NameAsStringPublicFunction Display() AsStringImplementsIDisplayer.Display接口中函数的具体形式Returnm_NameEndFunctionPublicSubNew(ByVal Name AsString)m_Name = N

17、ameEndSubPublicFunctionCompare(ByVal x AsObject, ByVal y AsObject) AsIntegerImplementsSystem.Collections.IComparer.CompareDimbx, by AsBookIfTypeOf x IsBookAndAlsoTypeOf y IsBookThenbx = CType(x, Book)by = CType(y, Book)ReturnString.Compare(bx.m_Name, by.m_Name)EndIfEndFunctionPublicFunctionClone() A

18、sObjectImplementsSystem.ICloneable.CloneReturnNewBook(m_Name)EndFunctionEndClassLCD显示器类，可以显示的是显示器屏幕上面的内容。PublicClassLCDInheritsComputerServiceImplementsIDisplayerPrivatem_DisplayCommentAsStringPublicFunctionDisplay() AsStringImplementsIDisplayer.DisplayReturnm_DisplayCommentEndFunctionPublicSubNew(B

19、yVal Name AsString)m_DisplayComment = NameEndSubPublicFunctionCompare(ByVal x AsObject, ByVal y AsObject) AsIntegerImplementsSystem.Collections.IComparer.CompareDimbx, by AsLCDIfTypeOf x IsLCDAndAlsoTypeOf y IsBookThenbx = CType(x, LCD)by = CType(y, LCD)ReturnString.Compare(bx.m_DisplayComment, by.m

20、_DisplayComment)EndIfEndFunctionPublicFunctionClone() AsObjectImplementsSystem.ICloneable.CloneReturnNewLCD(m_DisplayComment)EndFunctionEndClass用户类，显示的是全名（姓 + 名）。PublicClassUserInheritsPersonImplementsIDisplayerPrivatem_FirstName, m_LastNameAsStringPrivatefullnameAsStringPublicFunctionDisplay() AsSt

21、ringImplementsIDisplayer.Displayfullname = m_FirstName&.&m_LastNameReturnfullnameEndFunctionPublicSubNew(ByVal Name AsString)fullname = NameEndSubPublicFunctionCompare(ByVal x AsObject, ByVal y AsObject) AsIntegerImplementsSystem.Collections.IComparer.CompareDimbx, by AsUserIfTypeOf x IsUserAndAlsoT

22、ypeOf y IsUserThenbx = CType(x, User)by = CType(y, User)ReturnString.Compare(bx.fullname, by.fullname)EndIfEndFunctionPublicFunctionClone() AsObjectImplementsSystem.ICloneable.CloneReturnNewUser(fullname)EndFunctionEndClass示例二：ISpeak本文提供的VB.NET接口范例希望能为读者建立起对接口一个初步的、正确的认识。本例定义了一个名为ISpeak的接口，其中包括了三个签名

23、。由于接口是代表一种约定或者说是一种规则，它并不包含这种约定或者规则的具体实现。所以，我们只需要在接口中定义签名即可。在该接口中，包括了三个成员签名，它们分别代表了属性、方法以及函数。接下来，我又定义了三个类，分别是 Baby、Children 和Adlut，这个三类都实现了上述接口。并且，在每个类实现接口的成员时，都给出了具体的实现。来看代码：定义一个接口PublicInterfaceISpeak仅定义签名，不包含任何实现ReadOnlyPropertyCanSpeak() AsBoolean属性Sub Speak() 方法FunctionGetSpeakLevel() AsSpeakLev

24、elEnum函数EndInterface说话水平枚举PublicEnumSpeakLevelEnum Bad 很差 Ordinary 一般 Fluent 流利EndEnumPublicClassBaby : ImplementsISpeak通过 Implements 关键字实现接口以下是实现该接口的所有成员PublicReadOnlyPropertyCanSpeak() AsBooleanImplementsISpeak.CanSpeakGetReturnFalseEndGetEndPropertyPublicFunctionGetSpeakLevel() AsSpeakLevelEnumIm

25、plementsISpeak.GetSpeakLevelReturnSpeakLevelEnum.BadEndFunctionPublicSubSpeak() ImplementsISpeak.SpeakConsole.WriteLine(旁白):他是一个婴儿，还不会说话。)EndSubEndClassPublicClassChildren :ImplementsISpeakPublicReadOnlyPropertyCanSpeak() AsBooleanImplementsISpeak.CanSpeakGetReturnTrueEndGetEndPropertyPublicFunction

26、GetSpeakLevel() AsSpeakLevelEnumImplementsISpeak.GetSpeakLevelReturnSpeakLevelEnum.OrdinaryEndFunctionPublicSubSpeak() ImplementsISpeak.SpeakConsole.WriteLine(哈哈，我是一个快乐的孩子！)EndSubEndClassPublicClassAdult :ImplementsISpeakPublicReadOnlyPropertyCanSpeak() AsBooleanImplementsISpeak.CanSpeakGetReturnTru

27、eEndGetEndPropertyPublicFunctionGetSpeakLevel() AsSpeakLevelEnumImplementsISpeak.GetSpeakLevelReturnSpeakLevelEnum.FluentEndFunctionPublicSubmySpeak() ImplementsISpeak.SpeakConsole.WriteLine(OK, 我是成年人了，不但能流利地说母语，还会说外语。)EndSubEndClass程序入口点PublicClassAppStartSharedSubMain()Dim person1 AsNewBabyDim per

28、son2 AsNewChildrenDim person3 AsNewAdultperson1.Speak()person2.Speak()person3.mySpeak()If person2.GetSpeakLevel SpeakLevelEnum.BadThenConsole.WriteLine( Person2 的说话水平不算很差)EndIfIf person1.CanSpeak ThenConsole.WriteLine( Person1 会说话)ElseConsole.WriteLine( Person1 不会说话)EndIfConsole.Read()EndSubEndClass

29、PublicClassForm1PrivateSub Button1_Click(sender AsObject, e AsEventArgs) Handles Button1.ClickAppStart.Main()EndSubEndClass在 VS2005/2008 中建立一个“控制台项目”项目，将默认的 Module1.vb 删除，在该项目中添加一个类，将上述代码复制到这个类中覆盖原有内容，即可运行调试。示例三：实现多态（Animal）VB.NET接口实现多态，能够通过使用多接口，用户可以在不中断运行代码的情况下，允许运行多种软件的系统组件。接口象类那样描述属性和方法，但是它和类不同的

30、是，接口不能提供任何实现。为了正确的操作VB.NET接口实现多态，用户需先建立一个接口，并且通过其他的几个类实现该接口。用户可以用几乎相同的方法调用其他对象已经实现的方法。下面这个例子就是VB.NET接口实现多态：NamespacePolyNamespaceInterfaceAnimalSubMove(ByRef Distance AsDouble)SubBite(ByVal What AsObject)EndInterfaceClassFleaImplementsanimalPublicSubbite(ByVal What AsObject) ImplementsAnimal.BiteBite something EndSubSubMove(ByRef Distance AsDouble) ImplementsAnimal.Move Distance = Distance + 1EndSubEndClassClassDogImplementsanimalPublicSubbite(ByVal What AsObject) ImplementsAnimal.BiteBite something EndSubSubMove(ByR