les id des menus

[nico]

J'ai un problème avec les menus, on ne peut pas récupérer l'identificateur du premier item pour un sous-menu, c'est vrai pour tous les sous-menus.

Code : Tout sélectionner

If OpenWindow(0, 100, 200, 300, 200, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget, "PureBasic Window")
  
  menu= CreateMenu(0, WindowID(0))
  If menu 
    MenuTitle("File")
    MenuItem( 11, "&Load...")
    MenuItem( 12, "Save")
    MenuItem( 13, "Save As...")
  endif
  
  Hdle_sous_Menu=GetSubMenu_(Menu,0)
  for a=0 to 2
    GetMenuItemInfo_(Hdle_sous_Menu,a , #MF_BYPOSITION, @lpmii.MENUITEMINFO) 
    lpmii\cbSize=SizeOf(MENUITEMINFO)
    #MIIM_SUBMENU=4: #MIIM_FTYPE=$10: #MIIM_STRING=$40: #MIIM_ID=2
    lpmii\fMask= #MIIM_SUBMENU | #MIIM_FTYPE | #MIIM_ID 
    debug lpmii\wID
  next a 
  
  Repeat 
    Select WaitWindowEvent() 
      Case #PB_EventMenu 
        Select EventMenuID() 
          Case 4 
            Quit = 1 
            
          Default 
            MessageRequester("Info", "MenuItem: "+Str(EventMenuID()), 0) 
        EndSelect
        
      Case #WM_CLOSE 
        Quit = 1 
    EndSelect 
  Until Quit = 1 
EndIf 
End

[nico]

Avec un menu créé avec les API, c'est exactement pareil.

[nico]

En fait, c'est le premier appel de la fonction qui échoue, je ne sais pas pourquoi; donc au lieu de commencer par 0, on commence par -1.

[nico]

Si je sais pourquoi, c'est parce que je fais n'importe quoi!

Code : Tout sélectionner

  Hdle_sous_Menu=GetSubMenu_(Menu,0)
  for a=0 to 2
    lpmii.MENUITEMINFO
    lpmii\cbSize=SizeOf(MENUITEMINFO)
    #MIIM_SUBMENU=4: #MIIM_FTYPE=$10: #MIIM_STRING=$40: #MIIM_ID=2
    lpmii\fMask= #MIIM_ID 
    GetMenuItemInfo_(Hdle_sous_Menu, a , #MF_BYPOSITION, @lpmii.MENUITEMINFO) 
    debug lpmii\wID
  next a 

Si je fais mes déclarations avant, ça se passe mieux; je devrais peut être faire une grosse pause.

[gansta93]

Tu connais l'histoire du Purebasicien qui criait "Au bug !!!!!!" ?

[fweil]

nico,

ptn, je l'ai cherché pendant une heure et j'ai laissé tomber !

Bon tu as trouvé alors tu es parmi les bons.

[Dr. Dri]

Tu connais l'histoire du Purebasicien qui criait "Au bug !!!!!!" ?

Dri

[fweil]

Je fête mon 30ème anniversaire du Samarchpô

Le haut bug ai pas connu. Enfin si deux fois dans ma vie j'ai du changer de PC !

Doit être ça le haut bug ...