Every Microsoft Transaction Server (MTS) object in Microsoft Windows NT 4.0, or COM+ object in Microsoft Windows 2000, has an associated context object. The context object provides context for the execution of an instance, including transaction, activity, and security properties. When an MTS or COM+ object is created, MTS or COM+ automatically creates a context object for it. When the MTS object is released, MTS automatically releases the context object.

You can access an MTS or COM+ object's context by calling the GetObjectContext function. The GetObjectContext function returns a reference to the IObjectContext interface. The context object is not available during calls to the component's Class_Initialize and Class_Terminate event. If you call one of its methods, the following error message appears in Windows NT 4.0: Under Windows 2000, the following error message appears: NOTE: This problem has been corrected in Windows 2000 Service Pack 1.

Back to the top

Private mobjContext As ObjectContext
Private Sub Class_Initialize()
    Set mobjContext = GetObjectContext()
End Sub

Private Sub Class_Terminate()
    Set mobjContext = Nothing
End Sub

Public Sub Test()
    mobjContext.SetComplete
End Sub
					

Private Sub Command1_Click()
    Dim o As Object
    Set o = CreateObject("project1.class1")
    o.Test
End Sub
					

Implements ObjectControl
Private mobjContext As ObjectContext

Public Sub Test()
    mobjContext.SetComplete
End Sub

Private Sub ObjectControl_Activate()
    Set mobjContext = GetObjectContext()
End Sub

Private Function ObjectControl_CanBePooled() As Boolean

End Function

Private Sub ObjectControl_Deactivate()
    Set mobjContext = Nothing
End Sub
					

For additional information, see the following article or articles in the Microsoft Knowledge Base:

Back to the top