Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to hide standard toolbar... I know we've discussed
Message
De
30/01/1997 13:09:11
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00018841
Message ID:
00018842
Vues:
41
>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
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform