Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Turn on the Standard Tool Bar
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00360784
Message ID:
00360952
Vues:
30
>You may know this already but here would be some code for closing all of the toolbars and saving which ones were closed so that they could be opened when exiting the application later. Note: WVISIBLE returns a logical value.
>
>
>
>#DEFINE NTB 11
>
>DIMENSION this.aToolBars(NTB,2)
>this.aToolBars(1,1) = "Form Designer"
>this.aToolBars(2,1) = "Standard"
>this.aToolBars(3,1) = "Layout"
>this.aToolBars(4,1) = "Query Designer"
>this.aToolBars(5,1) = "View Designer"
>this.aToolBars(6,1) = "Color Palette"
>this.aToolBars(7,1) = "Form Controls"
>this.aToolBars(8,1) = "Database Designer"
>this.aToolBars(9,1) = "Report Designer"
>this.aToolBars(10,1)= "Report Controls"
>this.aToolBars(11,1)= "Print Preview"
>
>LOCAL ln
>FOR ln = 1 TO NTB
>   this.aToolBars(ln,2)=WVISIBLE(this.aToolBars(ln,1))
>   IF this.aToolBars(ln,2)
>      HIDE WINDOW (this.aToolBars(ln,1))
>   ENDIF
>ENDFOR
>
>
>
>...code for the restore of previously closed toolbars...
>
>
>
>LOCAL ln
>FOR ln = 1 TO ALEN(this.aToolBars,1)      &&  currently 11 VFP toolbars defined
>   IF this.aToolBars(ln,2)                &&  if it had been hidden,
>      SHOW WINDOW (this.aToolBars(ln,1))  &&  restore it.
>   ENDIF
>ENDFOR
>
>
Yeah I know this already. What we have is, what if the standard tool bar is not defined when you come in. How do you programmatically bring it up. So SHOW WINDOW and HIDE WINDOW won't work, as Standard is not defined. Thanks anyway.
Bret Hobbs

"We'd have been called juvenile delinquents only our neighborhood couldn't afford a sociologist." Bob Hope
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform