Gewusst wie: Abrufen und Festlegen von Eigenschaften für den Anwendungsbereich
In diesem Beispiel wird veranschaulicht, wie mithilfe von Properties Eigenschaften für den Anwendungsbereich abgerufen und festgelegt werden.
Beispiel
Application macht für Eigenschaften, die über eine AppDomain freigegeben werden können, einen Datenspeicher verfügbar: Properties.
Der Datenspeicher für Eigenschaften ist ein Wörterbuch von Schlüssel/Wert-Paaren, die folgendermaßen verwendet werden können:
' Set an application-scope property
Application.Current.Properties("MyApplicationScopeProperty") = "myApplicationScopePropertyValue"
// Set an application-scope property
Application.Current.Properties["MyApplicationScopeProperty"] = "myApplicationScopePropertyValue";
' Get an application-scope property
' NOTE: Need to convert since Application.Properties is a dictionary of System.Object
Dim myApplicationScopeProperty As String = CStr(Application.Current.Properties("MyApplicationScopeProperty"))
// Get an application-scope property
// NOTE: Need to convert since Application.Properties is a dictionary of System.Object
string myApplicationScopeProperty = (string)Application.Current.Properties["MyApplicationScopeProperty"];
Bei der Verwendung von Properties müssen Sie zwei Punkte beachten. Zum einen ist der Wörterbuch-Schlüssel ein Objekt. Daher müssen Sie beim Festlegen und Abrufen eines Eigenschaftswerts dieselbe Objektinstanz verwenden. (Wenn Sie einen Zeichenfolgenschlüssel als Schlüssel verwenden, müssen Sie die Groß-/Kleinschreibung beachten.) Zum anderen ist der Wörterbuch-Wert ein Objekt. Daher müssen Sie den Wert beim Abrufen eines Eigenschaftswerts in den gewünschten Typ konvertieren.
Da es sich beim Wörterbuchwert um ein Objekt handelt, können Sie benutzerdefinierte Typen ebenso wie einfache Typen verwenden:
' Set an application-scope property with a custom type
Dim customType As New CustomType()
Application.Current.Properties("CustomType") = customType
// Set an application-scope property with a custom type
CustomType customType = new CustomType();
Application.Current.Properties["CustomType"] = customType;
' Get an application-scope property
' NOTE: Need to convert since Application.Properties is a dictionary of System.Object
Dim customType As CustomType = CType(Application.Current.Properties("CustomType"), CustomType)
// Get an application-scope property
// NOTE: Need to convert since Application.Properties is a dictionary of System.Object
CustomType customType = (CustomType)Application.Current.Properties["CustomType"];