给你举个例子吧,看不明白再联系
在person.vb中贴如下代码,声明接口iperson并在person中实现
Public Interface iperson
Property name()
End Interface
Public Class person
Implements iperson
Public myname As String
Sub New(ByVal strname As String)
myname = strname
End Sub
Private Property name() Implements iperson.name
Get
Return myname
End Get
Set(ByVal Value)
myname = Value
End Set
End Property
End Class
添加一窗体在按钮事件中添加:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myperson As New person("中国人")
Dim flname As String
flname = CType(myperson, iperson).name
MessageBox.Show(flname)
End Sub
person的name属性是私有的,可以通过强制转换person成接口进行访问,因为接口声明的属性是public的