DerivedClasses

betrifft

Die DerivedClasses-Funktion liefert alle abgeleiteten Klassen einer angegebenen Klasse.

 

Syntax

Result := DerivedClasses(ClassName [, Restriction])

Rückgabewert

Typ

Beschreibung

String()

Stringliste der Klassennamen

Parameter

Verwendung

Name

Typ

Übergabe

Beschreibung

Erforderlich

ClassName

String

ByVal

Name der Klasse, von der die abgeleiteten Klassen ermittelt werden sollen

Optional

Restriction

String

ByVal

Ausdruck, der die Liste der abgeleiteten Klassen einschränkt

Es werden alle Klassennamen, die von ClassName abgeleitet sind, in die Stringliste geschrieben.

Wird der Ausdruck Restriction angegeben, kann die Liste der abgeleiteten Klassen eingeschränkt werden. Es können dazu Konstanten und Initialwerte von Variablen herangezogen werden.

Beispiel:

 

   Dim s As String

  

   For Each s In DerivedClasses("Produktteile", "Preis > 1000")

      (MsgBox s) If s <> ""

   EndFor

Es wird eine Liste der abgeleiteten Klassen aufgebaut, deren Konstante Preis einen Wert > 1000 besitzt.