IDC资讯中心
随便贴贴，学过VB的人都应该知道的，不好意思。
**********************************************************************************************
MTS VB6 COM Component Template – by Michael Gonzalez
**********************************************************************************************
(1) You must create a reference to the Microsoft Transaction Server Type Library (mtxas.dll).
If using Windows 2000, choose the COM+ Services Library (comsvcs.dll) instead.
(2) Set your ClassModules MTSTransactionMode property to 2 – RequiresTransaction
Note: ONLY use 2 – Requires Transaction if you plan on using the component with an MSDTC-
compliant Resource Manager such as MSMQ or SQL Server – OTHERWISE, use
1 – No Transactions
(3) Make sure your projects Unattended Execution property is checked
(4) Make sure your projects Component Version Compatibility is set to Binary Compatibility
**********************************************************************************************
ObjectControl implements the interface that is used by MTS when the object is
activated and/or deactivated – this happens when you call one of the componentss methods
The ObjectControl implementation makes use of three procedures:
1) ObjectControl_Activate
2) ObjectControl_CanBePooled
3) ObjectControl_Deactivate
**********************************************************************************************
Implements ObjectControl
Dim objOC As ObjectContext
Public Sub Something()
This is a user-defined procedure/method
The ObjectContext Object is returned by GetObjectContext
On Error GoTo Abort
*******************************************************
Perform whatever you want in this area
Visual Basic 6 stuff goes here
The Something() procedure/method is just
an example – you may use properties and other
methods/procedures as well!
*******************************************************
Finished:
objOC.SetComplete
Exit Sub
Abort:
objOC.SetAbort
Err.Raise Err.Number, Err.Source, Err.Description
Exit Sub
End Sub
Private Sub ObjectControl_Activate()
MTS invokes this procedure/method when the component/object is instantiated
Set objOC = GetObjectContext()
Exit Sub
End Sub
Private Function ObjectControl_CanBePooled() As Boolean
This enables MTS object pooling (not currently supported my MTS 2.0)
ObjectControl_CanBePooled = True
End Function
Private Sub ObjectControl_Deactivate()
MTS invokes this procedure/method right before the component/object is released
Set objOC = Nothing
Exit Sub
End Sub
