 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
随便贴贴，学过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 ClassModule\\'s 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 project\\'s Unattended Execution property is checked \\'(4) Make sure your project\\'s 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 components\\'s 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 返回类别: 教程 上一教程: 完整的访问统计系统（一：数据库篇） 下一教程: 经典实用的基础asp程序整理 您可以阅读与"用VB6创建MTS组件"相关的教程: · 手把手教你使用VB来创建ASP组件 · 如何在pb中创建COM组件，并在asp中调用并返回结果集？ · 用VB6做一个简朴的文件上传组件(一) · 创建 VISUAL BASIC COM 组件在 ASP 中使用 · 手把手教你使用VB来创建ASP组件(6) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
