PureBasic

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

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