Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to hide standard toolbar... I know we've discussed
Message
 
 
À
30/01/1997 13:09:11
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00018841
Message ID:
00018873
Vues:
40
>>How do you hide the toolbar in runtime program? It was gone adn now its back. ugh!!

This what I needed exactly. Thank you.

>This code come from the Search. Michel Poiré explains a solution.
>
>*-- Releases all Visual FoxPro toolbars
> LOCAL i
>
> DIMENSION this.aToolBars[11,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"
>
> FOR i = 1 TO ALEN(this.aToolBars, 1)
> this.aToolBars[i,2] = WVISIBLE(this.aToolBars[i,1])
> IF this.aToolBars[i,2]
> HIDE WINDOW (this.aToolBars[i,1])
> ENDIF
> ENDFOR
>
> *****************************************************
>
> LOCAL i
>
> *-- Show all VFP toolbars that were previously hidden
> FOR i = 1 TO ALEN(this.aToolBars, 1)
> IF this.aToolBars[i,2]
> SHOW WINDOW (this.aToolBars[i,1])
> ENDIF
> ENDFOR
~Joe Johnston USA

"If ye love wealth better than liberty, the tranquility of servitude better than the animated contest of freedom, go home from us in peace. We ask not your counsel or arms. Crouch down and lick the hands which feed you. May your chains set lightly upon you, and may posterity forget that ye were our countrymen."
~Samuel Adams

Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform