vb.net教程
https://www.xin3721.com/eschool/vbnetxin3721/
只支持单继承的VB.NET为了解决多继承的问题，引入了接口的概念。我们可以这样来为接口下一个定义：接口就是指只包含虚成员的虚类。
（1） 虚类，表明了接口是不能够被直接实例化的。也就是说，接口只是一个抽象概念。比如我们说车可以跑，人可以跑，马可以跑。我们可以看到实例化的车、人、马。但是我们可以定义一个“会跑的物质”。他可以是车，也可以使人、马，但是我们却不能说“这个东西就是一个会跑得物质，但是它并不是车、人或者马。”
（2） 只包含虚成员，表明了接口只是说明了它具有什么样的功能，可以提供什么样的信息。但是这些功能和信息究竟是什么，如何提供我们无法得知。就像是“会跑的物质”，我们知道它可以跑，但是具体他怎么跑我们就不知道了。
之所以说接口可以部分替代多继承，就是因为VB.NET只允许一个类继承自另一个，且只能是这个类；但是一个类可以实现一个或多个接口。由于接口不实现成员，只声名成员，所以也就不存在多继承的路径问题了。
现在我们假定您已经知道了接口的声名以及相关的一些基本知识，我们来看看什么时候我们需要使用接口。
当我们面临一个问题，就是我们有一个功能，它需要操作不同的类的实例去完成一个目的相同的方法的时候，我们就可以把这些目的相同的方法作为接口来实现。现在我们看看我们面临的问题。目前我们手头有一些类，它们之间没有继承关系，但是这些类都可以被显示成字符串。
'图书类。可以显示的是书名。
Public Class Book
Inherits Media
Private m_Name As String
Public Function Display() As String
Return m_Name
End Function
End Class
'LCD显示器类，可以显示的是显示器屏幕上面的内容。
Public Class LCD
Inherits ComputerService
Private m_DisplayComment As String
Public Function Display() As String
Return m_DisplayComment
End Function
End Class
'用户类，显示的是全名（姓 + 名）。
Public Class User
Inherits Person
Private m_FirstName, m_LastName As String
Public Function Display () As String
Return m_FirstName & "." & m_LastName
End Function
End Class
现在我们希望我们的程序（函数）能够把这些显示内容通过Console输出到控制台上面。由于它们不是同一个类继承的，所以我么现在有两种选择。
（1） 为每一个类做一个函数，分别对应着一个类的显示函数。
（2） 使用一个函数，用Object代替这些类，使用晚期绑定实现。
现在看看这两种做法的问题。
（1） 代码复杂，而且如果新加入了别的类，我们不得不在做一个函数。
（2） 不安全。如果开发者传递了一个没有相应方法的实例进取就会引发异常。
现在我们使用接口看看。接口是不依照类的继承关系存在的，所以我们需要首先定义一个接口。它包含了一个Display方法。这说明了符合这个接口的所有实例必然有这样的一个方法，名字叫做Display，没有参数，返回字符串。
Public Interface IDisplayer
Function Display() As String
End Interface
这个Display方法只是一个虚函数，没有内容，因为我们并不知道他们应该怎么被Display。但是我们能够保证，他可以被Display。这样就足够了。现在我们使用这个接口来封装我们的三个类。让他们实现这个接口，实现的同时我们也必须实现接口里面的所有虚程序。这相当于告诉编译器，我的类符合接口规定的功能，我能Display，我来告诉你怎样Display。
'图书类。可以显示的是书名。
Public Class Book
Inherits Media
Implements IDisplayer
Private m_Name As String
Public Function Display() As String Implements IDisplayer.Display
Return m_Name
End Function
End Class
' LCD显示器类，可以显示的是显示器屏幕上面的内容。
Public Class LCD
Inherits ComputerService
Implements IDisplayer
Private m_DisplayComment As String
Public Function Display () As String Implements IDisplayer.Display
Return m_DisplayComment
End Function
End Class
'用户类，显示的是全名（姓 + 名）。
Public Class User
Inherits Person
Implements IDisplayer
Private m_FirstName, m_LastName As String
Public Function Display() As String Implements IDisplayer.Display
Return m_FirstName & "." & m_LastName
End Function
End Class
现在我们着手做我们的显示函数。
Public Sub Display(ByVal idr As IDisplayer)
MsgBox(idr.Display)
End Sub
我们使用了参数idr，这个参数的类型是一个接口IDisplayer。我们使用接口可以像使用类一样。实际上我们传递进来的是实现了这个接口的某个类的实例，但是这并不是我们关心的。我们只要知道，这个类可以Display就足够了。所以我么只需要直接调用接口函数Display，就可以调用到这个接口实例里面的Display函数。他肯定存在，因为他实现了接口。如果不存在，编译器就会报错的。这样我们就可以在不知道实例类型的情况下使用方法了，而且它很安全。
如果我们需要加入一个新的类，比如是Company类，我们只要让他也实现了这个接口，就可以直接适用这个函数了。
接口也允许继承，而且允许多继承，但是接口只能从接口继承。比如我们的IDisplayer接口继承了两个.NET的接口。
Public Interface IDisplayer
Inherits ICloneable, IComparer
Function Display() As String
End Interface
一个是ICloneable，他表示我们的接口支持复制（克隆）；另一个是IComparer，他表示我们的接口支持比较。
现在我们这三个类就出现了编译错误，因为我们现在只实现了IDisplayer的虚函数Display，基接口的虚函数我们还没有实现。所以我们的还必须实现基接口的虚成员。我们以Book为例，需要稍加改动。
'图书类。可以显示的是书名。
Public Class Book
Inherits Media
Implements IDisplayer
Private m_Name As String
Public Sub New(ByVal Name As String)
m_Name = Name
End Sub
Public Function Display1() As String Implements IDisplayer.Display
Return m_Name
End Function
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim bx, by As Book
If TypeOf x Is Book AndAlso TypeOf y Is Book Then
bx = CType(x, Book)
by = CType(y, Book)
Return String.Compare(bx.m_Name, by.m_Name)
End If
End Function
Public Function Clone() As Object Implements System.ICloneable.Clone
Return New Book(m_Name)
End Function
End Class
图书类实际上包含了三个接口：IDisplayer、ICloneable和IComparer。但是我们使用的时候，ICloneable和IComparer接口不会出现，它的函数会被当作IDisplayer来实现。
Public Sub Display(ByVal idr As IDisplayer)
MsgBox(idr.Display)
Dim o As Object = idr.Clone
End Sub
当我们发现一些毫不相干的类，却有一个共同的操作，他的参数和返回值一致，而我们恰恰要在某一个（或几个）地方频繁的使用的时候，我们不妨将这些相同的部分用接口实现。但是前提条件是这些操作来设计逻辑来讲却是属于相同的操作。不要为了使用接口而使用它。
