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:
00019048
Vues:
37
>>How do you hide the toolbar in runtime program? It was gone adn now its back. ugh!!
>
>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


Michael,

When this code is inserted in the INIT section of the form and executed, a message comes back "Property ATOOLBARS is not found". What am I doing wrong?

Thx for the help,
Bill
CySolutions, Medical Information Technology
You're only as good as your last
success, so . . .If it works. . .don't fix it!
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform