vb.net 接口（interface）

用来实现不同类中，用统一方法来调用类中的各自方法和属性。

可以通过CTYPE(类名，接口名).接口方法来访问接口中的方法。

实例说明：

一个模块文件中写入

Public Interface 接口1
ReadOnly Property id() As Long '定义一个只读的属性
Function onll(byval en As String ) As Boolean '定义一个过程
End Interface
Class BaseClass1: Implements 接口1
Private m_id As Long=3
Public readonly Property idi As Long Implements 接口1.id
Get
Return m_id
End Get
End Property
Public Function onll(en As String ) As Boolean Implements 接口1.onll
If en="接口" Then
m_id+=1
Return True
Else
Return False
End If
End Function
End Class

Class BaseClass2: Implements 接口1
Private m_id As Long=3
Public readonly Property idi As Long Implements 接口1.id
Get
Return m_id
End Get
End Property
Public Function onl(en As String ) As Boolean Implements 接口1.onll
If en="接口x" Then
m_id+=1
Return True
Else
Return False
End If
End Function
End Class

Public Sub showis_id(p As 接口1）'定义接口实现方法
p.onll("接口") '传递给各自类中的方法
MsgBox (p.id.ToString )'显示各自类中的ID.
End sub

在过程中加入：

Dim ss As BaseClass1=New BaseClass1
Dim s1 As BaseClass2 =New BaseClass2
showis_id(s1)
showis_id(ss)

类就会实现各自类中的方法，不必要考虑类中的哪个方法在实现。