Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How do you release other FORMS opened ...
Message
De
11/08/1997 15:30:49
 
 
À
11/08/1997 14:59:53
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00044045
Message ID:
00044084
Vues:
39
>>>>>>>How do you release other FORMS opened from
>>>>>>>within a FORM.. I know I asked this question before
>>>>>>>and I thought I saved the answer. I want to close
>>>>>>>two opened FORMS.... thanks..rob
>>>>>>
>>>>>>***frmMain Destroy event (if you want to release 'child' forms too):
>>>>>>if type("Thisformset.frmDetail1")=="O"
>>>>>> Thisformset.frmDetail1.release()
>>>>>>endif
>>>>>>if type("Thisformset.frmDetail2")=="O"
>>>>>> Thisformset.frmDetail2.release()
>>>>>>endif
>>>>>>....
>>>>>>If you don't have Formset, try to use direct references to forms (from DO Form NAME clause).
>>>>>
>>>>>thanks Edward..these FORMS are not in a FORMSET yet, but
>>>>>as single FORMS I will like to release them.
>>>>>myform.release() does not seem to work.
>>>>
>>>>Look at DO FORM command. Does it have NAME clause? One thing beforehand: you can always use RELEASE WINDOW myform (to other UT members: don't crtiticize me too much for this not OO advice, please).
>>>
>>>DO FORM does have a NAME clause, but I want to release a FORM.
>>>How can you release a FORM with a DO FORM command?
>>
>>You can't. But if you give the form an explicit name when you DO it, you can use that name to Release: _screen.formname.release.
>
>I code this..
>DO FORM myform NAME anyform
>wait
>_screen.anyform.release
>
>this did not work...

Where did you put this code? You realize that after you DO a form, control is passed to that form and does not return to the calling procedure until control is surrendered back? For debugging try:

look at what _screen.activeform.name returns. Try to reference the form using that name.

You are on the right track, I'm sure there is just something silly holding you up...
Erik Moore
Clientelligence
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform