How to Create a Screen Programatically

MORE INFORMATION

Code Sample

*******************************************************************
*  The following code programatically creates a Visual FoxPro
*  form and adds Textbox objects it. Each Textbox object has as
*  its ControlSource and Name the name of a corresponding field from
*  the customer database that ships with Visual FoxPro.
*
*  The Textbox objects use the Courier New, Size 8 regular font for
*  simple calculations in the placement of each object.
*
*  The new form is saved in the same directory as the selected table.
********************************************************************
USE C:\VFP\SAMPLES\DATA\CUSTOMER.DBF IN 0
SELECT customer

=AFIELDS(mafield)
count = ALEN(mafield,1)

myForm = CREATEOBJECT('FORM')
myform.SCALEMODE=0

FOR i = 1 TO count STEP 1
   STORE ALIAS()+'.'+mafield[i,1] TO mcontrol
   myForm.ADDOBJECT(mafield[i,1],'Textbox')
   WITH myForm.&mafield[i,1].
     .CONTROLSOURCE = mcontrol
     .FONTNAME = 'Courier New'
     .FONTSIZE = 8
     .FONTBOLD = .F.
     .HEIGHT = 1.25
     .TOP = (i-1) + .25
   ENDWITH
ENDFOR

myForm.SAVEAS(STRTRAN(DBF(ALIAS()),'DBF','SCX'))

FLUSH

MODIFY FORM (STRTRAN(DBF(ALIAS()),'DBF','SCX')) NOWAIT SAVE

CLEAR ALL
RELEASE ALL

* END.