L'erreur est sur cette ligne :
Monmenu = new menuitem
à la place il faut faire :
Monmenu = new ModelesMenu
Eric POUSSE
http://www.realcadd.com/
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