Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Remove Menu
Message
 
 
À
29/10/2001 16:11:58
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Titre:
Divers
Thread ID:
00574717
Message ID:
00574792
Vues:
28
>I remember once I saw on UT nice routine that would allow to remove menu but I forgot where. Does anybody remember it?
>Thanks.

To disable system menu
push menu _msysmenu
SET SYSMENU OFF 
...
pop menu _msysmenu
To hide system toollbars
DIMENSION laToolbars[11]
laToolbars[1] = 'Form Designer'
laToolbars[2] = 'Standard'
laToolbars[3] = 'Layout'
laToolbars[4] = 'Query Designer'
laToolbars[5] = 'View Designer'
laToolbars[6] = 'Color'
laToolbars[7] = 'Form Designer'
laToolbars[8] = 'Database Designer'
laToolbars[9] = 'Report Designer'
laToolbars[10] = 'Report Controls'
laToolbars[11] = 'Print Preview'

FOR lnCount = 1 TO ALEN(laToolbars, 1)
    IF WVISIBLE(laToolbars[lnCount])
       HIDE WINDOW (laToolbars[lnCount])
    ENDIF
ENDFOR
--sb--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform