AGETCLASS( )-Funktion

Zeigt eine Klassenbibliothek in einem Dialogfenster Öffnen an und erstellt ein Array, das den Namen der gewählten Klassenbibliothek und Klasse enthält.

AGETCLASS(ArrayName [, cLibraryName [, cClassName [, cTitleText   
[, cFileNameCaption [, cButtonCaption]]]]])

Rückgabewerte

Logisch

Parameter

• ArrayName
  Gibt den Namen des Arrays an, in dem die Namen der Klassenbibliothek und Klassen untergebracht werden. Wenn das angegebene Array nicht vorhanden ist, wird es automatisch von Visual FoxPro erstellt. Ist das Array vorhanden, aber nicht groß genug, um die Namen der Klassenbibliothek und Klasse aufzunehmen, vergrößert Visual FoxPro das Array automatisch. Ist das Array größer als notwendig, wird es abgeschnitten. Wenn das Array vorhanden ist und AGETCLASS( ) Falsch (.F.) zurückgibt, weil das Dialogfeld Klassenbibliothek durch Drücken von ESC, Auswahl von Abbrechen oder Klicken auf die Schaltfläche Schließen geschlossen wurde, werden keine Änderungen an dem Array vorgenommen. Wenn das Array nicht vorhanden ist und AGETCLASS( ) Falsch (.F.) zurückgibt, wird das Array nicht erstellt.

  Die folgende Tabelle zeigt den Inhalt eines jeden Arrayelements, das erstellt wird, wenn Sie eine Klasse auswählen.

  Element	Inhalt
  1	Dateiname der gewählten Klassenbibliothek.
  2	Name der gewählten Klasse.

• cLibraryName
  Gibt den Namen der Klassenbibliothek an, die anfänglich beim Anzeigen des Öffnen-Dialogs ausgewählt war. Der von Ihnen angegebene Name der Klassenbibliothek wird im Textfeld Dateiname angezeigt. Wenn die von Ihnen angegebene Klassenbibliothek nicht vorhanden ist oder cLibraryName eine leere Zeichenfolge oder der Nullwert ist, wird ein Fehler generiert.

• cClassName
  Gibt den Namen der Klasse an, die anfänglich beim Anzeigen des Öffnen-Dialogs ausgewählt war. Ist die von Ihnen angegebene Klasse nicht vorhanden, wird die erste Klasse aus der Liste der Klassennamen ausgewählt. Wenn Sie cLibraryName auslassen oder cClassName der Nullwert ist, wird ein Fehler generiert.

• cTitleText
  Gibt den Text an, der in der Titelleiste des Öffnen-Dialogs angezeigt wird. Standardmäßig wird Öffnen als Text angezeigt.

• cFileNameCaption
  Gibt den Text an, der neben dem Textfeld Dateiname angezeigt wird. Standardmäßig wird Dateiname: als Text angezeigt.

• cButtonCaption
  Gibt die Beschriftung für die Schaltfläche OK an.

Hinweise

Wenn Sie eine Klasse wählen, gibt AGETCLASS( ) Wahr (.T.) zurück und erstellt ein eindimensionales Array, das zwei Elemente enthält. Das erste Element enthält den Dateinamen der gewählten Klassenbibliothek; das zweite Element enthält den Namen der gewählten Klasse.

Falsch (.F.) wird zurückgegeben, wenn Sie das Dialogfeld Klassenbibliothek verlassen, indem Sie ESC drücken, Abbrechen auswählen oder auf die Schaltfläche Schließen klicken.

Beispiel

Das folgende Beispiel erstellt ein Array namens aClassLib. Das Samples-Unterverzeichnis, das die Klassenbibliotheksbeispiele enthält, wird zum aktuellen Verzeichnis. Mit Hilfe von AGETCLASS( ) können Sie ein Dialogfeld anzeigen, in dem die Buttons-Klassenbibliothek und die VCR-Klasse ausgewählt sind. Wenn Sie die Schaltfläche Ändern auswählen, wird der Name der von Ihnen gewählten Klassenbibliothek und Klasse im Array gespeichert. Die Klasse wird dann im Klassen-Designer geöffnet.

LOCAL aClassLib(2)  && Create an array, initialized to .F.
cCurrentDir = CURDIR( )  && Save the current directory
CD HOME(2) + 'CLASSES'  && Switch directories

AGETCLASS(aClassLib, 'BUTTONS.VCX', 'VCR', 'Modify Class', ;
   'Class File:', 'Modify')  && Display the dialog
CD (cCurrentDir)  && Switch to the previous directory

IF TYPE('aClassLib(2)') = 'C'  && Class chosen?
   MODIFY CLASS (aClassLib(2)) OF (aClassLib(1))  && Open to modify
ENDIF

Siehe auch

ACLASS( )-Funktion | AMEMBERS( )-Funktion | AVCXCLASSES( )-Funktion | CREATE CLASS-Befehl