Add (Controls)

Add

Die Add-Funktion fügt der Auflistung zur Laufzeit ein weiteres Steuerelement hinzu.

Syntax
Add(ProgID, ControlName, Left, Top, Width, Height, Visible, EventHandler, AllowedEvents, StyleTemplate)
Rückgabewert
Typ		Beschreibung
Control		Der neu erzeugte Steuerelemente-Container
Parameter
Verwendung	Name		Typ	Übergabe	Beschreibung
Erforderlich	ProgID		String	ByVal	ProgID des Steuerelementes. z.B. TCEButtons.Button
Erforderlich	ControlName		String	ByVal	Name des neuen Steuerelementes. Dieser muss eindeutig sein.
Erforderlich	Left		Double	ByVal	Position der linken Kante in Twips
Erforderlich	Top		Double	ByVal	Position der oberen Kante in Twips.
Erforderlich	Width		Double	ByVal	Breite in Twips
Erforderlich	Height		Double	ByVal	Höhe in Twips
Erforderlich	Visible		Boolean	ByVal	Sichtbarkeit des Steuerelementes.
Erforderlich	EventHandler		String	ByVal	Name einer Funktion, welche für die generische Eventverarbeitung benutzt werden soll. Falls nicht benötigt, wird ein Leerstring angegeben.
Erforderlich	AllowedEvents		String	ByVal	Events, welche vom Client zum Server übertragen werden sollen. Falls nicht benötigt, wird ein Leerstring angegeben.
Erforderlich	StyleTemplate		String	ByVal	ID der Vorlage aus den Eigenschaften der Wissensbasis. Falls nicht benötigt, wird ein Leerstring angegeben.

Beispiel:

Dim c As Control

c := F1.Controls.Add("TCEEdit.Edit", "MyEdit", 1000, 1000, 2000, 200, True, "GenericEvent", "KeyDown;KeyUp", "EDIT")

c.AlignRight := TCEServer.AlignHorizontal.AlignHorRight

c.Expression("Value", TCEServer.ControlPropertyTypes.ObjectProperty) := "Country"

Der Programmcode fügt dem Formular F1 ein Steuerelement TCEEdit.Edit hinzu. Wenn eines der Events KeyDown oder KeyUp ausgelöst wird, wird für jeden dieser Events die Methode GenericEvent aufgerufen. Das neue Steuerelement wird mit der Vorlage EDIT aus den Eigenschaften der Wissensbasis erstellt.

Die Funktion GenericEvent muss folgende Definition aufweisen:

Function GenericEvent(ByVal EI As TCEServer.ControlEventInfo) As Void

End Function