Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As New Student
s.Name = "LzmTW"
Dim t As New Teacher
t.Name = "NET"
ShowMessage(s)
ShowMessage(t)
End Sub
'使用时一般主要用在这个地方,注意下面的参数
Private Sub ShowMessage(ByVal Person As IPerson)
Person.Show()
MsgBox(Person.Name)
End Sub
Public Interface IPerson
Property Name() As String
Sub Show()
End Interface
Public Class Student
Implements IPerson
Private mName As String
Public Property Name() As String Implements IPerson.Name
Get
Return "我是学生,我的名字叫" & mName
End Get
Set(ByVal Value As String)
mName = Value
End Set
End Property
Public Sub Show() Implements IPerson.Show
MsgBox("我属于学生类")
End Sub
End Class
Public Class Teacher
Implements IPerson
Private mName As String
Public Property Name() As String Implements IPerson.Name
Get
Return "我是教师,我的名字叫" & mName
End Get
Set(ByVal Value As String)
mName = Value
End Set
End Property
Public Sub Show() Implements IPerson.Show
MsgBox("我属于老师类")
End Sub
End Class