Search  
Friday, May 25, 2012 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  Visual FoxPro  Clase - VCX si PRG  clase container...
 clase container
 
 10/1/2010 2:01:26 PM
User is offlinevalbos
4 posts


clase container
 (N/A)
As vrea sa creez o clasa container care sa contina un textbox, un buton si un calendar (ActiveX). In textbox ar trebui sa apara data aleasa din calendar. Cum transfer ControlSource de la textbox la container? Adica as vrea sa am o proprietate ControlSource pentru toata clasa prin care sa fac legatura datei din textbox cu un camp dintrun tabel. Sunt incepator in POO si nu stiu ce cod trebuie scris si unde (in ce procedura/metoda). Lucrez in VFP 6 dar, cred ca versiunea nu conteaza pentru acest tip de problema. Multumesc!
 10/1/2010 2:33:47 PM
User is offlineDaniel Buduru
2335 posts
1st




Re: clase container
 (N/A) Modified By Daniel Buduru  on 10/1/2010 3:22:33 PM)
Poti declara proprietatea ControlSource, dar nu se va comporta ca proprietatea nativa a controalelor.
Va trebui sa pui si proprietatea value, cu acces si assign, si sa scrii cod in value_assign si value_acces pentru a transfera valorile din / in controlsource

Poti accesa proprietatea Value a calendarului astfel:

textbox.value=Calendar.Object.Value
sau
Calendar.Object.Value=textbox.value

Pui in textbox.controlsource proprietatea value a containerului:
textbox.controlsource='this.parent.value'

Scrii cod in metoda Calendar.click pentru a transfera valoarea din calendar.object.value in textbox.value
this.parent.textbox.value=this.object.value

Scrii cod in container.value_acces pentru a transfera valoarea din campul definit din controlsource in proprietatea value
this.value=eval(this.controlsource)

Scrii cod in value_assign pentru a pune valoarea din value in campul din controlsource
lcAlias=left(this.ControlSource,at('.',this.ControlSource)-1)
lcField=right(this.controlsource,rat('.',this.controlsource+1)
replace (lcfield) with (this.value) in (lcAlias)

Scrii cod in container.refresh care sa transfere valoarea din container.controlsource in calendar.value
this.value_access()
this.Calendar.Object.value=this.value

Sper ca toate functiie sa exist in vfp6, e tare mult de cand n-am mai lucrat cu el :)

Daniel Buduru
  Visual FoxPro  Clase - VCX si PRG  clase container...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2010 Profox   Terms Of Use  Privacy Statement