ASELOBJ( )-Funktion

Artikel
04/01/2008

Speichert die Objektverweise auf aktuell ausgewählte Steuerelemente im aktiven Formular-Designer in einem Variablenarray.

ASELOBJ(ArrayName, [1 | 2])

Rückgabewerte

Numerisch

Parameter

ArrayName
Gibt den Namen des Arrays an, das die Objektverweise auf die aktuell gewählten Steuerelemente enthält. Ist das angegebene Array nicht vorhanden, wird es von Visual FoxPro automatisch erstellt. Ist das Array vorhanden, aber nicht groß genug, um alle Steuerelementinformationen aufnehmen zu können, passt Visual FoxPro die Größe des Arrays automatisch entsprechend an. Ist das Array größer als notwendig, wird es abgeschnitten. Wenn das Array vorhanden ist und ASELOBJ( ) 0 zurückgibt, weil aktuell keine Steuerelemente gewählt sind, werden keine Änderungen an dem Array vorgenommen. Ist das Array nicht vorhanden und gibt ASELOBJ( ) den Wert 0 zurück, wird das Array nicht erstellt.
1
Erstellt ein Array, das nur aus einem Element besteht und einen Objektverweis auf den Container des aktuell gewählten Steuerelements enthält. Handelt es sich bei dem aktuell gewählten Steuerelement beispielsweise um ein Drehfeld auf einem Formular, enthält das Array ein Element mit dem Wert FORM. Geben Sie 1 an, wenn Sie ASELOBJ( ) vom Befehlsfenster aus ausgeben. Beachten Sie, dass ASELOBJ( ) den Namen der aktuellen Seite zurückgibt, wenn ein Seitenrahmen gewählt wurde.
2
Legt fest, dass Visual FoxPro ein Array erstellt, das nur aus einem Element besteht und einen Objektverweis auf das Datenumgebungsobjekt (DataEnvironment) des Formulars enthält. Mit Hilfe des DataEnvironment-Objekts können Sie die Datenumgebungseigenschaften des Formulars ermitteln.

Hinweise

ASELOBJ( ) erstellt ein eindimensionales Array, das Objektverweise auf die aktuell gewählten Steuerelemente im aktiven Formular-Designer enthält, und gibt die Anzahl der aktuell gewählten Steuerelemente zurück. Sind aktuell keine Steuerelemente gewählt und wurde das optionale Argument 1 nicht angegeben, gibt ASELOJB( ) den Wert 0 zurück, und das Array wird nicht erstellt. Wenn sich keine Steuerelemente auf dem Formular befinden, erkennt ASELOBJ( ) das Formular nicht als das gewählte Steuerelement. Sind aktuell keine Steuerelemente gewählt und wurde das optionale Argument 1 angegeben, gibt ASELOJB( ) den Wert 1 zurück.

Mit Hilfe von ASELOBJ( ) können Sie eigene Steuerelement-Assistenten erstellen.

Beispiel

Bevor Sie das folgende Beispiel nachvollziehen, sollten Sie im Formular-Designer ein neues Formular öffnen und diesem ein oder mehrere Steuerelemente mit Caption-Eigenschaften hinzufügen, z. B. eine Beschriftung (Label) oder eine Befehlsschaltfläche (CommandButton). Wählen Sie einige dieser Steuerelemente aus, und führen Sie dann das Beispiel aus. ASELOBJ( ) zeigt die Namen der gewählten Steuerelemente an und ändert anschließend die Beschriftungen der gewählten Steuerelemente.

gnobjects = ASELOBJ(gaSelected)     && Create array of control names
IF gnobjects > 0  && 0 indicates no controls selected
   CLEAR
   DISPLAY MEMORY LIKE gaSelected     && Displays selected controls
   FOR nCnt = 1 TO gnobjects 
      ? gaSelected(nCnt).Caption + ' => New Caption ' ;
         + LTRIM(STR(nCnt))  && Display old and new caption
      gaSelected(nCnt).Caption = 'New Caption ' ;
         + ALLTRIM(STR(nCnt))  && Assign new caption
   NEXT
ENDIF

Siehe auch

CREATE FORM | Datenumgebungsobjekt | Formular-Designer | _ObjectReference( ), API-Bibliotheksroutine | AMOUSEOBJ( )-Funktion

Freigeben über