Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Bringing a control to the front
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Divers
Thread ID:
00179981
Message ID:
00180277
Vues:
19
>> How can I put this control up to the front ?
>
>Jose,
>
>Look in the Mere Mortals Developer's Guide in the section titled "Overview of Business Objects". There is an area called "A Word about ZOrder" that explains how to set the order of objects. While this section talks about business objects, what they are saying should answer your question.
>
>Kind Regards,
>
>Mat

Thanks for your reply Mat, but I´m trying to use ZOrder and it´s not working. Could you please take a look in the code below (Valid() method of the combobox) ?

The texbox are : txlCPF, txlCGC, txlNuINPI. When the user selection is "F", I want to bring txlCPF to the front and so on.

Regards,

LOCAL lnState

DODEFAULT()

lnState = GETFLDSTATE("tp_pessoa", "v_Titulares")

IF lnState <> 1

DO CASE

CASE This.Value = "F"

This.Parent.Parent.txlCPF.TextBox.Visible = .T.
This.Parent.Parent.txlCPF.TextBox.Enabled = .T.
This.Parent.Parent.txlCGC.TextBox.Visible = .F.
This.Parent.Parent.txlCGC.TextBox.Enabled = .F.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .F.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .F.
This.Parent.Parent.txlCPF.TextBox.ZOrder(0)

CASE This.Value = "J"

This.Parent.Parent.txlCPF.TextBox.Visible = .F.
This.Parent.Parent.txlCPF.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.Visible = .T.
This.Parent.Parent.txlCGC.TextBox.Enabled = .T.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .F.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.ZOrder(0)

CASE This.Value = "E"

This.Parent.Parent.txlCPF.TextBox.Visible = .F.
This.Parent.Parent.txlCPF.TextBox.Enabled = .F.
This.Parent.Parent.txlCGC.TextBox.Visible = .F.
This.Parent.Parent.txlCGC.TextBox.Enabled = .F.
This.Parent.Parent.txlNuINPI.TextBox.Visible = .T.
This.Parent.Parent.txlNuINPI.TextBox.Enabled = .T.
This.Parent.Parent.txlNuINPI.TextBox.ZOrder(0)

ENDCASE

ENDIF
José Augusto Cavalcanti
Global Connection
jose.cavalcanti@globalconnection.com.br
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform