Le PropertyBag est un projet Visual Basic 6.0 objet utilisé pour gérer les clés de données et des valeurs similaires à une table de hachage . Il n'y a que deux méthodes disponibles avec le PropertyBag ; lecture et l'écriture . Ces objets sont principalement utilisés lors de la création de contrôles utilisateur pour stocker des données qui doivent être réutilisé dans invocations . PropertyBags stockent leurs données dans le type de données Variant , ce qui signifie que les données peuvent être de n'importe quel autre type de données , même les fichiers entiers, et toujours être stockées avec succès. L'objet PropertyBag a été remplacé dans Visual . NET de base avec des objets tels que des tables de hachage et la sérialisation . Instructions
1

Créer un nouveau PropertyBag par un dimensionnement et l'instancier comme le montre le code suivant :

objMyPropertyBag As New PropertyBag
2

Ajouter un propriété à votre PropertyBag en utilisant la méthode WriteProperty . Cette méthode prend deux paramètres obligatoires et un paramètre optionnel. Les paramètres sont le nom de la propriété , une valeur et une valeur par défaut si vous le souhaitez . Voici deux exemples d'ajout de valeurs. La première montre un ajout de propriétés standard et la seconde montre une addition avec une valeur par défaut .

ObjMyPropertyBag.WriteProperty ( " myNumber " , 74) objMyPropertyBag.WriteProperty ( " myString ", " une valeur de chaîne ", " NULL »)
3

récupérer une propriété à partir de votre PropertyBag avec la méthode ReadProperty . Cette méthode a un paramètre nécessaire pour le nom de la propriété et un paramètre optionnel pour une valeur par défaut . Dans ce cas, la valeur par défaut ne sera restitué que si la valeur réelle n'existe pas.

Dim strRetrievedValue Comme StringstrRetrievedValue = objMyPropertyBag.ReadProperty ( " myString " )

Dim intFakeValue Comme IntegerintFakeValue = objMyPropertyBag . ReadProperty ( " myNumber ", 0)
4

libérer la mémoire détenue par votre PropertyBag lorsque vous avez terminé de l'utiliser en le définissant à rien .

Set objMyPropertyBag = Nothing < br >