Vielleicht haben Sie dem einen oder anderen unserer Artikel (oder wo auch immer) das mitunter recht praktische PropertyBag-Objekt gesehen, das in jedoch in VBScript nicht zur Verfügung steht. Daher haben wir es für Sie in eine ActiveX-DLL gesteckt, die Sie nun wie das VB 6-Original verwenden können. Sie brauchen nur das Setup zu diesem Artikel herunterladen und installieren. Eine Dokumentation zum PropertyBag-Objekt finden Sie in der MSDN-Library.
Sie können in einem Script einfach eine Variable deklarieren und ein PropertyBag-Objekt mit CreateObject instanzieren:
Dim PropBag
Set PropBag = CreateObject("avbPropertyBag.PropertyBag")
Die Klasse PropertyBag dieser ActiveX-DLL reicht lediglich die Eigenschaft Contents und die Methoden ReadProperty und WriteProperty einer Instanz des Originals, die in Class_Initialize angelegt und in Class_Terminate wieder freigegeben wird, nach außen durch. Der Code dieser Klasse:
Private mPropBag As VBRUN.PropertyBag
Public Property Get Contents() As Variant
Contents = mPropBag.Contents
End Property
Public Property Let Contents(New_Contents As Variant)
mPropBag.Contents = New_Contents
End Property
Public Function ReadProperty(Name As String, _
Optional DefaultValue As Variant)
ReadProperty = mPropBag.ReadProperty(Name, DefaultValue)
End Function
Public Sub WriteProperty(Name As String, Value As Variant, _
Optional DefaultValue As Variant)
mPropBag.WriteProperty Name, Value, DefaultValue
End Sub
Private Sub Class_Initialize()
Set mPropBag = New VBRUN.PropertyBag
End Sub
Private Sub Class_Terminate()
Set mPropBag = Nothing
End Sub
|