Information générale
Catégorie:
Gestionnaire d'écran & Écrans
>BTW, how can I make mytoolbar.vcx be THE default and not foxpro's toolbar?
*Hide toolbars
DO RELEASETOOLBARS
* Show main form
DO FORM < name >
READ EVENTS
DO CLEANUP
RETURN
PROCEDURE CLEANUP
SET HELP TO
SET EXCLUSIVE ON
set delete &xDELETE
*set talk on
set sysmenu on
set sysmenu to default
set status bar on
set century &xCENTURY
PROCEDURE releasetoolbars
*-- Releases all Visual FoxPro toolbars
LOCAL i
DIMENSION aToolBars[11,2]
atoolBars[1,1] = "Form Designer"
aToolBars[2,1] = "Standard"
aToolBars[3,1] = "Layout"
aToolBars[4,1] = "Query Designer"
aToolBars[5,1] = "View Designer"
aToolBars[6,1] = "Color Palette"
aToolBars[7,1] = "Form Controls"
aToolBars[8,1] = "Database Designer"
aToolBars[9,1] = "Report Designer"
aToolBars[10,1] = "Report Controls"
aToolBars[11,1] = "Print Preview"
FOR i = 1 TO ALEN(aToolBars, 1)
aToolBars[i,2] = WVISIBLE(aToolBars[i,1])
IF aToolBars[i,2]
HIDE WINDOW (aToolBars[i,1])
ENDIF
ENDFOR
*Try this code.
Dan
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement