MTS

Shared Property Manager (SPM)
Stored Code
  'Retourne la valeur de la Property strPropertyName contenue dans le groupe strGroupName
  'Si la valeur n'existe pas dans le SPM, elle est automatiquement chargée
  Private Function GetSPMValue(strPropertyName As String, _
                               Optional strGroupName As String = "Default") As String
     Dim spmMgr      As SharedPropertyGroupManager
     Dim spmGroup    As SharedPropertyGroup
     Dim spmProperty As SharedProperty
     Dim bolResult   As Boolean
     
     'Ouverture de l'objet "Shared Property Manager"
     Set spmMgr = New SharedPropertyGroupManager
     
     On Error Resume Next
     'Tentative d'ouverture du groupe "strGroupName"
     Set spmGroup = spmMgr.Group(UCase$(strGroupName))
     'Si erreur=5, créer groupe
     If Err.Number = 5 Then
        Set spmGroup = spmMgr.CreatePropertyGroup(UCase$(strGroupName), LockSetGet, Process, bolResult)
     End If
     
     'Tentative de retrait de la valeur de la property "strPropertyName"
     Set spmProperty = spmGroup.Property(UCase(strPropertyName))
     'Si erreur=5, créer Property et la charger
     If Err.Number = 5 Then
        Set spmProperty = spmGroup.CreateProperty(UCase(strPropertyName), bolResult)
        spmProperty.Value = LoadValue(strPropertyName)
     End If
     On Error GoTo 0
     
     'Retrait de la valeur en Shared Memory:
     GetSPMValue = spmProperty.Value
     
     Set spmProperty = Nothing
     Set spmGroup = Nothing
     Set spmMgr = Nothing
  End Function
  
  'Chargement initiale de la valeur (disk, SGBD etc.)
  Public Function LoadValue(strPropertyName As String) As String
     LoadValue = "Value<" & strPropertyName & ">"
  End Function
  
Notes
Référence sur "Shared Property Manager Type Library" (mtxspm.tlb)