>*!* Begin Code Sample > >PUBLIC x >x = CREAT([oForm1]) >x.SHOW > >DEFINE CLASS oForm1 AS FORM > AUTOCENTER = .T. > ADD OBJECT button1 AS BUTTON > button1.LEFT = 150 > button1.TOP = 200 > button1.HEIGHT = 30 > button1.CAPTION = [Quit] > ADD OBJECT CreatFileButton AS CreateFile > CreatFileButton.AUTOSIZE = .T. > CreatFileButton.LEFT = 100 > CreatFileButton.TOP = 75 > CreatFileButton.CAPTION = [Click to create the qlp file.] > ADD OBJECT txtbox1 AS TEXTBOX > txtbox1.VALUE = [54990] > ADD OBJECT txtbox2 AS TEXTBOX > txtbox2.VALUE = [22] > txtbox2.TOP = 25 >ENDDEFINE > >DEFINE CLASS BUTTON AS COMMANDBUTTON > CANCEL = .T. > PROC CLICK > RELEASE THISFORM > ENDPROC >ENDDEFINE > >DEFINE CLASS CreateFile AS COMMANDBUTTON > PROC CLICK > STRING = ALLTRIM(THISFORM.txtbox1.VALUE) + CHR(10) + ; > ALLTRIM(THISFORM.txtbox2.VALUE) > STRTOFILE(STRING,[MyFile.qlp]) > MODI FILE MyFile.qlp NOWAIT > ENDPROC >ENDDEFINE > >*!* End Code Sample >>