VB的接口编程

今天在工作中用了VB的接口编程来模拟继承的实现，原来VB的接口也就是那么的简单，以前一直都懒得看关于这方面的内容

首先定义一个类IStatistic,该类有一个公共属性Caption和一个公共方法Search
Public Property Get Caption() As String
End Property

Public Function Search() As Object
End Function

把IStatistic类当作接口，定义一个类Statistic来实现IStatistic接口
implements IStatistic
Public Property Get IStatistic_Caption() As String
    IStatistic_Caption = "Statistic Caption"
End Property

Public Function IStatistic_Search() As MyObject
    Set IStatistic_Search = New MyObject
End Function

调用Statistic类的时候，通过接口调用
Public Sub test()
    Dim objIStatis as IStatistic

    Set objIStatis = new Statistic

    MsgBox objIStatis.Caption
    Call objIStatis.Search()
End Sub