Page 1 sur 1
Récupérer le Hendle d'un PopupMenu
Publié : ven. 12/août/2005 18:18
par 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.
Re: Récupérer le Hendle d'un PopupMenu
Publié : ven. 12/août/2005 18:50
par Anonyme2
gansta93 a écrit :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
Re: Récupérer le Hendle d'un PopupMenu
Publié : ven. 12/août/2005 19:35
par gansta93
Denis a écrit :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.
Re: Récupérer le Hendle d'un PopupMenu
Publié : sam. 13/août/2005 5:46
par Anonyme2
gansta93 a écrit :Denis a écrit :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.