Creates an object from a class definition or an Automation-enabled application.

CREATEOBJECT(cClassName [, eParameter1, eParameter2, ...])

Parameters

ClassName

Specifies the class or OLE object from which the new object is created. Visual FoxPro searches for the class or OLE object in the following order:

1. Visual FoxPro base classes

2. Classes in the current program

3. Classes in .vcx class libraries opened with SET CLASSLIB

4. Classes in procedure files opened with SET PROCEDURE

5. Classes in the Visual FoxPro program execution chain

6. The OLE registry if SET OLEOBJECT is ON

OLE objects are created using the following syntax for ClassName:

	Copy Code
ApplicationName.Class

For example, to create a Microsoft Excel worksheet (which supports Automation), you can use the following syntax:

	Copy Code
x = CREATEOBJECT('Excel.Sheet')

When this code is run, Microsoft Excel is started (if not already running), and a new worksheet is created.

A class library can have an alias. To specify an object in a class library with an alias, include the class library alias followed by a period and the object name.

Note that ClassName cannot be the Visual FoxPro OLE Container control base class.

eParameter1, eParameter2, ...

These optional parameters are used to pass values to the Init event procedure for the class. The Init event is executed when you issue CREATEOBJECT( ) and allows you to initialize the object.

Return Value

Remarks

Example

The following example uses DEFINE CLASS and CREATEOBJECT( ) to create two custom classes named FormChild and FormGrandChild from the Visual FoxPro Form base class. ACLASS( ) is used to create an array named gaNewarray containing the class names, which are then displayed.

Copy Code

CLEAR * Verify current class library setting cCurClassLib=SET("CLASSLIB") IF LEN(ALLTRIM(cCurClassLib))=0 cCurClassLib="None" ENDIF WAIT WINDOW "Current class library is: " + cCurClassLib + CHR(13); + "Press any key to continue..." frmMyForm = CREATEOBJECT("FormGrandChild") * Create an array FOR nCount = 1 TO ACLASS(gaNewarray, frmMyForm) ? gaNewarray(nCount) && Display the names of the classes ENDFOR RELEASE frmMyForm * Create FormChild from FORM baseclass DEFINE CLASS FormChild AS FORM ENDDEFINE * Create FormGrandChild from user-defined FormChild class DEFINE CLASS FormGrandChild AS FormChild ENDDEFINE

See Also