Platform SDK: Transaction Server |
CreatePropertyGroup Method, CreateProperty Method, Value 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 bExists As Boolean Dim iNextValue As Integer ' Create the SharedPropertyGroupManager, ' SharedPropertyGroup, and SharedProperty. Set spmMgr = CreateObject _ ("MTxSpm.SharedPropertyGroupManager.1") Set spmGroup = spmMgr.CreatePropertyGroup _ ("Counter", LockSetGet, Process, bExists) Set spmPropNextNumber = _ spmGroup.CreateProperty("Next", bExists) ' Get the next number and increment it. iNextValue = spmPropNextNumber.Value spmPropNextNumber.Value = _ spmPropNextNumber.Value + 1