Search Forum Home   Visual FoxPro  Form-uri si generatoare de form-uri  forma parametri...  forma parametrizata    10/28/2011 8:51:26 AM ioandan_chelemen2006 224 posts forma parametrizata  (Switzerland) unde definesc parametrii intr-o forma? as avea nevoie ca parametrii proprietati gen thisform.top, thisform.left, thisform.list1.recordsource etc. si forma sa-mi returneze o valoare gen thisform.list1.value, sper ca m-am facut inteles  10/28/2011 10:05:05 AM mmarius28 139 posts Re: forma parametrizata  (N/A)  ioandan_chelemen2006 wrote unde definesc parametrii intr-o forma? as avea nevoie ca parametrii proprietati gen thisform.top, thisform.left, thisform.list1.recordsource etc. si forma sa-mi returneze o valoare gen thisform.list1.value, sper ca m-am facut inteles Pe Init-ul formei scrii: PARAMETERS tnTop, tnLeft, tcList1RecordSource Pe Unload scrii: RETURN THIS.Texbox1.Value  10/29/2011 10:47:55 PM SCHRECK 158 posts Re: forma parametrizata  (N/A) Aceasta abordare a configurarii unul Form prin parametrii dupa parerea mea nu este prea potrivita. Daca vrei sa configurezi mai multe elemente folosesti zeci de parametrii ? Aceasta problema se rezolva prin conceptul programarii orientate spre obiecte. In principiu se face o sublasa personalizata a clasei de baza form, creezi un obiect pe care il configurezi in functie de cerinte. Am sa-ti prezint printr-un exemplu cum asi face eu. Creezi un form care sa contine controale de baza pe care-i vei folosi textbox,list etc. Doar creezi aceste controale si atat nu pui nimic la controlsource,recordsource etc si il salvezi ca o clasa sa zicem clform care va face dintr-o librarie bib.vcx. Cu formul pe ecran dai File.Save as class, la name treci clform iar la File bib. Pe baza acestei clase vei crea obiecte pe care il vei configura in functie de necesitati. Presupunem ca la un moment dat ai nevoie de un buton Listare care nu a fost inclus in clasa clform si asta se poate rezolva prin exemplul de mai jos Sa presupunem ca ai un tabel operatii.dbf care are un camp nume si a caror inregistrari vrei sa-ti apara in lista Vei scrie codul USE operatii SET CLASSLIB TO bib obform=CREATEOBJECT('clform') obform.left=300 obform.top=200 obform.list1.RowSourceType=6 obform.list1.RowSource='operatii.denumire' obform.ADDObject('Buton','CommandButton') obform.Buton.Top=200 obform.Buton.Left=10 obform.Buton.Caption='Listare' obform.Buton.visible=.T. obform.SHOW(1) Dupa parerea mea cam in asa fel se rezolva problema ta  Page 1 of 1   Visual FoxPro  Form-uri si generatoare de form-uri  forma parametri... Flat View Tree View Oldest To Newest Newest To Oldest