Implements的用法

Question

Implements是用于对COM接口中的方法的实现。
1.由于直接在VB中对接口的定制不太方便，一般由VC产生接口，用VB编写接口中的方法的代码。
2.用于支持MTS组件的JIT(Just In-time Activate)即时激活的特性。由于MTS是通过IObjectControl接口的三个方法Activate,CanBePooled及Deactiate来实现这点，所以，必须引入并实现IObjectControl：
Implements ObjectConrol
dim spCtx as ObjectContextPrivate Sub ObjectControl_Activate() '对Activate的实现
    set spCtx = GetObjectContext
End SubPrivate Function ObjectControl_CanBePooled() As Boolean '对CanBePooled的实现
    ObjectControl_CanBePooled = True
End FunctionPrivate Sub ObjectControl_Deactivate() ' 对Deactivate的实现
    Set spCtx = Nothing
End Sub