Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to hide standard toolbar... I know we've discussed
Message
 
To
30/01/1997 13:09:11
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00018841
Message ID:
00019048
Views:
35
>>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!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform