Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How do I save editbox
Message
De
08/11/2012 01:51:56
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01556676
Message ID:
01556679
Vues:
38
Not sure you need that complication - does this not work:
procedure Click
replace memonote with oFrm.Edit1.Value IN MyTable
>solution found - create command button to save edit data thus
>
>
>procedure Click
>nm = oFrm.Edit1.Value 
>strtofile(nm,'m2.txt')
>replace memonote with filetostr('m2.txt')
>
>
>>in the following code memonote is a memo field that is displayed and allowed edit
>>
>>How and where do i save the changes that are made in edit???
>>
>>save changes to my field memonote
>>
>>many thanks
>>k
>>
>>
>>strtofile(memonote,'m.txt')
>>LOCAL oFrm
>>
>>oFrm= CREATEOBJECT("Note")
>>oFrm.Edit1.Value = filetostr('m.txt') 
>>
>>oFrm.Show(1)
>>
>>************************************
>>DEFINE CLASS Note AS Form
>>
>>	ADD OBJECT Edit1 AS EditBox WITH ;
>>		Height= 470, ;
>>		Left= 16, ;
>>		ReadOnly= .f., ;
>>		TabIndex= 2, ;
>>		Top= 16, ;
>>		Width= 530, ;
>>		Value= ""
>>ENDDEFINE
>>
>>Public Event MouseWheel As MouseWheelEventHandler
>>
>>
>>PROCEDURE Object.MouseWheel
>>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>>
>>PROCEDURE edit1.MouseWheel
>>		LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>>		
>>		
>>	ENDPROC
>>
>>
>>oFrm.hide(1)
>>
Regards. Al

"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov

Neither a despot, nor a doormat, be

Every app wants to be a database app when it grows up
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform