* Release all Visual FoxPro toolbars #DEFINE TB_FORMDESIGNER_LOC "Form Designer" #DEFINE TB_STANDARD_LOC "Standard" #DEFINE TB_LAYOUT_LOC "Layout" #DEFINE TB_QUERY_LOC "Query Designer" #DEFINE TB_VIEWDESIGNER_LOC "View Designer" #DEFINE TB_COLORPALETTE_LOC "Color Palette" #DEFINE TB_FORMCONTROLS_LOC "Form Controls" #DEFINE TB_DATADESIGNER_LOC "Database Designer" #DEFINE TB_REPODESIGNER_LOC "Report Designer" #DEFINE TB_REPOCONTROLS_LOC "Report Controls" #DEFINE TB_PRINTPREVIEW_LOC "Print Preview" #DEFINE WIN_COMMAND_LOC "Command" LOCAL i DIMENSION this.aToolBars[11,2] this.aToolBars[1,1] = TB_FORMDESIGNER_LOC this.aToolBars[2,1] = TB_STANDARD_LOC this.aToolBars[3,1] = TB_LAYOUT_LOC this.aToolBars[4,1] = TB_QUERY_LOC this.aToolBars[5,1] = TB_VIEWDESIGNER_LOC this.aToolBars[6,1] = TB_COLORPALETTE_LOC this.aToolBars[7,1] = TB_FORMCONTROLS_LOC this.aToolBars[8,1] = TB_DATADESIGNER_LOC this.aToolBars[9,1] = TB_REPODESIGNER_LOC this.aToolBars[10,1] = TB_REPOCONTROLS_LOC this.aToolBars[11,1] = TB_PRINTPREVIEW_LOC FOR i = 1 TO ALEN(this.aToolBars,1) IF WVISIBLE(this.aToolBars[i,1]) Hide Window (this.aToolBars[i,1]) ENDIF ENDFORand to restore toolbars
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 ENDFORThis code is what we use in an application that was written in VFP6 so I don't know if there are any additional toolbars in newer versions.