Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ASSIGN bug : was fixed in VFP8 ?
Message
De
24/09/2003 06:19:03
 
 
À
24/09/2003 02:03:52
Dorin Vasilescu
ALL Trans Romania
Arad, Roumanie
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00831739
Message ID:
00831764
Vues:
30
HI Dorin,

it is not a general rule.
Every property of baseclass has one particular access/assign operation.
CLEAR
zz = 'pippo'

xx=CREATEOBJECT('txt')
xx.xvalue = 'cambio'
xx.tag = 'nuovo tag'
=xx.value
ww = 'xx.value'
? '*** next have problems'
xx.value = 7
STORE 7 TO xx.value
STORE 7 TO (m.ww)
? '*** but internal assign no'
xx.controlsource = 'm.zz'

DEFINE CLASS txt AS TextBox
	xValue = 'prova'
	
	PROCEDURE xvalue_ACCESS
	  ? 'ACCESS xvalue',this.xvalue
	  RETURN this.xvalue
	  
	PROCEDURE xvalue_assign(wValue)
	  ? 'ASSIGN xvalue',wValue
	  this.xvalue = m.wValue
	
	PROCEDURE value_ACCESS
	  ? 'ACCESS value',this.value
	  RETURN this.value
	  
	PROCEDURE value_assign(wValue)
	  ? 'ASSIGN value',wValue
	  this.value = m.wValue

	PROCEDURE tag_ACCESS
	  ? 'ACCESS tag',this.tag
	  RETURN this.tag
	  
	PROCEDURE tag_assign(wValue)
	  ? 'ASSIGN tag',wValue
	  this.tag = m.wValue

	PROCEDURE controlsource_ACCESS
	  ? 'ACCESS controlsource',this.controlsource
	  RETURN this.controlsource
	  
	PROCEDURE controlsource_assign(wValue)
	  ? 'ASSIGN controlsource',wValue
	  this.controlsource = m.wValue
	  
ENDDEFINE
Fabio
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform