Re: Barre de menu suite

[antoine cretaux <antoine at cretaux dot com>]

Je l'ai fait ( j'avais pas mis le code dans le message) mais j'avais  
fait  ca dans le enablemenuitem de App
  Dim i as integer
  for i = 0 to ModelesMenu.count-1
  ModelesMenu.item(i).enabled  = true
  Next

Mes menus sont bien actif


Pour resumer

je les crée dans l'open de l'application

Je les rend accessible dans le EnabledMenuItem de l'app

Et j'essaie de les intercepter dans un Menuhandlers de l'app

Tout ceci me parait logique



Le 21 nov. 06 à 15:34, Michel LO a écrit :

> ca ne peut pas marcher, il faut "enable" le menu au bon endroit !
>
> Pour ca, il faut aller dans un event EnableMenuItem pour les  
> enabler et pas dans le code normal.
>
> Michel Lo
> BELT
> 45, rue Aristide Briand
> 92300 LEVALLOIS-PERRET
>
>
> Le 21 nov. 06 à 15:19, antoine cretaux a écrit :
>
> > Cela ne marche pas.
> > Si je crée un item par défaut avec index = 0 il apparait  
> > correctement et possede bien un Menu Handler.
> > Lorsque l'on ouvre celui ci on constate bien qu'un index est  
> > disponible
> > Le probleme est que cet index est toujours à 0.
> > il suffit de mettre un MsgBox = Str(index)
> > Le message ne s'affiche que si l'on choisit l'item 0 du menu.  
> > Autrement rien ne se passe
> > Dans l'open de mon appli (je ne travaille plus avec les fontes  
> > mais un dossier conteant des éléments) Le principe reste le meme
> >   Dim i as integer
> >   Dim Dossier as folderitem
> >   Dim Monmenu as  menuitem
> >   Dossier = getfolderItem("Modèles")
> >   For i =  ModelesMenu.count-1 downto 1
> >     ModelesMenu.Remove i
> >   Next
> >
> >   ModelesMenu.item(0).text = "garage"
> >
> >   //== Je fabrique le menu
> >   For i =1 to Dossier.count
> >     if left(Dossier.item(i).displayName,1) <> "." then
> >       Monmenu = new menuitem
> >       MonMenu.text= Dossier.item(i).name
> >       MonMenu.enabled = true
> >       ModelesMenu.Append(Monmenu)
> >     End if
> >   Next
> >
> >
> > Merci