Platform SDK: Transaction Server |
PropertyByPosition Property Example
[This product will work only on Windows NT 4.0 versions and earlier. For Windows 2000 and later, see COM+ (Component Services).]
Dim spmMgr As SharedPropertyGroupManager Dim spmGroup As SharedPropertyGroup Dim spmPropNextNumber As SharedProperty Dim iNextValue As Integer ' Get the SharedPropertyGroupManager, ' SharedPropertyGroup, and SharedProperty. Set spmMgr = CreateObject _ ("MTxSpm.SharedPropertyGroupManager.1") Set spmGroup = spmMgr.Group("Counter") Set spmPropNextNumber = spmGroup.PropertyByPosition(0) ' Get the next number and increment it. iNextValue = spmPropNextNumber.Value spmPropNextNumber.Value = _ spmPropNextNumber.Value + 1