Gambas France BETA


Pas de compte ? Incription

Réagir à un clic pour popmenu

Ce sujet est résolu.

1
AuteurMessages
spheris#1 Posté le 14/4/2021 à 22:12:03
Bonsoir,
Créé de toute pièce dans le code j'ai un menu popup qui s'affiche bien dans une form.
Par contre comment coder pour qu'il réagisse à un clic de souris?

1
2
3
4
5
6
7
8
9
PUBLIC SUB maform_mousedown()
DIM a AS INTEGER
DIM monmenu AS Menu
FOR a = 0 TO 10
monmenu = NEW Menu(ME)
monmenu.text = "mon texte est " & a
IF monmenu THEN monmenu.popup()
NEXT
END

www.gambaslinux.fr
vuott#2 Posté le 15/4/2021 à 11:50:06
Ne cedere ineluctabili possimusJe propose cette possibilité:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
PUBLIC SUB Form_Menu() ' Cet événement se produit si vous cliquez avec le bouton DROIT de la souris.

DIM monmenu, submenu AS Menu
DIM b AS BYTE

' Créez d'abord le menu principal:
monmenu = NEW Menu(ME)

' Créez ensuite quatre sous-menus:
FOR b = 1 TO 4
submenu = NEW Menu(monmenu)
submenu.Text = "submenu_" & CStr(b)
' Lorsque vous cliquez sur l'un des sous-menus, cela attribuez le texte du sous-menu à l'action.
submenu.Action = submenu.Text
NEXT

monmenu.Popup

END


PUBLIC SUB Action_Activate(actio AS STRING) AS BOOLEAN

' Voyons simplement le texte du sous-menu cliqué:
PRINT actio

END
« Vita non suavis esse potest, nec Mors amara. »
spheris#3 Posté le 15/4/2021 à 13:28:46
Un grand merci !
;-)
www.gambaslinux.fr
1