Récupérer le Hendle d'un PopupMenu

[gansta93]

Bonjour,

Appart en récupérant le résultat retourné par CreatePopupMenu(), quelqu'un saurait-il comment récupérer l'ID d'un PopupMenu ?
Une fonction du genre PopupMenuID(PopupMenu) qui donc me retournerait le hendle du PopupMenu spécifié.

Merci d'avance.

[Anonyme2]

Bonjour,

Appart en récupérant le résultat retourné par CreatePopupMenu(), quelqu'un saurait-il comment récupérer l'ID d'un PopupMenu ?
Une fonction du genre PopupMenuID(PopupMenu) qui donc me retournerait le hendle du PopupMenu spécifié.

Merci d'avance.

Ca sent la librairie

Voici la procedure avec un code d'exemple qui affiche le Handle retourné par les 2 fonctions celle de PB à la création et celle que je t'ai écrite.
Je suis en train d'écrire une librairie qui comporte en particulier cette procedure.

Code : Tout sélectionner

Enumeration
      #Window   
      #Menu
EndEnumeration

Procedure.l PopupMenuID(Menu.l)
; la fonction retourne 0 si le menu n'existe pas
; sinon elle retourne le Handle
; fonctionne avec les Menu et PopupMenu
Protected pt
  Pt = IsMenu(Menu)
  If Pt
     Pt= PeekL(Pt)
  EndIf
     ProcedureReturn pt
EndProcedure



If OpenWindow(#Window, 0, 0, 200, 140, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "PopupMenuID()")
         Resultat = CreatePopupMenu(#Menu) 
         a$ = "Handle  de la fonction CreatePopupMenu() : "+Str(Resultat)
         b$ = "Handle  de la fonction PopupMenuID()        : "+Str(PopupMenuID(#Menu))

         MessageRequester("Handle Menu",a$+Chr(10)+b$,16)
 EndIf
End

[gansta93]

Ca sent la librairie

Quel flaire !
ça se trouve, on fait la même ! ça serait boulet ça.

En tout cas merci pour le code.

[Anonyme2]

Ca sent la librairie

Quel flaire !
ça se trouve, on fait la même ! ça serait boulet ça.

En tout cas merci pour le code.

Je ne sais pas si on écrit la même chose, de toute façon ce n'est pas grave.