vb mts com

[sugar]

1、在2000下，vb里面引用mts是这样吗？还有别的方法吗？最好详细代码

Implements ObjectControl
Private ctxObject As ObjectContext

Private Sub ObjectControl_Activate()
Set ctxObject = GetObjectContext
End Sub

Private Function ObjectControl_CanBePooled() As Boolean
ObjectControl_CanBePooled = True
End Function

Private Sub ObjectControl_Deactivate()
Set ctxObject = Nothing
End Sub

2、能否解释一下其机制？

[sugar]

急等回音

[sugar]

有人吗？

[zhq2000]

1.2000下 ，为COM+ ，要引用库COM+ Service Type Library 而不是Microsoft Transaction Server Type Library.

2.代码正确！

3.当组件被激活时，COM+ 通过调用你组件的ObjectControl_Activate通知组件被激活了，在此你可以初始化及分配所需资源。
当组件使用完后，COM+ 通过调用ObjectControl_Deactivate通知组件释放资源。
ObjectControl_CanBePooled是系统用来确定你的组件是否支持Pooling(池化）。