Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Clear memory from class
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Clear memory from class
Divers
Thread ID:
01435981
Message ID:
01435981
Vues:
98
When i reload this editbox the parameters i set for class in "DEFINE CLASS mydata AS Form" remain with the form.
When i re-open it with new data i want to redfine the parameters in ADD OBJECT Edit1 AS EditBox WITH ;

Is there a release command I can use to clear either the object parameters form memory - or is it the class i need to remove from memory.
'RELEASE CLASSLIB mydata' does not work so i'm obvious on the wrong path, the wrong area, or the wrong command

thanks
k


LOCAL oFrm

oFrm= createOBJECT("Rooms")
oFrm.Top = 24
oFrm.Left =400
oFrm.Height = 373
oFrm.Width = 500
oFrm.edit1.value = filetostr('sample.TXT')


oFrm.Show(1)

************************************
DEFINE CLASS mydata AS Form


ADD OBJECT Edit1 AS EditBox WITH ;
FontSize = 7.5, ;
Height= 409, ;
Left= 2, ;
fontname='Lucida Console', ;
ReadOnly= .t., ;
TabIndex= 2, ;
Top= 2, ;
Width= 489, ;
Value= ""
desktop = .t. &&& moved from setting oFrm
ENDDEFINE


Public Event MouseWheel As MouseWheelEventHandler


PROCEDURE Object.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord

PROCEDURE edit1.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord
* Set focus to this control
If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
this.SetFocus
EndIf
ENDPROC


oFrm.hide(1)
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform