Search Forum Home   Visual FoxPro  Form-uri si generatoare de form-uri  textbox in form...  textbox in form    7/5/2011 12:13:29 PM ioandan_chelemen2006 224 posts textbox in form  (Switzerland) am un textbox intr-un form care vreau ca sa afiseze valoarea 0 cind e negativ e vreo setare ceva ?  7/5/2011 12:14:50 PM Grigore Dolghin 3592 posts www.class-software.eu Re: textbox in form  (N/A) Nu. Grigore Dolghin Visual FoxPro MVP 2006 - 2010 Class Software My blog  7/7/2011 1:31:00 AM Dumitru 172 posts Re: textbox in form  (N/A) M-am gandit la o solutie. Incearca sa adaugi controlul asta la form in locul unuia normal DEFINE CLASS mytextbox AS textbox     Alignment = 3     Value = 0     Height = 23     Width = 100     value1 = 0     flag = .T.     Name = "mytextbox"     PROCEDURE value_access         IF THIS.flag             RETURN THIS.VALUE1         ELSE             RETURN THIS.value         ENDIF     ENDPROC     PROCEDURE value_assign         LPARAMETERS vNewVal         IF THIS.flag             THIS.Value1 = m.vNewVal             THIS.VALUE = IIF(m.vNewVal<0,0,m.vNewVal)         ELSE             THIS.Value = m.vnewVal         ENDIF     ENDPROC     PROCEDURE LostFocus         THIS.Value1 = THIS.Value         THIS.Value = IIF(THIS.Value<0,0,THIS.Value)         THIS.Flag = .T.     ENDPROC     PROCEDURE GotFocus         THIS.flag=.F.         THIS.Value = THIS.Value1     ENDPROC ENDDEFINE La atribuirea unei valori campului in mod programatic, se retine valoarea in this.value1 iar this.value va fi zero daca numarul e negativ altfel si this.value va avea valoarea atribuita. La citirea valorii din camp in mod programatic se obtine this.value1, adica valoarea corecta, cu minus sau cu plus La editare, this.flag va deveni .F., iar in camp se va afisa valoarea corecta  pentru modificare (cu minus sau plus), cand se termina editarea se pune flagul pe true si se retine in this.value1 valoarea corecta si in this.value numai daca numarul introdus a fost pozitiv Nu stiu daca asta voiai, cred ca ai prins ideea si poti sa o adaptezi la ce-ti trebuie Eu am incercat pe VFP7 si merge  Page 1 of 1   Visual FoxPro  Form-uri si generatoare de form-uri  textbox in form... Flat View Tree View Oldest To Newest Newest To Oldest