Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How do I save editbox
Message
 
À
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:
01556905
Vues:
79
even better thanks Al

Any idea why this form does not display when i approach it from another form. I have done everything to destroy the previous form before it gets here but to no avail. when i browse a record and run this program (form below) it's fine - but when i approach it from another form which i use to find records (auto complete screen etc) the current form below opens and closes in a blink.

i thought it might be focus or that elements of the previous form are still active. i've been working on the systery for a couple of days now without success.

k

>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)
>>>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform