Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
LABEL on a form
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Divers
Thread ID:
00058218
Message ID:
00058355
Vues:
32
>* 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"


Actually I am trying to have mytoolbar be the default when visual foxpro starts up. I been into : tools:options:forms and tried tinkering with it that way but is that the wrong way to go about it?



>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
"Build a man a fire, and he's warm for a day.
Set a man on fire, and he's warm for the rest of his life."
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform