Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Does a menu item already exist?
Message
 
 
À
12/04/2005 22:37:54
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de menu & Menus
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows 2000 SP4
Divers
Thread ID:
01004016
Message ID:
01004030
Vues:
16
>Thanks alot.

I'm not sure if it's the optimal solution but it works. :)

>P.S. how do add the stars to a response?

Look for the Solution (gold start) icon/button on the toolbar on the bottom of the message.


>
>>Try
cMenuItem = "LifeCyle - Build"
>>lFound = .F.
>>FOR m=1 TO CNTBAR("_MTOOLS")
>>	lnBarNum = GETBAR('_MTOOLS', m)	
>>	lFound = lFound or (PRMBAR("_MTOOLS",lnBarNum)=cMenuItem)
>>NEXT
>>IF NOT lFound
>>	DEFINE BAR (CNTBAR("_MTOOLS")+1) OF _MTOOLS PROMPT cMenuItem KEY ALT+L MESSAGE "Open LifeCycle - Build Cycle"
>>	ON SELECTION BAR (CNTBAR("_MTOOLS")) OF _MTOOLS DO "&cAppPath.lcBuild"
>>ENDIF
>>
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform