Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FormSet + Enable + Visible + SetFocus = BUG?
Message
 
To
19/11/2001 18:27:14
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00583606
Message ID:
00583719
Views:
48
>Hi Rodolfo;

Hello! :)

I'll try to copy my code here... But it's difficult to undestand because you have to create a FormSet to see what is happing...

I have 3 forms in a FormSet... and there is a propertie that controls what form is visible...
LPARAMETERS vNewVal
With ThisFormSet
   .ModoExibicao = m.vNewVal
   DO Case
      Case .ModoExibicao = "A"
         Store .T. To .FormA.Visible, .FormA.Enabled
         Store .F. To .FormB.Visible, .FormB.Enabled
         Store .F. To .FormC.Visible, .FormC.Enabled
      Case .ModoExibicao = "B"
         Store .F. To .FormA.Enabled, .FormC.Visible, .FormC.Enabled
         Store .T. To .FormA.Visible, .FormB.Visible, .FormB.Enabled
         .FormB.Text1.SetFocus
      Case .ModoExibicao = "C"
         Store .T. To .FormA.Visible, .FormC.Visible, .FormC.Enabled
         Store .F. To .FormA.Enabled, .FormB.Visible, .FormB.Enabled
         .FormC.Text1.SetFocus
   EndCase
EndWith
Return .T.
If I put ThisFormSet.ModoExibicao = "B" in a button of the FormA, it works... But if I do it:
Do Form Test_FormSet With "B"
...

LParameters Par1
ThisFormSet.ModoExibicao = Par1
It don't work. Well... It works, but the FormA is on the FormB... I think it is a BUG...

Like as said, I think it's difficult to create a FormSet... If you like to see it, you can download the file in www.foxbrasil.com.br/rodolfo/outros/formsetenglish.htm ...

I'm sorry about my English... I know, you are from Brazil, but I think better write in English... :)

[]'s

Rodolfo Duarte
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Rodolfo Duarte
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform